Changeset 69 for trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_pagelayout.pro

Timestamp:

05/11/06 12:35:53 (18 years ago)

Author:

smasson

Message:

debug + new xxx

File:

• trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_pagelayout.pro (moved) (moved from trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_miseenpage.pro) (4 diffs)

trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_pagelayout.pro

@@ -1 +1 @@
 ;*********************************************************************
 ;*********************************************************************
-FUNCTION cw_miseenpage_event, event
+FUNCTION cw_pagelayout_event, event
 
    widget_control, event.id, get_uvalue=uval
@@ -46 +46 @@
       createhistory, event.top, smallin
 ;         
-         options = extractatt(top_uvalue, 'options')   
-         flags = extractatt(top_uvalue, 'optionsflag')
-         xlonindex = where(options EQ 'Longitude / x index')
-         xlonflag = flags[xlonindex, numdessinin] & xlonflag = xlonflag[0]
-         ylatindex = where(options EQ 'Latitude / y index')
-         ylatflag = flags[ylatindex, numdessinin] & ylatflag = ylatflag[0]
+      options = extractatt(top_uvalue, 'options')   
+      flags = extractatt(top_uvalue, 'optionsflag')
+      flag = flags[*, numdessinin]
 ;         
-      flag = [1, key_portrait, 0, 0, 0, 0]
-      flag[xlonindex] = xlonflag
-      flag[ylatindex] = ylatflag
-;         
-; actualisation de la top_uvalue...
+; update and reset all values of the top_uvalue...
 ;
       *top_uvalue[1, findline(top_uvalue, 'smallin')] = smallin
@@ -66 +59 @@
       *top_uvalue[1, findline(top_uvalue, 'yenvs')] = replicate(!y, nbredessin)
 ;
-      old = (extractatt(top_uvalue, 'nameprocedures'))[numdessinin]
-      new = strarr(nbredessin)
-      new[0] = old
-      *top_uvalue[1, findline(top_uvalue, 'nameprocedures')] = new
-;
-      old = (extractatt(top_uvalue, 'types'))[numdessinin]
-      new = strarr(nbredessin)
-      new[0] = old
-      *top_uvalue[1, findline(top_uvalue, 'types')] = new
-;
-      old = (extractatt(top_uvalue,  'champs'))[*, numdessinin]
-      new = strarr(2, nbredessin)
-      new[*, 0] = old
-      *top_uvalue[1, findline(top_uvalue, 'champs')] = new
-;
-      old = (extractatt(top_uvalue, 'domaines'))[*, numdessinin]
-      new = fltarr(6, nbredessin)
-      new[*, 0] = old
-      *top_uvalue[1, findline(top_uvalue, 'domaines')] = new
-;
-      old = (extractatt(top_uvalue, 'dates'))[*, numdessinin]
-      new = lonarr(2, nbredessin)
-      new[*, 0] = old
-      *top_uvalue[1, findline(top_uvalue, 'dates')] = new
-;
-      old = (extractatt(top_uvalue,  'prefixes'))[numdessinin]
-      new = strarr(nbredessin)
-      new[0] = old
-      *top_uvalue[1, findline(top_uvalue, 'prefixes')] = new
-;
-      new = flag#replicate(1, nbredessin)
-      *top_uvalue[1, findline(top_uvalue, 'optionsflag')] = new
+      *top_uvalue[1, findline(top_uvalue, 'nameprocedures')] = strarr(nbredessin)
+      *top_uvalue[1, findline(top_uvalue, 'types')] = strarr(nbredessin)
+      *top_uvalue[1, findline(top_uvalue, 'varinfo')] = strarr(2, nbredessin)
+      *top_uvalue[1, findline(top_uvalue, 'domaines')] = fltarr(6, nbredessin)
+      *top_uvalue[1, findline(top_uvalue, 'dates')] = lonarr(2, nbredessin)
+      *top_uvalue[1, findline(top_uvalue, 'txtcmd')] = strarr(nbredessin)
+      *top_uvalue[1, findline(top_uvalue, 'optionsflag')] = flag#replicate(1, nbredessin)
 ;
       ptr_free, extractatt(top_uvalue, 'exextra')
@@ -108 +76 @@
 end
 ;*********************************************************************
-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))
-   row = keyword_set(row)*(1-keyword_set(column)) +(keyword_set(row) EQ column)
+FUNCTION cw_pagelayout, parent, small, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, COLUMN = column, ROW = row, _extra = ex
 ;------------------------------------------------
-   if NOT keyword_set(uvalue) then uvalue = ''
-   if NOT keyword_set(uname) then uname = ''
-   base = widget_base(parent, ROW = row, COLUMN = column  $
-                      , EVENT_FUNC = 'cw_miseenpage_event' $
-                      , FUNC_GET_VALUE='cw_miseenpage_get_value' $
-                      , PRO_SET_VALUE='cw_miseenpage_set_value' $
-                      , UVALUE = uvalue, UNAME = uname, _extra = ex)   
+  row = keyword_set(row)*(1-keyword_set(column))  
+  if NOT keyword_set(uvalue) then uvalue = ''
+  if NOT keyword_set(uname) then uname = ''
+  base = widget_base(parent $
+                     , EVENT_FUNC = 'cw_pagelayout_event' $
+                     , FUNC_GET_VALUE = 'cw_pagelayout_get_value' $
+                     , PRO_SET_VALUE = 'cw_pagelayout_set_value' $
+                     , UVALUE = uvalue, UNAME = uname, space = 0, _extra = ex)   
 ;------------------------------------------------
-   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 = 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 = small[1]-1
-   basebutton = widget_base(base, /column, /align_center)
-   rien = widget_button(basebutton, value = 'Clear', uvalue ={name:'clear'}, uname='clear')
-   rien = widget_button(basebutton, value = 'Undo', uvalue ={name:'undo'}, uname='undo')
+  IF n_elements(small) eq 0 then small = [1, 1, 1]
+;
+  dummy = widget_label(base, value = 'cln', yoffset = 3)
+  id = widget_combobox(base, value = strtrim(indgen(9)+1, 1), uvalue = {name:'column'} $
+                       , uname = 'column', xoffset = 20, xsize = 40)
+  widget_control, id, set_combobox_select = small[0]-1
+;
+  IF keyword_set(row) THEN BEGIN 
+    xoff = 60
+    yoff = 0
+  ENDIF ELSE BEGIN 
+    xoff = 0
+    yoff = 20
+  ENDELSE 
+  dummy = widget_label(base, value = 'row', xoffset = xoff, yoffset = yoff+3)
+  id = widget_combobox(base, value = strtrim(indgen(9)+1, 1), uvalue = {name:'row'} $
+                       , uname = 'row', xoffset = xoff+20, xsize = 40, yoffset = yoff)
+  widget_control, id, set_combobox_select = small[1]-1
 ;------------------------------------------------
 ;------------------------------------------------
-   return, base
+  return, base
 end
 ;*********************************************************************