- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xxxmenubar_event.pro
r150 r226 5 5 ; @categories 6 6 ; 7 ; 7 ; 8 8 ; @param EVENT 9 9 ; 10 ;11 10 ; @returns 12 ; 13 ; 11 ; 14 12 ; @uses 15 ; 16 ; 13 ; 17 14 ; @restrictions 18 ; 19 ; 15 ; 20 16 ; @examples 21 ; 22 ; 17 ; 23 18 ; @history 24 ; 25 ; 26 ; @version 19 ; 20 ; @version 27 21 ; $Id$ 28 22 ; 29 ; @todo 23 ; @todo 30 24 ; seb 31 25 ;- … … 39 33 40 34 case event.value of 41 'Open' :begin 35 'Open' :begin 42 36 oldmeshparams = ccmeshparameters 43 37 newfile = selectfile() … … 62 56 ; What is the selected field ? Do we reselect it ? 63 57 fieldname = widget_info(vlstid, /combobox_gettext) 64 index = where(newfile.fileparameters.listvar EQ fieldname) 58 index = where(newfile.fileparameters.listvar EQ fieldname) 65 59 widget_control, vlstid, set_value = newfile.fileparameters.listvar 66 60 widget_control, vlstid, set_combobox_select = 0 > index[0] … … 117 111 xxx, CALLERWIDID = event.top, _extra = extra 118 112 end 119 'Quit':begin 113 'Quit':begin 120 114 widget_control, event.top, get_uvalue = top_uvalue 121 115 ptr_free, extractatt(top_uvalue, 'exextra') … … 142 136 , /POSTSCRIPT 143 137 END 144 'Animated gif' :begin 138 'Animated gif' :begin 145 139 IF float(strmid(!version.release,0,3)) GE 6.2 THEN xcreateanim, event.top 146 140 end … … 174 168 widget_control, event.top, get_uvalue = top_uvalue 175 169 ; portrait or landscape ??? 176 options = extractatt(top_uvalue, 'options') 170 options = extractatt(top_uvalue, 'options') 177 171 optionsflag = extractatt(top_uvalue, 'optionsflag') 178 172 portrait = (optionsflag[where(options EQ 'Portrait/Landscape'), 0])[0] … … 203 197 ENDIF 204 198 ; We recuperate the name of the file 205 filename = xquestion(' dans quel fichier bianire voulez vous sauver le widget ?', 'xxx_widget.dat')199 filename = xquestion('In which binary file do you want to save the widget ?', 'xxx_widget.dat') 206 200 ; We complete it by a .dat 207 201 if rstrpos(filename, '.dat') NE strlen(filename)-4 then filename = filename+'.dat' … … 219 213 for i = 0, n_elements(commande)-1 do print, commande[i] 220 214 end 221 'Portrait/Landscape' :begin 215 'Portrait/Landscape' :begin 222 216 widget_control, event.top, get_uvalue = top_uvalue 223 217 options = extractatt(top_uvalue, 'options') … … 255 249 ENDELSE 256 250 end 257 'Overlay' :begin 251 'Overlay' :begin 258 252 widget_control, event.top, get_uvalue = top_uvalue 259 253 numdessinin = (extractatt(top_uvalue, 'smallin'))[2]-1 260 options = extractatt(top_uvalue, 'options') 254 options = extractatt(top_uvalue, 'options') 261 255 flags = extractatt(top_uvalue, 'optionsflag') 262 256 index = where(options EQ 'Overlay') … … 269 263 widget_control, event.top, get_uvalue = top_uvalue 270 264 numdessinin = (extractatt(top_uvalue, 'smallin'))[2]-1 271 options = extractatt(top_uvalue, 'options') 265 options = extractatt(top_uvalue, 'options') 272 266 flags = extractatt(top_uvalue, 'optionsflag') 273 267 index = where(options EQ 'Vecteur') … … 280 274 widget_control, event.top, get_uvalue = top_uvalue 281 275 numdessinin = (extractatt(top_uvalue, 'smallin'))[2]-1 282 options = extractatt(top_uvalue, 'options') 276 options = extractatt(top_uvalue, 'options') 283 277 flags = extractatt(top_uvalue, 'optionsflag') 284 278 index = where(options EQ 'Longitude / x index') … … 314 308 (*top_uvalue[1, findline(top_uvalue, 'domaines')])[*, numdessinin] = boxzoom 315 309 end 316 'Latitude / y index':begin 310 'Latitude / y index':begin 317 311 widget_control, event.top, get_uvalue = top_uvalue 318 312 numdessinin = (extractatt(top_uvalue, 'smallin'))[2]-1 319 options = extractatt(top_uvalue, 'options') 313 options = extractatt(top_uvalue, 'options') 320 314 flags = extractatt(top_uvalue, 'optionsflag') 321 315 index = where(options EQ 'Latitude / y index')
Note: See TracChangeset
for help on using the changeset viewer.