Ignore:
Timestamp:
03/19/07 18:15:51 (17 years ago)
Author:
pinsard
Message:

improvements/corrections of some *.pro headers

Location:
trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX
Files:
23 edited

Legend:

Unmodified
Added
Removed

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

    r226 r231  
    1 ;------------------------------------------------------------ 
    2 ;------------------------------------------------------------ 
    3 ;------------------------------------------------------------ 
    41;+ 
    52; 

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

    r172 r231  
    11;+ 
    2 ;  
    3 ; @param BASE {in}{required}  
     2; 
     3; @param BASE {in}{required} 
    44; The id of the widget where apply the drawing. 
    55; 
    66; @param SNAMEEXP {in}{required} 
    77; 
    8 ; 
    98; @param PROCEDURE {in}{required} 
    10 ; 
    119; 
    1210; @param TYPE {in}{required} 
    1311; 
    14 ;  
    1512; @keyword BOXZOOM 
    16 ; Vector indicating the geographic zone on which we want to cut the map.  
    17 ; If BOXZOOM has :  
     13; Vector indicating the geographic zone on which we want to cut the map. 
     14; If BOXZOOM has : 
    1815;   1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]] 
    1916;   2 elements: The extraction is made on [lon1, lon2, lat1, lat2, boxzoom[0],boxzoom[1]] 
    2017;   4 elements: The extraction is made on [Boxzoom, 0, max([gdept, gdepw])] 
    2118;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    22 ;   6 elements: The extraction is made on Boxzoom  
     19;   6 elements: The extraction is made on Boxzoom 
    2320; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 
    2421; 
    2522; @keyword COMPLETE 
    2623; 
    27 ;   
    2824; @keyword NAMEFIELD 
    29 ; 
    3025; 
    3126; @uses 
    3227; common.pro 
    33 ;  
     28; 
    3429; @history 
    3530; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    36 ;  
    37 ; @version  
     31; 
     32; @version 
    3833; $Id$ 
    3934; 
    … …  
    7772; get the options 
    7873; 
    79   options = extractatt(top_uvalue, 'options')    
     74  options = extractatt(top_uvalue, 'options') 
    8075  flags = extractatt(top_uvalue, 'optionsflag') 
    8176  flags = flags[*, numdessinin] 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param BASE {in}{required} 
    98; The id of the widget where apply the drawing. 
    … …  
    1110; @param NEWFIELDNAME 
    1211; 
    13 ;  
    1412; @keyword BOXZOOM 
    15 ; Vector indicating the geographic zone on which we want to cut the map.  
    16 ; If BOXZOOM has :  
     13; Vector indicating the geographic zone on which we want to cut the map. 
     14; If BOXZOOM has : 
    1715;   1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]] 
    1816;   2 elements: The extraction is made on [lon1, lon2, lat1, lat2, boxzoom[0],boxzoom[1]] 
    1917;   4 elements: The extraction is made on [Boxzoom, 0, max([gdept, gdepw])] 
    2018;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    21 ;   6 elements: The extraction is made on Boxzoom  
     19;   6 elements: The extraction is made on Boxzoom 
    2220; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 
    23 ;  
     21; 
    2422; @returns 
    25 ;  
    26 ;  
     23; 
    2724; @uses 
    28 ;  
    29 ;  
     25; 
    3026; @restrictions 
    31 ;  
    32 ;  
     27; 
    3328; @examples 
    34 ;  
    35 ;  
     29; 
    3630; @history 
    37 ;  
    38 ;  
    39 ; @version  
     31; 
     32; @version 
    4033; $Id$ 
    4134; 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param BASE {in}{required} 
    98; The id of the widget where apply the drawing. 
    … …  
    1110; @param NEWFILENAME 
    1211; 
    13 ;  
    1412; @keyword BOXZOOM 
    15 ; Vector indicating the geographic zone on which we want to cut the map.  
    16 ; If BOXZOOM has :  
     13; Vector indicating the geographic zone on which we want to cut the map. 
     14; If BOXZOOM has : 
    1715;   1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]] 
    1816;   2 elements: The extraction is made on [lon1, lon2, lat1, lat2, boxzoom[0],boxzoom[1]] 
    1917;   4 elements: The extraction is made on [Boxzoom, 0, max([gdept, gdepw])] 
    2018;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    21 ;   6 elements: The extraction is made on Boxzoom  
     19;   6 elements: The extraction is made on Boxzoom 
    2220; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 
    23 ;  
     21; 
    2422; @keyword DATE1 
    25 ;  
     23; 
    2624; @keyword DATE2 
    2725; 
    2826; @keyword FIELDNAME 
    29 ;  
    30 ;  
     27; 
    3128; @returns 
    32 ;  
    33 ;  
     29; 
    3430; @uses 
    35 ;  
    36 ;  
     31; 
    3732; @restrictions 
    38 ;  
    39 ;  
     33; 
    4034; @examples 
    41 ;  
    42 ;  
     35; 
    4336; @history 
    44 ;  
    45 ;  
    46 ; @version  
     37; 
     38; @version 
    4739; $Id$ 
    4840; 
    … …  
    8577; Did we change the calendar? 
    8678  if array_equal(oldcalendar, newcalendar) NE 1 then begin 
    87 @cm_4cal  
     79@cm_4cal 
    8880; for key_caltype 
    8981    key_caltype = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).caltype 
    9082; fake or real calendar??? 
    9183    fakecal = (*(extractatt(top_uvalue, 'fileparameters'))[newfile]).fakecal 
    92 ; Which dates were selected?     
     84; Which dates were selected? 
    9385    date1id = widget_info(base, find_by_uname = 'calendar1') 
    9486    if NOT keyword_set(date1) then widget_control, date1id, get_value = date1 
    … …  
    10799    rien = cw_calendar(basecal, newcalendar, jdate2, uname = 'calendar2' $ 
    108100                       , FAKECAL = fakecal, uvalue = {name:'calendar2'}, /frame) 
    109   ENDIF ELSE BEGIN  
     101  ENDIF ELSE BEGIN 
    110102    if keyword_set(date1) then begin 
    111103      date1id = widget_info(base, find_by_uname = 'calendar1') 
    … …  
    130122; file name 
    131123; 
    132   IF oldfile NE newfile THEN BEGIN  
     124  IF oldfile NE newfile THEN BEGIN 
    133125    flstid = widget_info(base, find_by_uname = 'filelist') 
    134126    widget_control, flstid, set_combobox_select =  newfile 
    135   ENDIF  
     127  ENDIF 
    136128; 
    137129; Variables name 

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

    r163 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param BASE {in}{required} 
    98; The id of the widget where apply the drawing. 
    109; 
    1110; @param SMALL 
    12 ; Vector composed of 3 or 4 elements, applied to make a drawing on a small  
    13 ; portion of a page or screen. It delimit the zone where the drawing will  
    14 ; be done. If there is 4 elements: then is constituted of coordinates (expressed  
    15 ; in cm located from the up and left corner of the page or the window (in portrait  
    16 ; like in landscape)) of the bottom and left corner and of the up and right corner  
    17 ; of the drawing zone. If there is 3 elements: in this case, we divide the page or  
    18 ; the screen in small[0] columns and in small[1] lines the drawing made in the box  
    19 ; numbered small[2]. The numerotation starting up and left by the number 1 and then,  
    20 ; following the writing direction. By default, we make the largest drawing we can do,  
     11; Vector composed of 3 or 4 elements, applied to make a drawing on a small 
     12; portion of a page or screen. It delimit the zone where the drawing will 
     13; be done. If there is 4 elements: then is constituted of coordinates (expressed 
     14; in cm located from the up and left corner of the page or the window (in portrait 
     15; like in landscape)) of the bottom and left corner and of the up and right corner 
     16; of the drawing zone. If there is 3 elements: in this case, we divide the page or 
     17; the screen in small[0] columns and in small[1] lines the drawing made in the box 
     18; numbered small[2]. The numerotation starting up and left by the number 1 and then, 
     19; following the writing direction. By default, we make the largest drawing we can do, 
    2120; conserving the aspect rapport (except when REMPLI is activated). 
    22 ;  
     21; 
    2322; @returns 
    24 ;  
    25 ;  
     23; 
    2624; @uses 
    27 ;  
    28 ;  
     25; 
    2926; @restrictions 
    30 ;  
    31 ;  
     27; 
    3228; @examples 
    33 ;  
    34 ;  
     29; 
    3530; @history 
    36 ;  
    37 ;  
    38 ; @version  
     31; 
     32; @version 
    3933; $Id$ 
    4034; 
    … …  
    5549   *top_uvalue[1, findline(top_uvalue, 'globaloldcommand')] = globalcommand 
    5650; portrait or landscape ??? 
    57    options = extractatt(top_uvalue, 'options')    
     51   options = extractatt(top_uvalue, 'options') 
    5852   optionsflag = extractatt(top_uvalue, 'optionsflag') 
    5953   portrait = (optionsflag[where(options EQ 'Portrait/Landscape'), 0])[0] 

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

    r192 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param WIDCMD 
    9 ; 
    108; 
    119; @param TOREAD 
    1210; 
    13 ; 
    1411; @param NUMBEROFREAD 
    15 ; 
    1612; 
    1713; @param PREFIX 
    1814; 
    19 ; 
    2015; @param NAMEEXP 
    21 ; 
    2216; 
    2317; @param ENDING 
    2418; 
    25 ;  
    2619; @returns 
    27 ;  
    28 ;  
     20; 
    2921; @uses 
    30 ;  
    31 ;  
     22; 
    3223; @restrictions 
    33 ;  
    34 ;  
     24; 
    3525; @examples 
    36 ;  
    37 ;  
     26; 
    3827; @history 
    39 ;  
    40 ;  
    41 ; @version  
     28; 
     29; @version 
    4230; $Id$ 
    43 ;  
     31; 
    4432; @todo 
    4533; seb 
    4634; 
    4735;- 
     36; 
    4837PRO cutcmd, widcmd, toread, numberofread, prefix, nameexp, ending 
    49 ; 
    5038; 
    5139  compile_opt idl2, strictarrsubs 
    5240; 
    53   dummy = where(byte(widcmd) EQ (byte('"'))[0], nbdblquote)  
     41  dummy = where(byte(widcmd) EQ (byte('"'))[0], nbdblquote) 
    5442  CASE 1 OF 
    5543    nbdblquote MOD 2: stop ; odd numbers are impossibles... 
    … …  
    7260      IF n_elements(separator) NE n_elements(other) THEN stop 
    7361      widcmd = '' 
    74       FOR i = 0, n_elements(other)-1 DO BEGIN  
     62      FOR i = 0, n_elements(other)-1 DO BEGIN 
    7563        IF isnumber(other[i]) LT 1 THEN other[i] = '"' + other[i] + '"' 
    7664        widcmd = widcmd + separator[i] + other[i] 
    7765      ENDFOR 
    7866;      print, widcmd 
    79     END  
     67    END 
    8068  ENDCASE 
    8169 
    … …  
    8371  IF strpos(widcmd, '"') EQ 0 THEN start = 0 ELSE start = 1 
    8472  nameexp = cutted[start:*:2] 
    85   numberofread = n_elements(nameexp)  
     73  numberofread = n_elements(nameexp) 
    8674  IF toread GE numberofread then begin 
    8775    dummy = report('toread cannot be larger than numberofread') 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param NOMVARIABLE 
    98; 
    10 ;  
    119; @returns 
    12 ;  
    13 ;  
     10; 
    1411; @uses 
    15 ;  
    16 ;  
     12; 
    1713; @restrictions 
    18 ;  
    19 ;  
     14; 
    2015; @examples 
    21 ;  
    22 ;  
     16; 
    2317; @history 
    24 ;  
    25 ;  
     18; 
    2619; @version 
    27 ; $Id$  
    28 ;  
     20; $Id$ 
     21; 
    2922; @todo 
    3023; seb 
    3124; 
    3225;- 
     26; 
    3327FUNCTION definedefaultextra, nomvariable 
    3428; 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param EVENT 
    98; 
    10 ;  
    119; @returns 
    12 ;  
    13 ;  
     10; 
    1411; @uses 
    15 ;  
    16 ;  
     12; 
    1713; @restrictions 
    18 ;  
    19 ;  
     14; 
    2015; @examples 
    21 ;  
    22 ;  
     16; 
    2317; @history 
    24 ;  
    25 ;  
     18; 
    2619; @version 
    27 ; $Id$  
    28 ;  
     20; $Id$ 
     21; 
    2922; @todo 
    3023; seb 
    3124; 
    3225;- 
     26; 
    3327PRO doubleclickaction, event 
    3428;------------------------------------------------------------ 
    … …  
    6458; 
    6559      END 
    66       2:BEGIN  
     60      2:BEGIN 
    6761;         if top_uvalue.smallout[2] NE numdessin then begin 
    6862         tracecadre, smallout, /erase 
    … …  
    7872         inserthistory, event.top, ';', '; beginning of '+strtrim(numdessin, 2) $ 
    7973          , '; end of '+strtrim(numdessin, 2) 
    80 ; Putting at 0 of attributes of the value concerning the drawing:  
     74; Putting at 0 of attributes of the value concerning the drawing 
    8175 
    8276         numdessin = numdessin-1 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param TOP_UVALUE 
    9 ; 
    108; 
    119; @param NAME 
    1210; 
    13 ;  
    1411; @returns 
    15 ;  
    16 ;  
     12; 
    1713; @uses 
    18 ;  
    19 ;  
     14; 
    2015; @restrictions 
    21 ;  
    22 ;  
     16; 
    2317; @examples 
    24 ;  
    25 ;  
     18; 
    2619; @history 
    27 ;  
    28 ;  
    29 ; @version  
     20; 
     21; @version 
    3022; $Id$ 
    31 ;  
     23; 
    3224; @todo 
    3325; seb 
    3426; 
    3527;- 
     28; 
    3629FUNCTION extractatt, top_uvalue, name 
    3730; 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param TOP_UVALUE 
    9 ; 
    108; 
    119; @param NAME 
    1210; 
    13 ;  
    1411; @returns 
    15 ;  
    16 ;  
     12; 
    1713; @uses 
    18 ;  
    19 ;  
     14; 
    2015; @restrictions 
    21 ;  
    22 ;  
     16; 
    2317; @examples 
    24 ;  
    25 ;  
     18; 
    2619; @history 
    27 ;  
    28 ;  
    29 ; @version  
     20; 
     21; @version 
    3022; $Id$ 
    31 ;  
     23; 
    3224; @todo 
    3325; seb 
    3426; 
    3527;- 
     28; 
    3629FUNCTION findline, top_uvalue, name 
    3730; 

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

    r226 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param EVENT 
    98; 
    10 ;  
    119; @returns 
    12 ;  
    13 ;  
     10; 
    1411; @uses 
    15 ;  
    16 ;  
     12; 
    1713; @restrictions 
    18 ;  
    19 ;  
     14; 
    2015; @examples 
    21 ;  
    22 ;  
     16; 
    2317; @history 
    24 ;  
    25 ;  
     18; 
    2619; @version 
    27 ; $Id$  
    28 ;  
     20; $Id$ 
     21; 
    2922; @todo 
    3023; seb 
    3124; 
    3225;- 
     26; 
    3327FUNCTION identifyclick, event 
    3428; 
    … …  
    7872      thisEvent EQ 'WIDGET_TIMER' AND uval.click EQ 1 AND press EQ 0:uval.click = 2 
    7973; t/2/0 normal click 
    80       thisEvent EQ 'WIDGET_TIMER' AND uval.click EQ 2 AND press EQ 0:BEGIN  
     74      thisEvent EQ 'WIDGET_TIMER' AND uval.click EQ 2 AND press EQ 0:BEGIN 
    8175         type = 'single' 
    8276         press = uval.press 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param BASE 
    9 ; 
    108; 
    119; @param TEXT 
    1210; 
    13 ; 
    1411; @param LINE1 
    15 ; 
    1612; 
    1713; @param LINE2 
    1814; 
    19 ;  
    2015; @returns 
    21 ;  
    22 ;  
     16; 
    2317; @uses 
    24 ;  
    25 ;  
     18; 
    2619; @restrictions 
    27 ;  
    28 ;  
     20; 
    2921; @examples 
    30 ;  
    31 ;  
     22; 
    3223; @history 
    33 ;  
    34 ;  
     24; 
    3525; @version 
    36 ; $Id$  
    37 ;  
     26; $Id$ 
     27; 
    3828; @todo 
    3929; seb 
    4030; 
    4131;- 
    42 ;------------------------------------------------------------- 
     32; 
    4333PRO inserthistory,  base, text, line1, line2 
    4434; 

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

    r163 r231  
    11;+ 
    2 ; @file_comments  
    3 ; It is the procedure launching the drawing.  
    4 ; If we do not give the command to it, it call  
     2; 
     3; @file_comments 
     4; It is the procedure launching the drawing. 
     5; If we do not give the command to it, it call 
    56; construitcommande to know what to trace. 
    67; 
    78; @categories 
    89; 
    9 ;  
    1010; @param BASE {in}{required} 
    1111; The id of the widget where apply the drawing. 
    12 ;  
     12; 
    1313; @keyword COMMANDE {type=string} 
    1414; A string of the style: read_data('sst'...),... 
    1515; 
    1616; @keyword _EXTRA 
    17 ; Used to pass your keywords  
    18 ;  
     17; Used to pass keywords 
     18; 
    1919; @uses 
    20 ; common.pro  
    21 ;  
     20; common.pro 
     21; 
    2222; @history 
    2323; Sebastien Masson (smasson\@lodyc.jussieu.fr) 
    24 ;  
    25 ; @version  
     24; 
     25; @version 
    2626; $Id$ 
    27 ;  
     27; 
    2828;- 
     29; 
    2930PRO letsdraw, base, COMMANDE = commande, _extra = ex 
    3031; 
    … …  
    7374; 
    7475; 
    75    options = extractatt(top_uvalue, 'options')    
     76   options = extractatt(top_uvalue, 'options') 
    7677   optionsflag = extractatt(top_uvalue, 'optionsflag') 
    7778   portrait = (strtrim(optionsflag[where(options EQ 'Portrait/Landscape'), 0], 1))[0] 
    78     
     79 
    7980; 
    8081   createpro, ['@common' $ 

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

    r213 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param MESHFILEIN 
    98; 
    10 ;  
    119; @keyword _EXTRA 
    12 ; Used to pass your keywords 
    13 ;  
     10; Used to pass keywords 
     11; 
    1412; @returns 
    15 ;  
    16 ;  
     13; 
    1714; @uses 
    18 ;  
    19 ;  
     15; 
    2016; @restrictions 
    21 ;  
    22 ;  
     17; 
    2318; @examples 
    24 ;  
    25 ;  
     19; 
    2620; @history 
    27 ;  
    28 ;  
    29 ; @version  
     21; 
     22; @version 
    3023; $Id$ 
    3124; 
    … …  
    3427; 
    3528;- 
     29; 
    3630PRO loadgrid, meshfiletxtin, _extra = ex 
    37 ;  
     31; 
    3832  meshfilein = strsed(meshfiletxtin,'@@@', '''') 
    3933; 
    … …  
    4741; try to find a .pro file with this name... 
    4842  filepro = (find(meshfile[0], /firstfound, /onlypro))[0] 
    49 ; if this is an idl batch file or a procedure   
     43; if this is an idl batch file or a procedure 
    5044  if filepro NE 'NOT FOUND' THEN BEGIN 
    5145    CASE protype(filepro) OF 
    … …  
    6357  ENDELSE 
    6458; add the arguments and keywords if necessary 
    65   IF n_elements(meshfile) GT 1 AND strmid(listing, 0, 1) NE '@' THEN $  
     59  IF n_elements(meshfile) GT 1 AND strmid(listing, 0, 1) NE '@' THEN $ 
    6660    listing = listing + strmid(meshfilein, strpos(meshfilein, ',')) 
    6761 
    … …  
    7266 
    7367return 
    74 END  
     68END 

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

    r154 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param EVENT 
    98; 
    10 ;  
    119; @returns 
    12 ;  
    13 ;  
     10; 
    1411; @uses 
    15 ;  
    16 ;  
     12; 
    1713; @restrictions 
    18 ;  
    19 ;  
     14; 
    2015; @examples 
    21 ;  
    22 ;  
     16; 
    2317; @history 
    24 ;  
    25 ;  
     18; 
    2619; @version 
    27 ; $Id$  
    28 ;  
     20; $Id$ 
     21; 
    2922; @todo 
    3023; seb 
    3124; 
    3225;- 
     26; 
    3327PRO longclickaction, event 
    3428; 
    … …  
    6660  y = [coor[1, 0], coor[1, 1]] 
    6761  domainid = widget_info(event.top, find_by_uname = 'domain') 
    68   IF type EQ 'pltv' THEN BEGIN  
     62  IF type EQ 'pltv' THEN BEGIN 
    6963    currentfile = extractatt(top_uvalue, 'currentfile') 
    7064    listgrid = (*(extractatt(top_uvalue, 'fileparameters'))[currentfile]).listgrid 
    … …  
    7973; Do we have to pass the boxzoom in indexes ??? 
    8074  currentplot = (extractatt(top_uvalue, 'smallin'))[2]-1 
    81   options = extractatt(top_uvalue, 'options')    
     75  options = extractatt(top_uvalue, 'options') 
    8276  flags = extractatt(top_uvalue, 'optionsflag') 
    8377  flags = flags[*, currentplot] 
    … …  
    107101      letsdraw, event.top 
    108102    END 
    109     2:BEGIN  
    110       IF type EQ 'plt' THEN BEGIN  
     103    2:BEGIN 
     104      IF type EQ 'plt' THEN BEGIN 
    111105        (*top_uvalue[1, findline(top_uvalue, 'types')])[smallout[2]-1] = 'pltz' 
    112106        forcetype = 'pltz' 
    113       ENDIF  
     107      ENDIF 
    114108      updatewidget, event.top, /noboxzoom 
    115109      letsdraw, event.top, forcetype = forcetype 
    116110    END 
    117111    4:BEGIN 
    118       IF type EQ 'plt' THEN BEGIN  
     112      IF type EQ 'plt' THEN BEGIN 
    119113        (*top_uvalue[1, findline(top_uvalue, 'types')])[smallout[2]-1] = 'pltt' 
    120114        forcetype = 'pltt' 
    121       ENDIF  
     115      ENDIF 
    122116      updatewidget, event.top, /noboxzoom, /nodates 
    123117      letsdraw, event.top, forcetype = forcetype 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param NAME 
    9 ; 
    108; 
    119; @param DEBUT 
    1210; 
    13 ; 
    1411; @param FIN 
    1512; 
    16 ; 
    1713; @param NOMEXP 
    18 ; 
    1914; 
    2015; @keyword PARENT 
    … …  
    2217; 
    2318; @keyword BOXZOOM 
    24 ; Vector indicating the geographic zone on which we want to cut the map.  
    25 ; If BOXZOOM has :  
     19; Vector indicating the geographic zone on which we want to cut the map. 
     20; If BOXZOOM has : 
    2621;   1 element : The extraction is made on [lon1, lon2, lat1, lat2, 0.,boxzoom[0]] 
    2722;   2 elements: The extraction is made on [lon1, lon2, lat1, lat2, boxzoom[0],boxzoom[1]] 
    2823;   4 elements: The extraction is made on [Boxzoom, 0, max([gdept, gdepw])] 
    2924;   5 elements: The extraction is made on [Boxzoom[0:3], 0, Boxzoom[4]] 
    30 ;   6 elements: The extraction is made on Boxzoom  
     25;   6 elements: The extraction is made on Boxzoom 
    3126; Where lon1, lon2,lat1,lat2 are global variables defined at the last domdef! 
    3227; 
    3328; @keyword _EXTRA 
    34 ; Used to pass your keywords  
    35 ;  
     29; Used to pass keywords 
     30; 
    3631; @returns 
    37 ;  
    38 ;  
     32; 
    3933; @uses 
    40 ;  
    41 ;  
     34; 
    4235; @restrictions 
    43 ;  
    44 ;  
     36; 
    4537; @examples 
    46 ;  
    47 ;  
     38; 
    4839; @history 
    49 ;  
    50 ;  
    51 ; @version  
     40; 
     41; @version 
    5242; $Id$ 
    5343; 
    5444; @todo 
    5545; seb 
    56 ;  
     46; 
    5747;- 
     48; 
    5849FUNCTION read_vermair, name, debut, fin, nomexp, PARENT = parent, BOXZOOM=boxzoom, _EXTRA = ex 
    5950; 
    … …  
    6152; 
    6253@common 
    63 ;------------------------------------------------------------  
    6454   if name EQ 'un' then name = 'vozocrtx' 
    6555   if name EQ 'vn' then name = 'vomecrty' 

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

    r226 r231  
    11;+ 
     2; 
    23; @file_comments 
    34; 
    4 ; 
    55; @categories 
    6 ; 
    76; 
    87; @param NAMEFILE 
    … …  
    1211; 
    1312; @keyword _EXTRA 
    14 ; Used to pass your keywords to isafile and ncdf_getaxis 
     13; Used to pass keywords to <pro>isafile</pro> and <pro>ncdf_getaxis</pro> 
    1514; 
    1615; @returns 
    … …  
    6362;        is not found. 
    6463; 
    65 ;------------------------------------------------------------ 
     64; 
    6665FUNCTION scanfile, namefile, GRID = GRID, _extra = ex 
    6766; 

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

    r213 r231  
    11;+ 
     2; 
    23; @file_comments 
    34; 
    4 ; 
    55; @categories 
    66; 
    7 ;  
    87; @param EVENT 
    98; 
    10 ; 
    119; @returns 
    12 ;  
    13 ;  
     10; 
    1411; @uses 
    15 ;  
    16 ;  
     12; 
    1713; @restrictions 
    18 ;  
    19 ;  
     14; 
    2015; @examples 
    21 ;  
    22 ;  
     16; 
    2317; @history 
    24 ;  
    25 ;  
    26 ; @version  
     18; 
     19; @version 
    2720; $Id$ 
    28 ;  
     21; 
    2922; @todo 
    3023; seb: documenter EVENT 
    3124;- 
    32 ;********************************************************************* 
     25; 
    3326PRO selectfile_event, event 
    34 ; 
    3527; 
    3628  compile_opt idl2, strictarrsubs 
    … …  
    4840  case eventuvalue.name of 
    4941; cancel button 
    50     'Global Cancel':BEGIN  
     42    'Global Cancel':BEGIN 
    5143      widget_control, event.handler, get_uvalue = messenger 
    5244      *messenger = -1 
    … …  
    5850      filename = isafile(filename = filename[0], /onlync, iodirectory =  iodir $ 
    5951                         , title = 'data file name', /tryfind, /fully_qualify_path) 
    60       if size(filename, /type) NE 7 then BEGIN  
     52      if size(filename, /type) NE 7 then BEGIN 
    6153        widget_control, event.id, set_value = '' 
    6254        return 
    … …  
    7264; switch automatic/by and mesh definition buttons 
    7365    'gridload':BEGIN 
    74       IF event.select EQ 1 THEN BEGIN  
     66      IF event.select EQ 1 THEN BEGIN 
    7567        widget_control, widget_info(event.handler, find_by_uname = 'argtxt'), set_value = '' 
    7668        widget_control, widget_info(event.handler, find_by_uname = 'kwdtxt'), set_value = '' 
    … …  
    8678            widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 1 
    8779            widget_control, widget_info(event.handler, find_by_uname = 'kwdlab'), set_value = 'keywords of IDL procedure:' 
    88           END  
     80          END 
    8981        ENDCASE 
    90       ENDIF  
     82      ENDIF 
    9183    END 
    9284; name of the procedure or batch file 
    … …  
    9789        widget_control, event.id, set_value = '' 
    9890        return 
    99       endif  
     91      endif 
    10092      CASE protype(filename) OF 
    10193; this is a procedure 
    102         'proc':BEGIN  
     94        'proc':BEGIN 
    10395          widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 1 
    10496          widget_control, widget_info(event.handler, find_by_uname = 'kwd base'), sensitive = 1 
    … …  
    10698        END 
    10799; this is a function, this case is not accepted 
    108         'func':BEGIN  
     100        'func':BEGIN 
    109101          widget_control, event.id, set_value = '' 
    110102          return 
    111103        END 
    112104; this is an IDL batch file 
    113         'batch':BEGIN  
     105        'batch':BEGIN 
    114106          widget_control, widget_info(event.handler, find_by_uname = 'arg base'), sensitive = 0 
    115107          widget_control, widget_info(event.handler, find_by_uname = 'kwd base'), sensitive = 0 
    … …  
    136128      datafilename = isafile(filename = datafilename, /tryfind, /onlync $ 
    137129                             , title = 'data file name', /fully_qualify_path) 
    138       if size(datafilename, /type) NE 7 then BEGIN  
     130      if size(datafilename, /type) NE 7 then BEGIN 
    139131        widget_control, widget_info(event.handler, find_by_uname = 'datafilename') $ 
    140132                        , set_value = '' 
    141133        return 
    142       ENDIF  
     134      ENDIF 
    143135      widget_control, widget_info(event.handler, find_by_uname = 'gridload') $ 
    144136                      , get_value = gridload 
    … …  
    162154            widget_control, meshload_id, set_value = '' 
    163155            return 
    164           endif  
    165         END  
     156          endif 
     157        END 
    166158        'via initnetcdf':meshload = datafilename 
    167159      ENDCASE 
    … …  
    176168  return 
    177169end 
    178 ;********************************************************************* 
     170; 
    179171;+ 
     172; 
    180173; @file_comments 
    181174; 
    182 ; 
    183175; @categories 
    184176; 
    185 ;  
    186177; @param DATAFILENAME 
    187178; 
    … …  
    192183; @param ARGSPRO 
    193184; 
    194 ;  
    195185; @keyword _EXTRA 
    196 ; Used to pass your keywords 
    197 ;  
     186; Used to pass keywords 
     187; 
    198188; @returns 
    199 ;  
    200 ;  
     189; 
    201190; @uses 
    202 ;  
    203 ;  
     191; 
    204192; @restrictions 
    205 ;  
    206 ;  
     193; 
    207194; @examples 
    208 ;  
    209 ;  
     195; 
    210196; @history 
    211 ;  
    212 ;  
    213 ; @version  
     197; 
     198; @version 
    214199; $Id$ 
    215 ;  
     200; 
    216201; @todo 
    217202; seb: documenter les params 
    218 ;  
     203; 
    219204;- 
    220205FUNCTION selectfile, datafilename, idlfile, argspro, _extra = ex 
    … …  
    224209; 
    225210@common 
    226 ;------------------------------------------------------------ 
    227 ;------------------------------------------------------------ 
    228 ; 
    229 ; We create a pointer in the uvalue to recuperate answers at setted  
    230 ; questions atthe time of the use of this widget. So when the widget  
    231 ; is deleted in the procedure ...event.pro, the variable on which the  
    232 ; pointer pointed (contained in the uvalue of the widget) is not  
     211; 
     212; We create a pointer in the uvalue to recuperate answers at setted 
     213; questions atthe time of the use of this widget. So when the widget 
     214; is deleted in the procedure ...event.pro, the variable on which the 
     215; pointer pointed (contained in the uvalue of the widget) is not 
    233216; deleted and we can recuperate the result! 
    234217; 
    … …  
    269252 
    270253;------------------------------------------------------------ 
    271   IF n_elements(datafilename) NE 0 THEN BEGIN  
     254  IF n_elements(datafilename) NE 0 THEN BEGIN 
    272255    widget_control, database, set_value = datafilename 
    273256    selectfile_event, {ID:database, TOP:base, HANDLER:base} 
    274   ENDIF  
    275   IF n_elements(idlfile) NE 0 THEN BEGIN  
     257  ENDIF 
     258  IF n_elements(idlfile) NE 0 THEN BEGIN 
    276259    widget_control, basemeshload, set_value = idlfile 
    277260    selectfile_event, {ID:basemeshload, TOP:base, HANDLER:base} 
    278261    widget_control, basemeshload, get_value = idlfile2 
    279262    IF idlfile2[0] NE '' THEN widget_control, gdldid, set_value = 1 
    280   ENDIF  
     263  ENDIF 
    281264  IF n_elements(argspro) NE 0 THEN widget_control, argbase, set_value = argspro 
    282265;------------------------------------------------------------ 
    283   IF n_elements(datafilename) EQ 0 THEN BEGIN  
     266  IF n_elements(datafilename) EQ 0 THEN BEGIN 
    284267    widget_control, base, /realize 
    285268    xmanager, 'selectfile', base, event_handler = 'selectfile_event', no_block = 0 
    … …  
    302285  if size(res3, /type) NE 8 then return,  -1 
    303286 
    304   return, {fileparameters:res3, readparameters:ccreadparameters, meshparameters:ccmeshparameters}  
     287  return, {fileparameters:res3, readparameters:ccreadparameters, meshparameters:ccmeshparameters} 
    305288end 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param EVENT 
    98; 
    10 ;  
    119; @returns 
    12 ;  
    13 ;  
     10; 
    1411; @uses 
    15 ;  
    16 ;  
     12; 
    1713; @restrictions 
    18 ;  
    19 ;  
     14; 
    2015; @examples 
    21 ;  
    22 ;  
     16; 
    2317; @history 
    24 ;  
    25 ;  
     18; 
    2619; @version 
    27 ; $Id$  
    28 ;  
     20; $Id$ 
     21; 
    2922; @todo 
    3023; seb 
    3124; 
    3225;- 
     26; 
    3327PRO singleclickaction, event 
    3428; 
    … …  
    107101        x4 = -1                 ; free memory 
    108102        y4 = -1                 ; free memory 
    109        
    110       IF cell[0] EQ -1 OR n_elements(cell) GT 1 THEN RETURN       
     103 
     104      IF cell[0] EQ -1 OR n_elements(cell) GT 1 THEN RETURN 
    111105; 
    112106      yy = cell[0]/(nx-1+key_periodic*(nx EQ jpi)) 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
     4; determination of the column and of the line corresponding in input to small 
     5; ++ 
    46; 
    57; @categories 
    68; 
    7 ;  
    89; @param SMALL 
    910; 
    10 ;  
    1111; @keyword OUT 
    12 ; 
    1312; 
    1413; @keyword ERASE 
    1514; 
     15; @keyword FILL 
    1616; 
    17 ; @keyword FILL 
    18 ;  
    19 ;  
    2017; @returns 
    21 ;  
    22 ;  
     18; 
    2319; @uses 
    24 ;  
    25 ;  
     20; 
    2621; @restrictions 
    27 ;  
    28 ;  
     22; 
    2923; @examples 
    30 ;  
    31 ;  
     24; 
    3225; @history 
    33 ;  
    34 ;  
     26; 
    3527; @version 
    36 ; $Id$  
    37 ;  
     28; $Id$ 
     29; 
    3830; @todo 
    3931; seb 
    4032; 
    4133;- 
     34; 
    4235PRO tracecadre, small, out = out, erase = erase, fill = fill 
    43 ;------------------------------------------------------------ 
    44 ; determination of the column and of the line corresponding in input to small 
    4536; 
    4637  compile_opt idl2, strictarrsubs 

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

    r150 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    66; 
    7 ;  
    87; @param BASE {in}{required} 
    98; The id of the widget where apply the drawing. 
    10 ;  
     9; 
    1110; @keyword NOBOXZOOM 
    12 ; 
    1311; 
    1412; @keyword NODATES 
    1513; 
     14; @keyword NOTYPE 
    1615; 
    17 ; @keyword NOTYPE 
    18 ;  
    19 ;  
    2016; @returns 
    21 ;  
    22 ;  
     17; 
    2318; @uses 
    24 ;  
    25 ;  
     19; 
    2620; @restrictions 
    27 ;  
    28 ;  
     21; 
    2922; @examples 
    30 ;  
    31 ;  
     23; 
    3224; @history 
    33 ;  
    34 ;  
     25; 
    3526; @version 
    36 ; $Id$  
    37 ;  
     27; $Id$ 
     28; 
    3829; @todo 
    3930; seb 
    4031; 
    4132;- 
     33; 
    4234PRO updatewidget, base, NOBOXZOOM = noboxzoom, NODATES = nodates, NOTYPE = notype 
    43 ;---------------------------------------------------------------------- 
    4435; 
    4536  compile_opt idl2, strictarrsubs 
    … …  
    5647   if keyword_set(nodates) then begin 
    5748      date1 = 0 
    58       date2 = 0  
    59    ENDIF ELSE BEGIN  
     49      date2 = 0 
     50   ENDIF ELSE BEGIN 
    6051      dates = (extractatt(top_uvalue, 'dates'))[*, numdessinin] 
    6152      date1 = dates[0] & date2 = dates[1] 
    … …  
    8475         widget_control, date2id, set_value = date2 
    8576      endif 
    86       if keyword_set(boxzoom) then BEGIN  
     77      if keyword_set(boxzoom) then BEGIN 
    8778         domainid = widget_info(base, find_by_uname = 'domain') 
    8879         widget_control, domainid, set_value = boxzoom 
    … …  
    10798;-------------- 
    10899; graphtype 
    109 ;--------------    
     100;-------------- 
    110101   if NOT keyword_set(notype) then BEGIN 
    111102      graphtype = (extractatt(top_uvalue, 'types'))[numdessinin] 

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

    r226 r231  
    11;+ 
     2; 
    23; @file_comments 
    3 ; 
    44; 
    55; @categories 
    … …  
    2424; 
    2525;- 
    26 pro xcreateanim_event, event 
     26; 
     27PRO xcreateanim_event, event 
    2728; 
    2829  compile_opt idl2, strictarrsubs 
    … …  
    165166  return 
    166167end 
    167 ;---------------------------------------------------------------- 
     168; 
    168169;+ 
    169170; @file_comments 
    170171; 
    171 ; 
    172172; @categories 
    173173; 
    174 ; 
    175174; @param PARENT 
    176175; 
    177 ; 
    178176; @returns 
    179 ; 
    180177; 
    181178; @uses 
    … …  
    194191; 
    195192;- 
     193; 
    196194PRO xcreateanim, parent 
    197195; 

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

    r226 r231  
    11;+ 
     2; 
    23; @file_comments 
    34; 
    4 ; 
    55; @categories 
    6 ; 
    76; 
    87; @param EVENT 
    … …  
    2423; seb 
    2524;- 
    26 ;------------------------------------------------ 
     25; 
    2726PRO xxxmenubar_event, event 
    2827; 
    … …  
    3029; 
    3130@common 
    32  
    3331 
    3432  case event.value of 
Note: See TracChangeset for help on using the changeset viewer.