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

improvements/corrections of some *.pro headers

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_pagelayout.pro

    r157 r231  
    1 ;********************************************************************* 
    21;+ 
     2; 
    33; @file_comments 
    4 ; 
    54; 
    65; @categories 
    76; Compound widget 
    8 ;  
     7; 
    98; @param EVENT 
    109; 
     10; @returns 
    1111; 
    12 ; @returns 
    13 ;  
    14 ;  
    1512; @uses 
    16 ;  
    17 ;  
     13; 
    1814; @restrictions 
    19 ;  
    20 ;  
     15; 
    2116; @examples 
    22 ;  
    23 ;  
     17; 
    2418; @history 
    25 ;  
    26 ;  
    27 ; @version  
     19; 
     20; @version 
    2821; $Id$ 
    2922;- 
    30 ;********************************************************************* 
     23; 
    3124FUNCTION cw_pagelayout_event, event 
    3225; 
     
    4336   if uval.name EQ 'undo' then begin 
    4437      return,{ID:event.handler, TOP:event.top, HANDLER:0L} 
    45    ENDIF ELSE BEGIN  
     38   ENDIF ELSE BEGIN 
    4639; 
    4740@common 
     
    6356      case uval.name of 
    6457         'clear': 
    65          'column':BEGIN  
     58         'column':BEGIN 
    6659            smallin = [event.index+1, smallin[1], 1] 
    6760            smallout = [event.index+1, smallout[1], 1] 
     
    7366      endcase 
    7467      nbredessin = smallin[0]*smallin[1] 
    75 ;          
     68; 
    7669; We put all back to 0 for postscripts 
    7770      createhistory, event.top, smallin 
    78 ;          
    79       options = extractatt(top_uvalue, 'options')    
     71; 
     72      options = extractatt(top_uvalue, 'options') 
    8073      flags = extractatt(top_uvalue, 'optionsflag') 
    8174      flag = flags[*, numdessinin] 
    82 ;          
     75; 
    8376; update and reset all values of the top_uvalue... 
    8477; 
     
    10093      ptr_free, extractatt(top_uvalue, 'exextra') 
    10194      *top_uvalue[1, findline(top_uvalue, 'exextra')] = ptrarr(nbredessin, /allocate_heap) 
    102 ;      *top_uvalue[1, findline(top_uvalue, '')] =  
     95;      *top_uvalue[1, findline(top_uvalue, '')] = 
    10396; 
    104    ENDELSE  
     97   ENDELSE 
    10598 
    10699   return,{ID:event.handler, TOP:event.top, HANDLER:0L} 
    107100end 
    108 ;********************************************************************* 
     101; 
    109102;+ 
     103; 
    110104; @file_comments 
    111 ; 
    112105; 
    113106; @categories 
    114107; Compound widget 
    115 ;  
     108; 
    116109; @param PARENT {in}{required} 
    117110; The widget ID of the parent widget. 
    118111; 
    119 ; @param SMALL  
    120 ; 
     112; @param SMALL 
    121113; 
    122114; @keyword COLUMN 
    123115; Buttons will be arranged in the number of columns 
    124116; specified by this keyword. 
    125 ;  
     117; 
    126118; @keyword ROW 
    127119; Buttons will be arranged in the number of rows 
    128120; specified by this keyword. 
    129 ;  
     121; 
    130122; @keyword UVALUE 
    131123; The user value to be associated with the widget. 
    132 ;  
     124; 
    133125; @keyword UNAME 
    134126; The user name to be associated with the widget. 
    135127; 
    136128; @keyword _EXTRA 
    137 ; Used to pass your keywords 
     129; Used to pass keywords 
    138130; 
    139131; @keyword UNZOOM 
    140 ;  
    141 ;  
     132; 
    142133; @returns 
    143 ;  
    144 ;  
     134; 
    145135; @uses 
    146 ;  
    147 ;  
     136; 
    148137; @restrictions 
    149 ;  
    150 ;  
     138; 
    151139; @examples 
    152 ;  
    153 ;  
     140; 
    154141; @history 
    155 ;  
    156 ;  
     142; 
    157143; @version 
    158 ; $Id$  
    159 ;  
    160 ; @todo  
     144; $Id$ 
     145; 
     146; @todo 
    161147; seb: documenter 
    162 ;  
     148; 
    163149;- 
     150; 
    164151FUNCTION cw_pagelayout, parent, small, UVALUE = uvalue, UNAME = uname, UNZOOM = unzoom, COLUMN = column, ROW = row, _extra = ex 
    165 ;------------------------------------------------ 
    166152; 
    167153  compile_opt idl2, strictarrsubs 
    168154; 
    169   row = keyword_set(row)*(1-keyword_set(column))   
     155  row = keyword_set(row)*(1-keyword_set(column)) 
    170156  if NOT keyword_set(uvalue) then uvalue = '' 
    171157  if NOT keyword_set(uname) then uname = '' 
     
    174160                     , FUNC_GET_VALUE = 'cw_pagelayout_get_value' $ 
    175161                     , PRO_SET_VALUE = 'cw_pagelayout_set_value' $ 
    176                      , UVALUE = uvalue, UNAME = uname, space = 0, _extra = ex)    
     162                     , UVALUE = uvalue, UNAME = uname, space = 0, _extra = ex) 
    177163;------------------------------------------------ 
    178164  IF n_elements(small) eq 0 then small = [1, 1, 1] 
     
    183169  widget_control, id, set_combobox_select = small[0]-1 
    184170; 
    185   IF keyword_set(row) THEN BEGIN  
     171  IF keyword_set(row) THEN BEGIN 
    186172    xoff = 60 
    187173    yoff = 0 
    188   ENDIF ELSE BEGIN  
     174  ENDIF ELSE BEGIN 
    189175    xoff = 0 
    190176    yoff = 20 
    191   ENDELSE  
     177  ENDELSE 
    192178  dummy = widget_label(base, value = 'row', xoffset = xoff, yoffset = yoff+3) 
    193179  id = widget_combobox(base, value = strtrim(indgen(9)+1, 1), uvalue = {name:'row'} $ 
     
    198184  return, base 
    199185end 
    200 ;********************************************************************* 
Note: See TracChangeset for help on using the changeset viewer.