Changeset 49 for trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/updatewidget.pro
- Timestamp:
- 05/09/06 11:47:44 (18 years ago)
- File:
-
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
trunk/ToBeReviewed/WIDGET/AUTOUR_de_XXX/updatewidget.pro
r47 r49 1 PRO updatewidget, base, NOBO ITE = noboite, NODATES = nodates, NOTYPE = notype1 PRO updatewidget, base, NOBOXZOOM = noboxzoom, NODATES = nodates, NOTYPE = notype 2 2 ;---------------------------------------------------------------------- 3 3 widget_control,base, get_uvalue = top_uvalue 4 petitin = extractatt(top_uvalue, 'petitin')5 numdessinin = petitin[2]-14 smallin = extractatt(top_uvalue, 'smallin') 5 numdessinin = smallin[2]-1 6 6 ; 7 7 ;---------------------------------------------------------------------- … … 20 20 ; domaine 21 21 ;-------------- 22 bo ite= (extractatt(top_uvalue, 'domaines'))[*, numdessinin]23 if total(bo ite) EQ 0 then boite= -124 if keyword_set(nobo ite) then boite= 022 boxzoom = (extractatt(top_uvalue, 'domaines'))[*, numdessinin] 23 if total(boxzoom) EQ 0 then boxzoom = -1 24 if keyword_set(noboxzoom) then boxzoom = 0 25 25 ;-------------- 26 26 ; champ: filename & nomvar … … 30 30 ; 31 31 if filename NE '' OR nomvar NE '' THEN BEGIN 32 changefile, base, filename, fieldname = nomvar, BO ITE = boite, DATE1 = date1, DATE2 = date232 changefile, base, filename, fieldname = nomvar, BOXZOOM = boxzoom, DATE1 = date1, DATE2 = date2 33 33 ENDIF ELSE BEGIN 34 34 if date1 NE 0 then begin … … 40 40 widget_control, date2id, set_value = date2 41 41 endif 42 if keyword_set(bo ite) then BEGIN42 if keyword_set(boxzoom) then BEGIN 43 43 domainid = widget_info(base, find_by_uname = 'domain') 44 widget_control, domainid, set_value = bo ite44 widget_control, domainid, set_value = boxzoom 45 45 endif 46 46 ENDELSE
Note: See TracChangeset
for help on using the changeset viewer.