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

Timestamp:

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

Author:

smasson

Message:

debug + new xxx

File:

• trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro (modified) (4 diffs)

trunk/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro

@@ -14 +14 @@
       if strtrim(autresautres, 2) NE '' then begin
          nothing = execute('autresautres = get_extra('+autresautres+')')
+;         autresautres = createfunc('get_extra('+autresautres+')')
          autres = mixstru(autres, autresautres)
       endif
@@ -38 +39 @@
    if strtrim(autres, 2) NE '' then $
     rien = execute('exextra = get_extra('+autres+', _extra = exextra)')
+;    exextra = createfunc('get_extra('+autres+', _extra = exextra)')
    return, exextra
 end
@@ -47 +49 @@
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-   widget_control, event.id, get_uvalue = uval
-   widget_control, event.top, get_uvalue = top_uvalue
-   smallin = extractatt(top_uvalue, 'smallin')
-   numdessinin = smallin[2]-1
-   smallout = extractatt(top_uvalue, 'smallout')
-   numdessinout = smallout[2]-1
+  widget_control, event.id, get_uvalue = uval
+  widget_control, event.top, get_uvalue = top_uvalue
+  smallin = extractatt(top_uvalue, 'smallin')
+  numdessinin = smallin[2]-1
+  smallout = extractatt(top_uvalue, 'smallout')
+  numdessinout = smallout[2]-1
 ;------------------------------------------------------------
-   case uval of
-      'default':BEGIN 
+  case uval of
+    'default':BEGIN 
 ;---------------
 ; on trouve le nom de la variable:
 ;---------------
-         champid = widget_info(event.top, find_by_uname = 'champ')
-         currentfile = extractatt(top_uvalue, 'currentfile')
-         listvar = (*(extractatt(top_uvalue, 'fileparameters'))[currentfile]).listvar
-         varname = listvar[widget_info(champid, /droplist_select)]
+      vlstid = widget_info(base, find_by_uname = 'varlist')
+      fieldname = widget_info(vlstid, /combobox_gettext)
 ;---------------
-         exextra = definedefaultextra(varname)
-         widget_control, widget_info(event.handler,find_by_uname='min'), set_value = strtrim(exextra.min, 1)
-         widget_control, widget_info(event.handler,find_by_uname='max'), set_value = strtrim(exextra.max, 1)
-         widget_control, widget_info(event.handler,find_by_uname='int'), set_value = strtrim(exextra.inter, 1)
-         widget_control, widget_info(event.handler,find_by_uname='palnum'), set_value = strtrim(exextra.lct, 1)
-         widget_control, widget_info(event.handler,find_by_uname='autres'), set_value = ''
-      END
-      'palcol':BEGIN 
-         ind = fix(strmid(event.value, 0, strpos(event.value, '-')))
-         widget_control, widget_info(event.handler,find_by_uname='palnum'), set_value = strtrim(ind, 1)
-      END
-      'ok':
-      ELSE:
-   endcase
-   return,{ID:event.handler, TOP:event.top, HANDLER:0L, OK:uval EQ 'ok'}
+      exextra = definedefaultextra(varname)
+      widget_control, widget_info(event.handler, find_by_uname = 'min'), set_value = strtrim(exextra.min, 1)
+      widget_control, widget_info(event.handler, find_by_uname = 'max'), set_value = strtrim(exextra.max, 1)
+      widget_control, widget_info(event.handler, find_by_uname = 'int'), set_value = strtrim(exextra.inter, 1)
+      widget_control, widget_info(event.handler, find_by_uname = 'palnum'), set_value = strtrim(exextra.lct, 1)
+      widget_control, widget_info(event.handler, find_by_uname = 'autres'), set_value = ''
+    END
+    'palcol':BEGIN 
+      ind = fix(strmid(event.value, 0, strpos(event.value, '-')))
+      widget_control, widget_info(event.handler, find_by_uname = 'palnum'), set_value = strtrim(ind, 1)
+    END
+    ELSE:
+  endcase
+  return, {ID:event.handler, TOP:event.top, HANDLER:0L, OK:uval EQ 'ok'}
 end
 ;*****************************************************
@@ -89 +88 @@
    if NOT keyword_set(uvalue) then uvalue = ''
    if NOT keyword_set(uname) then uname = ''
-   base = widget_base(parent, ROW = row, COLUMN = column  $
+   base = widget_base(parent, space = 0, /frame $
                       , EVENT_FUNC = 'cw_specifie_event' $
                       , FUNC_GET_VALUE='cw_specifie_get_value' $
                       , PRO_SET_VALUE='cw_specifie_set_value' $
                       , UVALUE = uvalue, UNAME = uname, _extra = ex)   
-; base1 pour specifier le min, le max et l''intervalle
-   base1 = widget_base(base, /row, /frame)
-   rien = widget_label(base1, value = 'Min')
-   rien = widget_text(base1, value = '', /editable, xsize = 5, uname = 'min', uvalue = 'min')
-   rien = widget_label(base1, value = 'Max')
-   rien = widget_text(base1, value = '', /editable, xsize = 5, uname = 'max', uvalue = 'max')
-   rien = widget_label(base1, value = 'Int')
-   rien = widget_text(base1, value = '', /editable, xsize = 5, uname = 'int', uvalue = 'int')
-; base2 por specifier la palette de couleur (soit par numero soit ds
-; un menu deroulant)
-   if keyword_set(FORXXX) then base2 = widget_base(base, /row, /frame) ELSE base2 = base1
-   rien = widget_label(base2, value = 'Pal Numb')
-   if keyword_set(forxxx) then colvalue = '' ELSE colvalue = '39'
-   rien = widget_text(base2, value = colvalue, /editable, xsize = 3, uname = 'palnum', uvalue = 'palnum')
-   lct,  get_name = nomcouleur
+; base1 
+   base1 = widget_base(base)
+   rien = widget_label(base1, value = 'Min', xoffset =  85, yoffset = 15)
+   rien = widget_label(base1, value = 'Max', xoffset = 145, yoffset = 15)
+   rien = widget_label(base1, value = 'Int', xoffset = 210, yoffset = 15)
+;
+   lct, get_name = nomcouleur
    nbrligne = 30
    nbrlist = n_elements(nomcouleur)/nbrligne
    nomcouleur = strtrim(sindgen(n_elements(nomcouleur)), 1)+'- '+nomcouleur
    nomcouleur = '0\'+nomcouleur
-   nomcouleur = ['1\color palette', nomcouleur]
+   nomcouleur = ['1\Color', nomcouleur]
    if nbrlist GT 1 then for i = 1,nbrlist do $
     nomcouleur = [nomcouleur[0:nbrligne*i-1+i], '1\ ', nomcouleur[nbrligne*i+i:n_elements(nomcouleur)-1]]
-   rien = cw_pdmenu(base2,nomcouleur, /RETURN_NAME , uvalue = 'palcol', uname = 'palcol')
+   rien = cw_pdmenu(base1, nomcouleur, /RETURN_NAME , uvalue = 'palcol', uname = 'palcol', xoffset = 250, yoffset = 0)
+; base2
+   base2 = widget_base(base, column = 4+keyword_set(forxxx), yoffset = 30)
+   if keyword_set(forxxx) then rien = widget_button(base2,value='Default', uvalue = 'default', /frame, tooltip = 'see '+find('definedefaultextra'))
+   rien = widget_text(base2, value = '', /editable, xsize = 7, uname = 'min', uvalue = 'min')
+   rien = widget_text(base2, value = '', /editable, xsize = 7, uname = 'max', uvalue = 'max')
+   rien = widget_text(base2, value = '', /editable, xsize = 7, uname = 'int', uvalue = 'int')
+   if keyword_set(forxxx) then colvalue = '' ELSE colvalue = '39'
+   rien = widget_text(base2, value = colvalue, /editable, xsize = 2, uname = 'palnum', uvalue = 'palnum')
 
-; baseavantfin pour passer tous les mots cles possibles...
+
+
 ; widget text contennant les autres mots cles passe ds top_uvalue.exextra
 ; en reste-t-il? si oui, il faut les mettres sous forme de string
+   
+   rien = widget_text(base, value = '  ', /editable, uname = 'autres', uvalue = 'autres', xsize = 54, ysize = 3, yoffset = 65, /wrap, /no_newline)
 
-   baseavantfin = widget_base(base, /row, /frame)
-   rien = widget_label(baseavantfin, value = 'Keywords')
-   rien = widget_text(baseavantfin, value = '  ', /editable, uname = 'autres', uvalue = 'autres', scr_xsize = 400)
-   if keyword_set(forxxx)  then begin
-; basefin pour en finir, 2 boutons: Default/OK
-      basefin = widget_base(base, /row, /frame, /align_center)
-      rien = widget_button(basefin,value='Default', uvalue = 'default')
-      rien = widget_button(basefin,value='OK', uvalue = 'ok')
-; on intialise les widget_text:
-      cw_specifie_set_value, base, definedefaultextra('rien_du_tout')
-   endif
+    if keyword_set(forxxx) then cw_specifie_set_value, base, definedefaultextra('rien_du_tout')
 
 ;------------------------------------------------