Changeset 74 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro

Timestamp:

05/23/06 15:45:47 (18 years ago)

Author:

smasson

Message:

debug xxx and cie + clean data file + rm perldoc_idl

File:

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

trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_specifie.pro

@@ -2 +2 @@
 ;*****************************************************
 PRO cw_specifie_set_value, id, value
+@cm_general
    if size(value, /type) NE 8 then return
    widget_control, widget_info(id,find_by_uname='min'), set_value = strtrim(value.min, 2)
@@ -10 +11 @@
    if size(autres, /type) EQ 8 then BEGIN 
       autresid = widget_info(id,find_by_uname='autres')
-      widget_control, widget_info(id,find_by_uname='autres'), get_value = autresautres
+      widget_control, widget_info(id, find_by_uname = 'autres'), get_value = autresautres
       autresautres = autresautres[0]
       if strtrim(autresautres, 2) NE '' then begin
-         nothing = execute('autresautres = get_extra('+autresautres+')')
-;         autresautres = createfunc('get_extra('+autresautres+')')
-         autres = mixstru(autres, autresautres)
+        autresautres = createfunc('get_extra(' + autresautres + ')' $
+                                  , filename = myuniquetmpdir +'for_createfunc.pro')
+        autres = mixstru(autres, autresautres)
       endif
       autres = strkeywd(autres)
@@ -25 +26 @@
 ;*****************************************************
 FUNCTION cw_specifie_get_value, id
+@cm_general
    widget_control, widget_info(id,find_by_uname='min'), get_value = min
    min = float(min[0])
@@ -38 +40 @@
    exextra = {min:min, max:max, inter:int, lct:palnum}
    if strtrim(autres, 2) NE '' then $
-    rien = execute('exextra = get_extra('+autres+', _extra = exextra)')
-;    exextra = createfunc('get_extra('+autres+', _extra = exextra)')
+      exextra = createfunc('get_extra('+autres+', _extra = exextra)' $
+                           , kwdlist = 'exextra = exextra', exextra = exextra $
+                           , filename = myuniquetmpdir +'for_createfunc.pro')
+;
    return, exextra
 end
@@ -61 +65 @@
 ; on trouve le nom de la variable:
 ;---------------
-      vlstid = widget_info(base, find_by_uname = 'varlist')
+      vlstid = widget_info(event.top, find_by_uname = 'varlist')
       fieldname = widget_info(vlstid, /combobox_gettext)
 ;---------------
-      exextra = definedefaultextra(varname)
+      exextra = definedefaultextra(fieldname)
       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)
@@ -110 +114 @@
 ; 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'))
+   if keyword_set(forxxx) then rien = widget_button(base2,value='Default', uvalue = 'default', /frame, tooltip = 'see '+(find('definedefaultextra'))[0])
    rien = widget_text(base2, value = '', /editable, xsize = 7, uname = 'min', uvalue = 'min')
    rien = widget_text(base2, value = '', /editable, xsize = 7, uname = 'max', uvalue = 'max')