Ignore:
Timestamp:
06/19/06 16:14:56 (18 years ago)
Author:
smasson
Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/HOPE/cw_selectinterval.pro

    r53 r114  
    11 
    2 PRO testwid_event, event 
    3    widget_control, event.id, get_uvalue=uval 
    4    if n_elements(uval) EQ 0 then return 
    5    case uval of 
    6       'done':widget_control, event.top, /destroy 
    7       'get':BEGIN 
    8          id = widget_info(event.top,find_by_uname = 'discret') 
    9          widget_control, id, get_value = value1 
    10          help, value1 
    11          print, 'value1', value1 
    12          id = widget_info(event.top,find_by_uname = 'continus') 
    13          widget_control, id, get_value = value2 
    14          help, value2 
    15          print, 'value2', value2 
    16       END 
    17       ELSE: 
    18    endcase 
    19    return 
    20 end 
    21 PRO testwid, _extra = ex 
    22    base=widget_base(/COLUMN) 
    23    nothing = widget_label(base, value = 'beginning of the test') 
    24 ; 
    25    nothing = cw_selectinterval(base, 10+indgen(5), _extra = ex, uname = 'discret', uvalue = 'discret') 
    26    print, nothing 
    27    nothing = cw_selectinterval(base, indgen(20), _extra = ex, uname = 'continus', uvalue = 'continus') 
    28    print, nothing 
    29 ; 
    30    nothing = widget_button(base, value = 'get', uvalue = 'get') 
    31    nothing = widget_button(base, value = 'done', uvalue = 'done') 
    32    widget_control, base, /REALIZE 
    33    xmanager,'testwid', base, /no_block 
    34    return 
    35 end 
     2; PRO testwid_event, event 
     3; ; 
     4;   compile_opt idl2, strictarrsubs 
     5; ; 
     6;    widget_control, event.id, get_uvalue=uval 
     7;    if n_elements(uval) EQ 0 then return 
     8;    case uval of 
     9;       'done':widget_control, event.top, /destroy 
     10;       'get':BEGIN 
     11;          id = widget_info(event.top,find_by_uname = 'discret') 
     12;          widget_control, id, get_value = value1 
     13;          help, value1 
     14;          print, 'value1', value1 
     15;          id = widget_info(event.top,find_by_uname = 'continus') 
     16;          widget_control, id, get_value = value2 
     17;          help, value2 
     18;          print, 'value2', value2 
     19;       END 
     20;       ELSE: 
     21;    endcase 
     22;    return 
     23; end 
     24; PRO testwid, _extra = ex 
     25; ; 
     26;   compile_opt idl2, strictarrsubs 
     27; ; 
     28;    base=widget_base(/COLUMN) 
     29;    nothing = widget_label(base, value = 'beginning of the test') 
     30; ; 
     31;    nothing = cw_selectinterval(base, 10+indgen(5), _extra = ex, uname = 'discret', uvalue = 'discret') 
     32;    print, nothing 
     33;    nothing = cw_selectinterval(base, indgen(20), _extra = ex, uname = 'continus', uvalue = 'continus') 
     34;    print, nothing 
     35; ; 
     36;    nothing = widget_button(base, value = 'get', uvalue = 'get') 
     37;    nothing = widget_button(base, value = 'done', uvalue = 'done') 
     38;    widget_control, base, /REALIZE 
     39;    xmanager,'testwid', base, /no_block 
     40;    return 
     41; end 
    3642;-------------------------------------------------------------------------- 
    3743;-------------------------------------------------------------------------- 
    3844;-------------------------------------------------------------------------- 
    3945function cw_selectinterval_get_value, id 
     46; 
     47  compile_opt idl2, strictarrsubs 
     48; 
    4049   bgroupid=widget_info(id, find_by_uname = 'bgroup') 
    4150; the widget is a set of button 
    … …  
    6069;-------------------------------------------------------------------------- 
    6170function cw_selectinterval_event, event 
     71; 
     72  compile_opt idl2, strictarrsubs 
     73; 
    6274   widget_control, event.id, get_uvalue=uval 
    6375   case uval.name of 
    … …  
    7789;-------------------------------------------------------------------------- 
    7890function cw_selectinterval, parent, vecteur, _extra = ex 
     91; 
     92  compile_opt idl2, strictarrsubs 
     93; 
    7994 
    8095   base = widget_base(parent $ 
Note: See TracChangeset for help on using the changeset viewer.