Changeset 51 for trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_miseenpage.pro

Timestamp:

05/09/06 13:04:45 (18 years ago)

Author:

pinsard

Message:

upgrade of COMPOUND_WIDGET according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_miseenpage.pro (copied) (copied from trunk/WIDGET/COMPOUND_WIDGET/cw_miseenpage.pro) (6 diffs)

trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_miseenpage.pro

@@ -6 +6 @@
    widget_control, event.top, get_uvalue=top_uvalue
 ;
-   petitin = extractatt(top_uvalue, 'petitin')
-   numdessinin = petitin[2]-1
-   petitout = extractatt(top_uvalue, 'petitout')
+   smallin = extractatt(top_uvalue, 'smallin')
+   numdessinin = smallin[2]-1
+   smallout = extractatt(top_uvalue, 'smallout')
 ;
    if uval.name EQ 'undo' then begin
@@ -17 +17 @@
 ; si on ne change pas le nombre de colonnes, on sort
       if uval.name EQ 'column' then $
-       if event.index+1 EQ petitin[0] THEN $
+       if event.index+1 EQ smallin[0] THEN $
        return,{ID:event.handler, TOP:event.top, HANDLER:0L}
 ; si on ne change pas le nombre de lignes, on sort
       if uval.name EQ 'row' then $
-       if event.index+1 EQ petitin[1] THEN $
+       if event.index+1 EQ smallin[1] THEN $
        return,{ID:event.handler, TOP:event.top, HANDLER:0L}
 ;
@@ -33 +33 @@
          'clear':
          'column':BEGIN 
-            petitin = [event.index+1, petitin[1], 1]
-            petitout = [event.index+1, petitout[1], 1]
+            smallin = [event.index+1, smallin[1], 1]
+            smallout = [event.index+1, smallout[1], 1]
          END
          'row':BEGIN
-            petitin = [petitin[0], event.index+1, 1]
-            petitout = [petitout[0], event.index+1, 1]
+            smallin = [smallin[0], event.index+1, 1]
+            smallout = [smallout[0], event.index+1, 1]
          END
       endcase
-      nbredessin = petitin[0]*petitin[1]
+      nbredessin = smallin[0]*smallin[1]
 ;         
 ; on remet tout a 0 en ce qui concerne les postscripts
-      createhistory, event.top, petitin
+      createhistory, event.top, smallin
 ;         
          options = extractatt(top_uvalue, 'options')   
@@ -59 +59 @@
 ; actualisation de la top_uvalue...
 ;
-      *top_uvalue[1, findline(top_uvalue, 'petitin')] = petitin
-      *top_uvalue[1, findline(top_uvalue, 'petitout')] = petitout
+      *top_uvalue[1, findline(top_uvalue, 'smallin')] = smallin
+      *top_uvalue[1, findline(top_uvalue, 'smallout')] = smallout
 ;
       *top_uvalue[1, findline(top_uvalue, 'penvs')] = replicate(!p, nbredessin)
@@ -108 +108 @@
 end
 ;*********************************************************************
-FUNCTION cw_miseenpage, parent, petit, UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, UNZOOM = unzoom, _extra = ex
+FUNCTION cw_miseenpage, parent, small, UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, UNZOOM = unzoom, _extra = ex
 ; cheking exclusive keywords
    column = keyword_set(column)*(1-keyword_set(row))
@@ -121 +121 @@
                       , UVALUE = uvalue, UNAME = uname, _extra = ex)   
 ;------------------------------------------------
-   IF n_elements(petit) eq 0 then petit = [1, 1, 1]
+   IF n_elements(small) eq 0 then small = [1, 1, 1]
    basedroplist = widget_base(base, /column, /align_center)
    id=widget_droplist(basedroplist, value=strtrim(indgen(10)+1, 1), title ='column' $
                         , uvalue ={name:'column'}, uname='column')
-   widget_control, id, set_droplist_select = petit[0]-1
+   widget_control, id, set_droplist_select = small[0]-1
    id=widget_droplist(basedroplist, value=strtrim(indgen(10)+1, 1), title =' row ' $
                         , uvalue ={name:'row'}, uname='row')
-   widget_control, id, set_droplist_select = petit[1]-1
+   widget_control, id, set_droplist_select = small[1]-1
    basebutton = widget_base(base, /column, /align_center)
    rien = widget_button(basebutton, value = 'Clear', uvalue ={name:'clear'}, uname='clear')