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
Files:
37 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildcmd.pro

    r74 r114  
    3737; we get back the ids of the widget parts 
    3838;------------------------------------------------------------ 
     39; 
     40  compile_opt idl2, strictarrsubs 
     41; 
    3942  txtcmdid = widget_info(base, find_by_uname = 'txtcmd') 
    4043  domainid = widget_info(base, find_by_uname = 'domain') 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/buildreadcmd.pro

    r74 r114  
    3333FUNCTION buildreadcmd, base, snameexp, procedure, type, BOXZOOM = boxzoom $ 
    3434                       , COMPLETE = complete, NAMEFIELD = namefield 
     35; 
     36; 
     37  compile_opt idl2, strictarrsubs 
    3538; 
    3639@cm_4cal ; for key_caltype 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefield.pro

    r69 r114  
    11PRO changefield, base, newfieldname, BOXZOOM = boxzoom 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  widget_control, base, get_uvalue = top_uvalue 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/changefile.pro

    r74 r114  
    11PRO changefile, base, newfilename, BOXZOOM = boxzoom, DATE1 = date1, DATE2 = date2, FIELDNAME = fieldname 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  widget_control, base, /hourglass 
    … …  
    710  ELSE newfile = newfilename    ; it is already the index of the new file 
    811  if newfile EQ -1 then begin 
    9     nothing, report('invalid filename') 
     12    nothing = report('invalid filename') 
    1013    return 
    1114  endif 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/createhistory.pro

    r69 r114  
    33;------------------------------------------------------------- 
    44; we save globalcommand in globaloldcommand 
     5; 
     6  compile_opt idl2, strictarrsubs 
     7; 
    58   widget_control,base, get_uvalue = top_uvalue 
    69   globalcommand = extractatt(top_uvalue, 'globalcommand') 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/cutcmd.pro

    r69 r114  
    11PRO cutcmd, widcmd, toread, numberofread, prefix, nameexp, ending 
     2; 
     3; 
     4  compile_opt idl2, strictarrsubs 
    25; 
    36  dummy = where(byte(widcmd) EQ (byte('"'))[0], nbdblquote)  

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/definedefaultextra.pro

    r49 r114  
    11FUNCTION definedefaultextra, nomvariable 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25   case strlowcase(nomvariable) of 
    36;       'sn':BEGIN 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/doubleclickaction.pro

    r69 r114  
    11PRO doubleclickaction, event 
    22;------------------------------------------------------------ 
     3; 
     4  compile_opt idl2, strictarrsubs 
     5; 
    36   widget_control, event.id , get_uvalue = uval 
    47   widget_control, event.top, get_uvalue = top_uvalue 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/extractatt.pro

    r49 r114  
    11FUNCTION extractatt, top_uvalue, name 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25   taille = size(top_uvalue) 
    36   j = -1 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/findline.pro

    r49 r114  
    11FUNCTION findline, top_uvalue, name 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25   taille = size(top_uvalue) 
    36   j = -1 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/identifyclick.pro

    r49 r114  
    11FUNCTION identifyclick, event 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25   widget_control, event.id, get_uvalue=uval, /no_copy 
    36   thisEvent = TAG_NAMES(event, /Structure) 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/inserthistory.pro

    r69 r114  
    11PRO inserthistory,  base, text, line1, line2 
    22;------------------------------------------------------------- 
     3; 
     4  compile_opt idl2, strictarrsubs 
     5; 
    36   widget_control,base, get_uvalue = top_uvalue 
    47   globalcommand = extractatt(top_uvalue, 'globalcommand') 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/letsdraw.pro

    r69 r114  
    3636 
    3737PRO letsdraw, base, COMMANDE = commande, _extra = ex 
     38; 
     39  compile_opt idl2, strictarrsubs 
     40; 
    3841@common 
    3942; on recupere la uvalue de base 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/loadgrid.pro

    r69 r114  
    22; 
    33;  
     4; 
     5  compile_opt idl2, strictarrsubs 
     6; 
    47@cm_4mesh 
    58  ccmeshparameters.filename = meshfilein 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/longclickaction.pro

    r69 r114  
    11PRO longclickaction, event 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25  widget_control, event.id, get_uvalue = uval 
    36  widget_control, event.top, get_uvalue = top_uvalue 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/read_vermair.pro

    r69 r114  
    11FUNCTION read_vermair, name, debut, fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25@common 
    36;------------------------------------------------------------  

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/scanfile.pro

    r74 r114  
    3333;------------------------------------------------------------ 
    3434FUNCTION scanfile, namefile, GRID = GRID, _extra = ex 
     35; 
     36  compile_opt idl2, strictarrsubs 
     37; 
    3538@common 
    3639;------------------------------------------------------------ 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro

    r74 r114  
    11;********************************************************************* 
    22PRO selectfile_event, event 
     3; 
     4; 
     5  compile_opt idl2, strictarrsubs 
    36; 
    47@common 
    … …  
    142145;********************************************************************* 
    143146FUNCTION selectfile, datafilename, idlfile, argspro, _extra = ex 
     147; 
     148; 
     149  compile_opt idl2, strictarrsubs 
    144150; 
    145151@common 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/singleclickaction.pro

    r69 r114  
    11PRO singleclickaction, event 
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25@cm_4mesh 
    36@cm_4data 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/tracecadre.pro

    r49 r114  
    33; determination de la colonne et de la ligne correspondant au small en 
    44; entree 
     5; 
     6  compile_opt idl2, strictarrsubs 
     7; 
    58   numdessin = small[2]-1 
    69   numligne = numdessin/small[0] 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/updatewidget.pro

    r69 r114  
    11PRO updatewidget, base, NOBOXZOOM = noboxzoom, NODATES = nodates, NOTYPE = notype 
    22;---------------------------------------------------------------------- 
     3; 
     4  compile_opt idl2, strictarrsubs 
     5; 
    36   widget_control,base, get_uvalue = top_uvalue 
    47   smallin = extractatt(top_uvalue, 'smallin') 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xcreateanim.pro

    r74 r114  
    11pro xcreateanim_event, event  
     2; 
     3  compile_opt idl2, strictarrsubs 
     4; 
    25@common 
    36; on recupere les aguments contenus ds le widget 
    … …  
    139142;---------------------------------------------------------------- 
    140143PRO xcreateanim, parent 
     144; 
     145  compile_opt idl2, strictarrsubs 
     146; 
    141147@common 
    142148; 

  • trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/xxxmenubar_event.pro

    r74 r114  
    11;------------------------------------------------ 
    22PRO xxxmenubar_event, event 
     3; 
     4  compile_opt idl2, strictarrsubs 
     5; 
    36@common 
    47 

  • 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)  

  • trunk/SRC/ToBeReviewed/WIDGET/findtopid.pro

    r52 r114  
    3434;------------------------------------------------------------ 
    3535FUNCTION findtopid,  identite 
     36; 
     37  compile_opt idl2, strictarrsubs 
     38; 
    3639   id = long(identite) 
    3740;    exist = widget_info(id, /managed) 

  • trunk/SRC/ToBeReviewed/WIDGET/slec.pro

    r52 r114  
    22;--------------------------------------------------------- 
    33; include common 
     4; 
     5  compile_opt idl2, strictarrsubs 
     6; 
    47@cm_4data 
    58  IF NOT keyword_set(key_forgetold) THEN BEGIN 

  • trunk/SRC/ToBeReviewed/WIDGET/xnotice.pro

    r52 r114  
    4242; on separe le text en differentes lignes (separees par !C) si ce 
    4343; n''est pas deja fait... 
     44; 
     45  compile_opt idl2, strictarrsubs 
     46; 
    4447   if n_elements(text) EQ 1 then text = str_sep(text, '!C', /trim) 
    4548; 

  • trunk/SRC/ToBeReviewed/WIDGET/xquestion.pro

    r52 r114  
    5454;------------------------------------------------------------------------- 
    5555pro xquestion_event, event 
     56; 
     57  compile_opt idl2, strictarrsubs 
     58; 
    5659; we get the answer 
    5760   widget_control, widget_info(event.top, find_by_uname = 'text') $ 
    … …  
    6669;------------------------------------------------------------------------- 
    6770FUNCTION xquestion, question, proposedanswer, CHKWIDGET = chkwidget, _extra = ex ; 
     71; 
     72  compile_opt idl2, strictarrsubs 
     73; 
    6874; is separate line a scalar? we must cut it into pieces?  
    6975   if n_elements(question) EQ 1 then question = str_sep(question, '!C', /trim) 

  • trunk/SRC/ToBeReviewed/WIDGET/xx.pro

    r52 r114  
    11 
    22PRO xx,  JOUR = jour, MESHFILENAME = meshfilename,  LISTVAR = listvar, LISTGRID = listgrid, FUNCLEC_NAME = funclec_name, CALENDAR = calendar, _extra = ex 
     3; 
     4; 
     5  compile_opt idl2, strictarrsubs 
    36; 
    47@common 
    … …  
    2023   ENDIF 
    2124; calendrier a utiliser (en jours juliens d''IDL    
    22    if NOT keyword_set(calendar) then BEGIN  
    23       if keyword_set(jour) then calendar = calendriertotem(/julian_day) ELSE calendar = calendriertotem(/julian_day, /mensuel) 
    24    ENDIF 
     25;++++    if NOT keyword_set(calendar) then BEGIN  
     26;++++       if keyword_set(jour) then calendar = calendriertotem(/julian_day) ELSE calendar = calendriertotem(/julian_day, /mensuel) 
     27;++++    ENDIF 
    2528; nom du fichier se rapportant au masque 
    2629   if NOT keyword_set(meshfilename) then meshfilename = '/usr1/com/smasson/IDL/INIT/inittotem.pro' 
    27    meshparameters = whichgrid(meshfilename) 
     30;++++   meshparameters = whichgrid(meshfilename) 
    2831; parameteres specifiant comment doit etre lu le champ 
    2932   readparameters= {funclec_name: funclec_name $ 

  • trunk/SRC/ToBeReviewed/WIDGET/xxx.pro

    r74 r114  
    4242PRO xxx_event, event 
    4343;------------------------------------------------------------ 
     44; 
     45  compile_opt idl2, strictarrsubs 
     46; 
    4447@common 
    4548;------------------------------------------------------------ 
    … …  
    129132         , RESTORE = restore, _EXTRA = ex 
    130133;------------------------------------------------------------ 
     134; 
     135  compile_opt idl2, strictarrsubs 
     136; 
    131137@all_cm 
    132138;------------------------------------------------------------ 
Note: See TracChangeset for help on using the changeset viewer.