Changeset 242 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET

Timestamp:

04/06/07 10:35:17 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers + replace some message by some report

Location:

trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET

Files:

• cw_bgroup.pro (modified) (2 diffs)
• cw_combobox_pm.pro (modified) (2 diffs)
• cw_droplist_pm.pro (modified) (2 diffs)
• cw_slider_pm.pro (modified) (2 diffs)

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

@@ -26 +26 @@
 ;
 PRO cw_bgroup_setv, id, value
+;
   compile_opt hidden, idl2, strictarrsubs
-
+;
   ON_ERROR, 2                       ;return to caller
 
@@ -350 +351 @@
 
 
-  IF (N_PARAMS() ne 2) THEN MESSAGE, 'Incorrect number of arguments'
+  IF (N_PARAMS() ne 2) THEN ras = report('Incorrect number of arguments')
 
   ON_ERROR, 2                       ;return to caller

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

@@ -1 @@
-; testwid, value=strtrim(indgen(10),2)
-; PRO testwid_event, event
-; ;   help, event, /STRUCT
-;    ComboboxId = widget_info(event.top,find_by_uname = 'c''est lui')
-;    widget_control, event.id, get_uvalue=uval
-;    if n_elements(uval) EQ 0 then return
-;    case uval of
-;       'done':widget_control, event.top, /destroy
-;       'dynamic_resize':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, ComboboxId, set_value = {dynamic_resize:value}
-;       END
-;       'combobox_select':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, ComboboxId, set_value = {combobox_select:value}
-;       END
-;       'value':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, ComboboxId, set_value = value
-;       END
-;       'get':BEGIN
-;          widget_control, ComboboxId, get_value = value
-;          help,  value, /struct
-;       END
-;       ELSE:
-;    endcase
-;    return
-; end
-; PRO testwid, _extra = ex
-;    base=widget_base(/COLUMN)
-; print, 'base=', base
-;    nothing = widget_label(base, value = 'beginning of the test')
-; ;
-;    nothing = cw_combobox_pm(base, _extra = ex, uname = 'c''est lui', uvalue = 'c''est lui')
-; print, 'cw_combobox_pm ID =', nothing
-; ;
-;    nothing = widget_label(base, value = 'end of the test')
-;    nothing = widget_text(base, value = '0', uvalue = 'dynamic_resize', /editable)
-;    nothing = widget_text(base, value = '10', uvalue = 'combobox_select', /editable)
-;    nothing = widget_text(base, value = '5', uvalue = 'value', /editable)
-;    nothing = widget_button(base, value = 'get', uvalue = 'get')
-;    nothing = widget_button(base, value = 'done', uvalue = 'done')
-;    widget_control, base, /REALIZE
-;    xmanager,'testwid', base
-;    return
-; end
-;+
-;
-; @file_comments
-;
+;+
+;
+; @file_comments
 ;
 ; @categories
@@ -300 +253 @@
 ;
 
-   IF (N_PARAMS() NE 1) THEN MESSAGE, 'Incorrect number of arguments'
+   IF (N_PARAMS() NE 1) THEN ras = report('Incorrect number of arguments')
    ON_ERROR, 2                  ;return to caller
 ; checking for row and column keywords

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

@@ -1 @@
-; PRO testwid_event, event
-; ;   help, event, /STRUCT
-;    DroplistId = widget_info(event.top,find_by_uname = 'c''est lui')
-;    widget_control, event.id, get_uvalue=uval
-;    if n_elements(uval) EQ 0 then return
-;    case uval of
-;       'done':widget_control, event.top, /destroy
-;       'dynamic_resize':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, DroplistId, set_value = {dynamic_resize:value}
-;       END
-;       'droplist_select':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, DroplistId, set_value = {droplist_select:value}
-;       END
-;       'value':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, DroplistId, set_value = value
-;       END
-;       'get':BEGIN
-;          widget_control, DroplistId, get_value = value
-;          help,  value, /struct
-;       END
-;       ELSE:
-;    endcase
-;    return
-; end
-; PRO testwid, _extra = ex
-;    base=widget_base(/COLUMN)
-; print, 'base=', base
-;    nothing = widget_label(base, value = 'beginning of the test')
-; ;
-;    nothing = cw_droplist_pm(base, _extra = ex, uname = 'c''est lui', uvalue = 'c''est lui')
-; print, 'cw_droplist_pm ID =', nothing
-; ;
-;    nothing = widget_label(base, value = 'end of the test')
-;    nothing = widget_text(base, value = '0', uvalue = 'dynamic_resize', /editable)
-;    nothing = widget_text(base, value = '10', uvalue = 'droplist_select', /editable)
-;    nothing = widget_text(base, value = '5', uvalue = 'value', /editable)
-;    nothing = widget_button(base, value = 'get', uvalue = 'get')
-;    nothing = widget_button(base, value = 'done', uvalue = 'done')
-;    widget_control, base, /REALIZE
-;    xmanager,'testwid', base
-;    return
-; end
-;
 ;+
 ;
@@ -286 +240 @@
 ;
 
-   IF (N_PARAMS() NE 1) THEN MESSAGE, 'Incorrect number of arguments'
+   IF (N_PARAMS() NE 1) THEN ras = report('Incorrect number of arguments')
    ON_ERROR, 2                  ;return to caller
 ; checking for row and column keywords

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

@@ -1 @@
-; PRO testwid_event, event
-; ;   help, event, /STRUCT
-;    SliderBarId = widget_info(event.top,find_by_uname = 'c''est lui')
-;    widget_control, event.id, get_uvalue=uval
-;    if n_elements(uval) EQ 0 then return
-;    case uval of
-;       'done':widget_control, event.top, /destroy
-;       'slider_min':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, SliderBarId, set_value = {slider_min:value}
-;       END
-;       'slider_max':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, SliderBarId, set_value = {slider_max:value}
-;       END
-;       'slider_value':BEGIN
-;          widget_control, event.id, get_value = value
-;          widget_control, SliderBarId, set_value = value
-;       END
-;       'get':BEGIN
-;          widget_control, SliderBarId, get_value = value
-;          help,  value, /struct
-;          print, value.slider_min_max
-;       END
-;       ELSE:
-;    endcase
-;    return
-; end
-; PRO testwid, _extra = ex
-;    base=widget_base(/COLUMN)
-; print, 'base=', base
-;    nothing = widget_label(base, value = 'beginning of the test')
-; ;
-;    nothing = cw_slider_pm(base, _extra = ex, uname = 'c''est lui', uvalue = 'c''est lui')
-; print, 'cw_slider_pm ID =', nothing
-; ;
-;    nothing = widget_label(base, value = 'end of the test')
-;    nothing = widget_text(base, value = '0', uvalue = 'slider_min', /editable)
-;    nothing = widget_text(base, value = '10', uvalue = 'slider_max', /editable)
-;    nothing = widget_text(base, value = '5', uvalue = 'slider_value', /editable)
-;    nothing = widget_button(base, value = 'get', uvalue = 'get')
-;    nothing = widget_button(base, value = 'done', uvalue = 'done')
-;    widget_control, base, /REALIZE
-;    xmanager,'testwid', base
-;    return
-; end
 ;+
 ;
@@ -389 +343 @@
 ;
 
-  IF (N_PARAMS() NE 1) THEN MESSAGE, 'Incorrect number of arguments'
+  IF (N_PARAMS() NE 1) THEN ras = report('Incorrect number of arguments')
   ON_ERROR, 2                   ;return to caller
 ;