- Timestamp:
- 05/09/06 13:11:55 (18 years ago)
- Location:
- trunk
- Files:
-
- 1 deleted
- 6 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/ToBeReviewed/WIDGET/slec.pro
r51 r52 1 FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOITE=boite, _EXTRA = ex 2 @common 1 FUNCTION slec,name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex 2 ;--------------------------------------------------------- 3 ; include common 4 @cm_4data 5 IF NOT keyword_set(key_forgetold) THEN BEGIN 6 @updatenew 7 @updatekwd 8 ENDIF 3 9 ;------------------------------------------------------------ 4 10 case n_params() of 5 1:tab = nlec(name, PARENT = parent, BO ITE=boite, _EXTRA = ex)6 2:tab = nlec(name,debut, PARENT = parent, BO ITE=boite, _EXTRA = ex)7 3:tab = nlec(name,debut,fin, PARENT = parent, BO ITE=boite, _EXTRA = ex)8 4:tab = nlec(name,debut,fin, nomexp, PARENT = parent, BO ITE=boite, _EXTRA = ex)11 1:tab = nlec(name, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex) 12 2:tab = nlec(name,debut, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex) 13 3:tab = nlec(name,debut,fin, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex) 14 4:tab = nlec(name,debut,fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex) 9 15 endcase 10 16 ; -
trunk/ToBeReviewed/WIDGET/xx.pro
r51 r52 10 10 ; nom de la fonction de lecture: 11 11 if NOT keyword_set(funclec_name) then funclec_name = 'slec' 12 prefix= 'INF'12 varexp = 'INF' 13 13 ; liste des variables 14 14 if NOT keyword_set(listvar) then listvar = ['tn','sn','un','vn', 'taux', 'tauy','hdep20','hdep28','hdep15','hturb','hpycn','htoth','emp','qn','qs', 'smltot11', 'smltot12', 'smltot13', 'smltot14', 'smltot15', 'smltot16', 'tmltot11', 'tmltot12', 'tmltot13', 'tmltot14', 'tmltot15', 'tmltot16'] -
trunk/ToBeReviewed/WIDGET/xxx.pro
r51 r52 69 69 options = extractatt(top_uvalue, 'options') 70 70 index = where(options EQ 'Ok button') & index = index[0] 71 currentplot = (extractatt(top_uvalue, ' petitout'))[2]-171 currentplot = (extractatt(top_uvalue, 'smallout'))[2]-1 72 72 okbutton = extractatt(top_uvalue, 'optionsflag') 73 73 okbutton = okbutton[index, currentplot] … … 112 112 wset, win 113 113 widget_control,event.top,get_uvalue=top_uvalue 114 numdessinin = (extractatt(top_uvalue, ' petitin'))[2]-1114 numdessinin = (extractatt(top_uvalue, 'smallin'))[2]-1 115 115 !p = (extractatt(top_uvalue, 'penvs'))[numdessinin] 116 116 !x = (extractatt(top_uvalue, 'xenvs'))[numdessinin] … … 139 139 ;------------------------------------------------------------ 140 140 ;------------------------------------------------------------ 141 PRO xxx, BO ITE = boite, CALLERWIDID = CallerWidId, DATE1 = date1, DATE2 = date2, PETIT = petit, MULTISTRUCTURE = multistructure, REDRAW = redraw, SEPARATE = separate, UVALUE = uvalue, RESTORE = restore, _EXTRA = ex141 PRO xxx, BOXZOOM = boxzoom, CALLERWIDID = CallerWidId, DATE1 = date1, DATE2 = date2, SMALL = small, MULTISTRUCTURE = multistructure, REDRAW = redraw, SEPARATE = separate, UVALUE = uvalue, RESTORE = restore, _EXTRA = ex 142 142 ;------------------------------------------------------------ 143 143 @common … … 150 150 ; appele le nouveau widget que l''on est en train de mettre en place 151 151 if keyword_set(restore) then BEGIN 152 restore = isafile(filename = restore, iodir = homedir )152 restore = isafile(filename = restore, iodir = homedir, _extra = ex) 153 153 if size(restore, /type) NE 7 then restore = 0 ELSE BEGIN 154 restore, isafile(file = restore, io = homedir)154 restore, isafile(file = restore, iodir = homedir, _extra = ex) 155 155 newgrid = *(extractatt(uvalue, 'meshparameters'))[0] 156 156 change = changegrid(newgrid) … … 191 191 graphtypeid = widget_droplist(base111, value = graphtype, uname = 'action', uvalue = {name:'action', choix:graphtype}) 192 192 ; configuration de la page 193 if n_elements( petit) eq 0 then BEGIN194 petitin = [1, 1, 1]195 petitout = [1, 1, 1]193 if n_elements(small) eq 0 then BEGIN 194 smallin = [1, 1, 1] 195 smallout = [1, 1, 1] 196 196 endif 197 197 if keyword_set(uvalue) then begin 198 petitin = extractatt(uvalue, 'petitin')199 petitout = extractatt(uvalue, 'petitout')200 endif 201 nbredessin = petitin[0]*petitin[1]202 numdessinin = petitin[2]-1203 ; 204 rien = cw_miseenpage(base11, petitin, /row, /frame)198 smallin = extractatt(uvalue, 'smallin') 199 smallout = extractatt(uvalue, 'smallout') 200 endif 201 nbredessin = smallin[0]*smallin[1] 202 numdessinin = smallin[2]-1 203 ; 204 rien = cw_miseenpage(base11, smallin, /row, /frame) 205 205 ; mapping du boutton 'OK' 206 206 if keyword_set(uvalue) then flag = extractatt(uvalue,'optionsflag') $ 207 ; ELSE flag = [0, key_portrait, 0, 1, 0, 0, 0]#replicate(1, petitin[2]-1)207 ; ELSE flag = [0, key_portrait, 0, 1, 0, 0, 0]#replicate(1, smallin[2]-1) 208 208 ELSE flag = [1, key_portrait, 0, 0, 0, 0]#replicate(1, nbredessin) 209 currentflag = flag[*, petitin[2]-1]209 currentflag = flag[*, smallin[2]-1] 210 210 widget_control, baseok, map = currentflag[0] 211 211 ; … … 236 236 widget_control, widget_info(CallerWidId, find_by_uname = 'nom_exp'), get_value = value 237 237 value = value[0] 238 ENDIF ELSE value = prefix238 ENDIF ELSE value = varexp 239 239 rien=widget_text(base11, value = value, uvalue={name:'nom_exp'}, uname='nom_exp', /editable) 240 240 ; liste des variables … … 266 266 vargrid = strupcase((*fileparameters[currentfile]).listgrid[selectvar]) 267 267 IF vargrid EQ 'W' then zgrid = 'W' ELSE zgrid = 'T' 268 rien = cw_domain(base1, uname = 'domain', uvalue = {name:'domain'}, /unzoom, /frame, bo ite = boite, row = 1-(key_portrait OR keyword_set(SEPARATE)), column = key_portrait OR keyword_set(SEPARATE))268 rien = cw_domain(base1, uname = 'domain', uvalue = {name:'domain'}, /unzoom, /frame, boxzoom = boxzoom, row = 1-(key_portrait OR keyword_set(SEPARATE)), column = key_portrait OR keyword_set(SEPARATE)) 269 269 ;------------------------------------------------------------ 270 270 ; 3eme ligne … … 323 323 globalcommand = extractatt(top_uvalue, 'globalcommand') 324 324 ; on complete par le premiere et les dernieres lignes du programme 325 globalcommand = ['pro xxx2ps, NOERASE = noerase, POSTSCRIPT = postscript, PORTRAIT = portrait, LANDSCAPE = landscape' $ 326 , globalcommand $ 327 , 'return', 'end'] 328 putfile, homedir+'xxx2ps.pro', globalcommand ; on l''ecrit 329 resolve_routine, 'xxx2ps' ; on le compile 330 xxx2ps, /noerase, portrait = portrait ; on l''applique 325 createpro, globalcommand, filename = myuniquetmpdir + 'xxx2ps.pro' $ 326 , KWDLIST = ', NOERASE = noerase, POSTSCRIPT = postscript, PORTRAIT = portrait, LANDSCAPE = landscape' $ 327 , KWDUSED = ', /noerase, PORTRAIT = portrait' 331 328 END 332 329 keyword_set(restore):begin … … 394 391 ; variables se rapportant au widget en general 395 392 *top_uvalue[0, 0] = 'options' & *top_uvalue[1, 0] = options 396 *top_uvalue[0, 1] = ' petitin' & *top_uvalue[1, 1] = petitin397 *top_uvalue[0, 2] = ' petitout' & *top_uvalue[1, 2] = petitout393 *top_uvalue[0, 1] = 'smallin' & *top_uvalue[1, 1] = smallin 394 *top_uvalue[0, 2] = 'smallout' & *top_uvalue[1, 2] = smallout 398 395 *top_uvalue[0, 3] = 'graphid' & *top_uvalue[1, 3] = graphid 399 396 *top_uvalue[0, 4] = 'alreadyvector' & *top_uvalue[1, 4] = -1 … … 426 423 ; 427 424 widget_control, base, set_uvalue = top_uvalue 428 createhistory, base, petitin425 createhistory, base, smallin 429 426 ; 430 427 ENDELSE
Note: See TracChangeset
for help on using the changeset viewer.