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

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

Location:
trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET
Files:
8 edited

Legend:

Unmodified
Added
Removed

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

    r69 r114  
    132132 
    133133pro CW_BGROUP_SETV, id, value 
    134   compile_opt hidden 
     134  compile_opt hidden, idl2, strictarrsubs 
    135135 
    136136  ON_ERROR, 2                       ;return to caller 
    … …  
    162162function CW_BGROUP_GETV, id, value 
    163163 
    164   compile_opt hidden 
     164  compile_opt hidden, idl2, strictarrsubs 
    165165  ON_ERROR, 2                       ;return to caller 
    166166 
    … …  
    190190 
    191191function CW_BGROUP_EVENT, ev 
    192   compile_opt hidden 
     192  compile_opt hidden, idl2, strictarrsubs 
    193193  WIDGET_CONTROL, ev.handler, GET_UVALUE=stash 
    194194  WIDGET_CONTROL, stash, GET_UVALUE=state, /NO_COPY 

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

    r69 r114  
    145145;---------------------------------------------------------------------- 
    146146PRO cw_combobox_pm_set_value, id, value 
     147; 
     148  compile_opt idl2, strictarrsubs 
     149; 
    147150   ComboboxId = widget_info(id,find_by_uname = 'Combobox') 
    148151   if size(value, /type) eq 8 then BEGIN ; this is a structure 
    … …  
    163166;---------------------------------------------------------------------- 
    164167FUNCTION cw_combobox_pm_get_value, id 
     168; 
     169  compile_opt idl2, strictarrsubs 
     170; 
    165171   ComboboxId = widget_info(id,find_by_uname = 'Combobox') 
    166172   widget_control, ComboboxId, get_value = cmbbval 
    … …  
    174180;---------------------------------------------------------------------- 
    175181FUNCTION cw_combobox_pm_event, event 
     182; 
     183  compile_opt idl2, strictarrsubs 
     184; 
    176185   widget_control, event.id, get_uvalue=uval 
    177186; 
    … …  
    205214;---------------------------------------------------------------------- 
    206215FUNCTION cw_combobox_pm, parent, VALUE = value, UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, _extra = ex 
     216; 
     217  compile_opt idl2, strictarrsubs 
     218; 
    207219 
    208220   IF (N_PARAMS() NE 1) THEN MESSAGE, 'Incorrect number of arguments' 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro

    r69 r114  
    4040;********************************************************************* 
    4141pro cw_domain_set_value, id, value 
     42; 
     43  compile_opt idl2, strictarrsubs 
     44; 
    4245@cm_4mesh 
    4346; 
    … …  
    257260;********************************************************************* 
    258261FUNCTION cw_domain_get_value, id 
     262; 
     263  compile_opt idl2, strictarrsubs 
     264; 
    259265   box = lonarr(6) 
    260266   possiblecase = ['lon1', 'lon2', 'lat1', 'lat2', 'depth1', 'depth2'] 
    … …  
    268274;********************************************************************* 
    269275FUNCTION cw_domain_event, event 
     276; 
     277  compile_opt idl2, strictarrsubs 
     278; 
    270279@common 
    271280; help,  /struct, event 
    … …  
    411420FUNCTION cw_domain, parent, BOXZOOM = boxzoom, STRICT = strict, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, _extra = ex 
    412421; 
     422; 
     423  compile_opt idl2, strictarrsubs 
     424; 
    413425@cm_4mesh 
    414426@cm_4data 
    … …  
    449461  min = floor(min([glamt, glamf], max = max)) 
    450462  max = ceil(max) 
    451   IF max-min EQ 361 AND keyword_set(key_periodic) THEN max = max-1 
     463  IF max-min GT 360 AND keyword_set(key_periodic) THEN max = min+360 
    452464  lonbase = widget_base(baseh1, column = 2, space = 0, uname = 'lonbase', uvalue = {name:'geographic'}) 
    453465  lon1id = cw_slider_pm(lonbase, value = min > boxzoom[0] < ((boxzoom[1] < max)-keyword_set(strict)) $ 

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

    r51 r114  
    144144;---------------------------------------------------------------------- 
    145145PRO cw_droplist_pm_set_value, id, value 
     146; 
     147  compile_opt idl2, strictarrsubs 
     148; 
    146149   DroplistId = widget_info(id,find_by_uname = 'Droplist') 
    147150   if size(value, /type) eq 8 then BEGIN ; this is a structure 
    … …  
    160163;---------------------------------------------------------------------- 
    161164FUNCTION cw_droplist_pm_get_value, id 
     165; 
     166  compile_opt idl2, strictarrsubs 
     167; 
    162168   DroplistId = widget_info(id,find_by_uname = 'Droplist') 
    163169   return, {droplist_number:widget_info(DroplistId, /droplist_number) $ 
    … …  
    167173;---------------------------------------------------------------------- 
    168174FUNCTION cw_droplist_pm_event, event 
     175; 
     176  compile_opt idl2, strictarrsubs 
     177; 
    169178   widget_control, event.id, get_uvalue=uval 
    170179; 
    … …  
    191200;---------------------------------------------------------------------- 
    192201FUNCTION cw_droplist_pm, parent,UVALUE = uvalue, UNAME = uname, ROW = row, COLUMN = column, _extra = ex 
     202; 
     203  compile_opt idl2, strictarrsubs 
     204; 
    193205 
    194206   IF (N_PARAMS() NE 1) THEN MESSAGE, 'Incorrect number of arguments' 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_pagelayout.pro

    r69 r114  
    22;********************************************************************* 
    33FUNCTION cw_pagelayout_event, event 
     4; 
     5  compile_opt idl2, strictarrsubs 
     6; 
    47 
    58   widget_control, event.id, get_uvalue=uval 
    … …  
    7881FUNCTION cw_pagelayout, parent, small, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, COLUMN = column, ROW = row, _extra = ex 
    7982;------------------------------------------------ 
     83; 
     84  compile_opt idl2, strictarrsubs 
     85; 
    8086  row = keyword_set(row)*(1-keyword_set(column))   
    8187  if NOT keyword_set(uvalue) then uvalue = '' 

  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_slide_slice.pro

    r51 r114  
    11pro cw_slide_slice_set_value, id, value 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25@common 
    36   topid = findtopid(id) 
    … …  
    3437;---------------------------------------------------------------------- 
    3538FUNCTION cw_slide_slice_event,  event 
     39; 
     40  compile_opt idl2, strictarrsubs 
     41; 
    3642@common 
    3743   widget_control, event.id, get_uvalue=uval 
    … …  
    104110;-------------------------------------------------------------------------------- 
    105111FUNCTION cw_slide_slice, parent, boxzoom = boxzoom, UVALUE = uvalue, UNAME = uname, FRAME = frame, ROW = row, COLUMN = column, _extra = ex 
     112; 
     113  compile_opt idl2, strictarrsubs 
     114; 
    106115@common 
    107116;------------------------------------------------ 

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

    r69 r114  
    136136;---------------------------------------------------------------------- 
    137137FUNCTION decvalue, value 
     138; 
     139  compile_opt idl2, strictarrsubs 
     140; 
    138141  a = float(value[0]) 
    139142  return, strtrim(string(floor(a) + 0.1*indgen(10), format = '(f15.1)'), 2) 
    … …  
    141144;---------------------------------------------------------------------- 
    142145FUNCTION decind, value 
     146; 
     147  compile_opt idl2, strictarrsubs 
     148; 
    143149  a = float(value[0]) 
    144150  return, round(10*(a - floor(a))) ; !! computation accuracy 
    … …  
    146152;---------------------------------------------------------------------- 
    147153PRO cw_slider_pm_set_value, id, value 
     154; 
     155  compile_opt idl2, strictarrsubs 
     156; 
    148157  sbid = widget_info(id, find_by_uname = 'SliderBar') 
    149158  dcid = widget_info(id, find_by_uname = 'decimal') 
    … …  
    195204;---------------------------------------------------------------------- 
    196205FUNCTION cw_slider_pm_get_value, id 
     206; 
     207  compile_opt idl2, strictarrsubs 
     208; 
    197209  sbid = widget_info(id, find_by_uname = 'SliderBar') 
    198210  dcid = widget_info(id, find_by_uname = 'decimal') 
    … …  
    203215;---------------------------------------------------------------------- 
    204216FUNCTION cw_slider_pm_event, event 
     217; 
     218  compile_opt idl2, strictarrsubs 
     219; 
    205220  widget_control, event.id, get_uvalue = uval 
    206221; 
    … …  
    237252                       , STRMINLEN = strminlen, VALUE = value, UVALUE = uvalue $ 
    238253                       , UNAME = uname, title = title, _extra = ex 
     254; 
     255  compile_opt idl2, strictarrsubs 
     256; 
    239257 
    240258  IF (N_PARAMS() NE 1) THEN MESSAGE, 'Incorrect number of arguments' 

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

    r74 r114  
    22;***************************************************** 
    33PRO cw_specifie_set_value, id, value 
     4; 
     5  compile_opt idl2, strictarrsubs 
     6; 
    47@cm_general 
    58   if size(value, /type) NE 8 then return 
    … …  
    2629;***************************************************** 
    2730FUNCTION cw_specifie_get_value, id 
     31; 
     32  compile_opt idl2, strictarrsubs 
     33; 
    2834@cm_general 
    2935   widget_control, widget_info(id,find_by_uname='min'), get_value = min 
    … …  
    5359;------------------------------------------------------------ 
    5460;------------------------------------------------------------ 
     61; 
     62  compile_opt idl2, strictarrsubs 
     63; 
    5564  widget_control, event.id, get_uvalue = uval 
    5665  widget_control, event.top, get_uvalue = top_uvalue 
    … …  
    8796FUNCTION cw_specifie, parent, ROW = row, COLUMN = column, UVALUE = uvalue, UNAME = uname, FRAME = frame, FORXXX = forxxx, _extra = ex 
    8897; cheking exclusive keywords 
     98; 
     99  compile_opt idl2, strictarrsubs 
     100; 
    89101   column = keyword_set(column)*(1-keyword_set(row)) 
    90102   row = keyword_set(row)*(1-keyword_set(column)) +(keyword_set(row) EQ column)  
Note: See TracChangeset for help on using the changeset viewer.