- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro
r157 r226 6 6 ; @categories 7 7 ; Compound widget 8 ; 8 ; 9 9 ; @param ID 10 ;11 10 ; 12 11 ; @param VALUE … … 14 13 ; 15 14 ; @returns 16 ; 17 ; 18 ; @uses 19 ; 20 ; 21 ; @restrictions 22 ; 23 ; 24 ; @examples 25 ; 26 ; 27 ; @history 28 ; 29 ; 30 ; @version 31 ; $Id$ 32 ;- 33 ;***************************************************** 15 ; 16 ; @uses 17 ; 18 ; @restrictions 19 ; 20 ; @examples 21 ; 22 ; @history 23 ; 24 ; @version 25 ; $Id$ 26 ;- 34 27 PRO cw_specifie_set_value, id, value 35 28 ; … … 43 36 widget_control, widget_info(id,find_by_uname='palnum'), set_value = strtrim(value.lct, 2) 44 37 autres = extractstru(value, ['min', 'max', 'inter', 'lct', 'nothing', 'xindex', 'yindex']) 45 if size(autres, /type) EQ 8 then BEGIN 38 if size(autres, /type) EQ 8 then BEGIN 46 39 autresid = widget_info(id,find_by_uname='autres') 47 40 widget_control, widget_info(id, find_by_uname = 'autres'), get_value = autresautres … … 64 57 ; @categories 65 58 ; Compound widget 66 ; 59 ; 67 60 ; @param ID 68 61 ; 69 ; 70 ; @returns 71 ; 72 ; 73 ; @uses 74 ; 75 ; 76 ; @restrictions 77 ; 78 ; 79 ; @examples 80 ; 81 ; 82 ; @history 83 ; 84 ; 85 ; @version 86 ; $Id$ 87 ;- 88 ;***************************************************** 62 ; @returns 63 ; 64 ; @uses 65 ; 66 ; @restrictions 67 ; 68 ; @examples 69 ; 70 ; @history 71 ; 72 ; @version 73 ; $Id$ 74 ;- 89 75 FUNCTION cw_specifie_get_value, id 90 76 ; … … 118 104 ; @categories 119 105 ; Compound widget 120 ; 106 ; 121 107 ; @param EVENT 122 108 ; 123 ; 124 ; @returns 125 ; 126 ; 127 ; @uses 128 ; 129 ; 130 ; @restrictions 131 ; 132 ; 133 ; @examples 134 ; 135 ; 136 ; @history 137 ; 138 ; 139 ; @version 140 ; $Id$ 141 ;- 142 ;***************************************************** 109 ; @returns 110 ; 111 ; @uses 112 ; 113 ; @restrictions 114 ; 115 ; @examples 116 ; 117 ; @history 118 ; 119 ; @version 120 ; $Id$ 121 ;- 143 122 FUNCTION cw_specifie_event, event 144 123 ;------------------------------------------------------------ 145 ; on recuper les ID des differents widgets124 ; on recupere les ID des differents widgets 146 125 ;------------------------------------------------------------ 147 126 ;------------------------------------------------------------ … … 157 136 ;------------------------------------------------------------ 158 137 case uval of 159 'default':BEGIN 138 'default':BEGIN 160 139 ;--------------- 161 ; We find the name of the variable: 140 ; We find the name of the variable: 162 141 vlstid = widget_info(event.top, find_by_uname = 'varlist') 163 142 fieldname = widget_info(vlstid, /combobox_gettext) … … 170 149 widget_control, widget_info(event.handler, find_by_uname = 'autres'), set_value = '' 171 150 END 172 'palcol':BEGIN 151 'palcol':BEGIN 173 152 ind = fix(strmid(event.value, 0, strpos(event.value, '-'))) 174 153 widget_control, widget_info(event.handler, find_by_uname = 'palnum'), set_value = strtrim(ind, 1) … … 186 165 ; @categories 187 166 ; Compound widget 188 ; 167 ; 189 168 ; @param PARENT {in}{required} 190 169 ; The widget ID of the parent widget. … … 193 172 ; Buttons will be arranged in the number of columns 194 173 ; specified by this keyword. 195 ; 174 ; 196 175 ; @keyword ROW 197 176 ; Buttons will be arranged in the number of rows 198 177 ; specified by this keyword. 199 ; 178 ; 200 179 ; @keyword UVALUE 201 180 ; The user value to be associated with the widget. 202 ; 181 ; 203 182 ; @keyword UNAME 204 183 ; The user name to be associated with the widget. … … 206 185 ; @keyword FRAME 207 186 ; 208 ;209 187 ; @keyword FORXXX 210 188 ; 211 ;212 189 ; @keyword _EXTRA 213 190 ; Used to pass your keywords 214 191 ; 215 ; 216 ; @returns 217 ; 218 ; 219 ; @uses 220 ; 221 ; 222 ; @restrictions 223 ; 224 ; 225 ; @examples 226 ; 227 ; 228 ; @history 229 ; 230 ; 231 ; @version 232 ; $ID$ 192 ; @returns 193 ; 194 ; @uses 195 ; 196 ; @restrictions 197 ; 198 ; @examples 199 ; 200 ; @history 201 ; 202 ; @version 203 ; $Id$ 233 204 ; 234 205 ; @todo 235 206 ; seb: documenter 236 ; 207 ; 237 208 ;- 238 209 FUNCTION cw_specifie, parent, ROW = row, COLUMN = column, UVALUE = uvalue, UNAME = uname, FRAME = frame, FORXXX = forxxx, _extra = ex 239 ; che king exclusive keywords210 ; checking exclusive keywords 240 211 ; 241 212 compile_opt idl2, strictarrsubs 242 213 ; 243 214 column = keyword_set(column)*(1-keyword_set(row)) 244 row = keyword_set(row)*(1-keyword_set(column)) +(keyword_set(row) EQ column) 215 row = keyword_set(row)*(1-keyword_set(column)) +(keyword_set(row) EQ column) 245 216 ;------------------------------------------------ 246 217 if NOT keyword_set(uvalue) then uvalue = '' … … 250 221 , FUNC_GET_VALUE='cw_specifie_get_value' $ 251 222 , PRO_SET_VALUE='cw_specifie_set_value' $ 252 , UVALUE = uvalue, UNAME = uname, _extra = ex) 253 ; base1 223 , UVALUE = uvalue, UNAME = uname, _extra = ex) 224 ; base1 254 225 base1 = widget_base(base) 255 226 rien = widget_label(base1, value = 'Min', xoffset = 85, yoffset = 15) … … 277 248 278 249 279 ; widget text containi g other keywords pass into top_uvalue.exextra250 ; widget text containing other keywords pass into top_uvalue.exextra 280 251 ; Does it remain some? If yes, we have to put them as string 281 252 282 253 rien = widget_text(base, value = ' ', /editable, uname = 'autres', uvalue = 'autres', xsize = 54, ysize = 3, yoffset = 65, /wrap, /no_newline) 283 254
Note: See TracChangeset
for help on using the changeset viewer.