Changeset 231 for trunk/SRC/buildinit.pro

Timestamp:

03/19/07 18:15:51 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/buildinit.pro (modified) (21 diffs)

trunk/SRC/buildinit.pro

@@ -1 +1 @@
 ;+
+;
 ; @file_comments
 ;
-;
 ; @categories
-;
 ;
 ; @param PARENT {in}{required}
 ; The ID of the parent widget.
 ;
-; @keyword COLUMN 
+; @keyword COLUMN
 ; Buttons will be arranged in the number of columns specified by this keyword.
 ;
@@ -16 +15 @@
 ;
 ; @keyword EVENT_FUNC
-; The name of an optional user-supplied event function for buttons. 
-; This function is called with the return value structure whenever a 
+; The name of an optional user-supplied event function for buttons.
+; This function is called with the return value structure whenever a
 ; button is pressed, and follows the conventions for user-written event functions.
 ;
 ; @keyword FLOATING
 ;
-;
 ; @keyword INTEGER
 ;
-;
 ; @keyword LONG
 ;
-;
 ; @keyword STRING
 ;
-;
 ; @keyword FONT
-; The name of the font to be used for the button titles. If this keyword 
+; The name of the font to be used for the button titles. If this keyword
 ; is not specified, the default font is used.
 ;
@@ -47 +42 @@
 ; @keyword VALUE
 ;
-;
 ; @keyword RETURN_EVENTS
 ;
-;
 ; @keyword ALL_EVENTS
 ;
-;
 ; @keyword FIELDFONT
 ;
-;
 ; @keyword NOEDIT
 ;
-;
 ; @keyword TEXT_FRAME
 ;
-;
 ; @keyword XSIZE
-; The width of the base. 
+; The width of the base
 ;
 ; @keyword YSIZE
@@ -79 +68 @@
 ;
 ; @examples
-;
 ;
 ; @history
@@ -87 +75 @@
 ;-
 ;
-;----------------------------------------------------------
-;----------------------------------------------------------
-;
 ; slightly modified version of cw_field...
+;
 FUNCTION cw_field2, Parent, COLUMN=Column, ROW=Row, $
     EVENT_FUNC = efun, $
@@ -98 +84 @@
     FIELDFONT=FieldFont, NOEDIT=NoEdit, TEXT_FRAME=Text_Frame, $
     XSIZE=XSize, YSIZE=YSize, UNAME=uname
-;   FLOOR=vmin, CEILING=vmax 
+;   FLOOR=vmin, CEILING=vmax
 ;
   compile_opt idl2, strictarrsubs
@@ -165 +151 @@
   END
 ;
-;----------------------------------------------------------
-;----------------------------------------------------------
 ;
 ;+
@@ -174 +158 @@
 ; @categories
 ;
-; 
+;
 ; @param EVENT
 ;
 ;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
@@ -226 +205 @@
 END
 ;
-;----------------------------------------------------------
-;----------------------------------------------------------
 ;
 ;+
+;
 ; @file_comments
 ;
-;
 ; @categories
 ;
-; 
 ; @param EVENT
 ;
-;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
@@ -283 +253 @@
 ; @file_comments
 ;
-;
 ; @categories
 ;
-; 
 ; @param EVENT
 ;
-;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
@@ -320 +282 @@
 END
 ;
-;----------------------------------------------------------
-;----------------------------------------------------------
-;
 ;+
+;
 ; @file_comments
 ;
-;
 ; @categories
 ;
-; 
 ; @keyword _EXTRA
-; Used to pass your keywords
+; Used to pass keywords
 ;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
+;
 FUNCTION xask, _extra = ex
 ;
   compile_opt idl2, strictarrsubs
 ;
-  base = widget_base() 
-  field = cw_field2(base, /frame, /return_events, /column, _extra = ex) 
+  base = widget_base()
+  field = cw_field2(base, /frame, /return_events, /column, _extra = ex)
   ptranswer = ptr_new(/allocate_heap)
 ; we realize the widget and wait for an answer
@@ -368 +322 @@
 END
 ;
-;----------------------------------------------------------
-;----------------------------------------------------------
-;
 ;+
+;
 ; @file_comments
 ;
-;
 ; @categories
-;
 ;
 ; @keyword TITLE
@@ -382 +332 @@
 ;
 ; @keyword NOMARK
-; 
 ;
 ; @keyword NOWRITE
 ;
-;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
+;
 FUNCTION getdir, title = title, nomark = nomark, nowrite = nowrite
 ;
   compile_opt idl2, strictarrsubs
 ;
-  
+
   REPEAT BEGIN
     dir = dialog_pickfile(/directory, /must_exist, title = title)
@@ -422 +366 @@
 END
 ;
-;----------------------------------------------------------
-;----------------------------------------------------------
 ;
 ;+
+;
 ; @file_comments
 ;
-;
 ; @categories
 ;
-;
 ; @returns
-; 
-; 
+;
 ; @uses
-; 
-; 
+;
 ; @restrictions
-; 
-; 
+;
 ; @examples
-; 
-; 
+;
 ; @history
-; 
-; 
-; @version 
+;
+; @version
 ; $Id$
 ;-
+;
 PRO buildinit
 ;
-;
   compile_opt idl2, strictarrsubs
 ;
-  IF fix(strmid(!version.release, 0, 1)) LT 6 THEN BEGIN 
+  IF fix(strmid(!version.release, 0, 1)) LT 6 THEN BEGIN
     print, '                   *** ***** ***'
     print, '                   *** ERROR ***'
@@ -496 +432 @@
                         , 'with the old version ?'], /question, /default_no)
   yes = strlowcase(yes)
-  
+
   init = [init $
           , ';' $
           , '; compatibility with the old version' $
           , ';' $
-          , 'keep_compatibility, ' + strtrim(fix(yes EQ 'yes'), 2)] 
+          , 'keep_compatibility, ' + strtrim(fix(yes EQ 'yes'), 2)]
 ;
 ; define all the commons
@@ -535 +471 @@
   ptnumb = xask(title = 'Number of accessible printers', value = 0, /long)
 ;
-; define all the printer parameters 
+; define all the printer parameters
 ;
   init = [init $
@@ -543 +479 @@
 ;
   IF ptnumb NE 0 THEN BEGIN
-    base = widget_base(/column, /frame) 
+    base = widget_base(/column, /frame)
     cwids = lonarr(3, ptnumb)
     FOR i = 0, ptnumb-1 DO BEGIN
       subbase = widget_base(base, /row)
       cwids[0, i] = cw_field(subbase, /string $
-                             , Title = 'printer_human_names['+strtrim(i, 2)+'] = ') 
+                             , Title = 'printer_human_names['+strtrim(i, 2)+'] = ')
       cwids[1, i] = cw_field(subbase, /string $
-                             , Title = 'printer_machine_names['+strtrim(i, 2)+'] = ') 
+                             , Title = 'printer_machine_names['+strtrim(i, 2)+'] = ')
       cwids[2, i] = cw_field(subbase, /string, value = '\lpr -P' $
-                             , Title = 'print_command['+strtrim(i, 2)+'] = ') 
+                             , Title = 'print_command['+strtrim(i, 2)+'] = ')
     ENDFOR
     trash = widget_button(base, value = 'ok', uvalue = cwids)
@@ -580 +516 @@
             , 'printer_machine_names = ''''' $
             , 'print_command = ''''']
-  ENDELSE 
+  ENDELSE
 ;
 ; Colors
@@ -622 +558 @@
 ; postscript position
 ;
-  yes = dialog_message(['the default postscript position', 'is landscape?'], /question) 
+  yes = dialog_message(['the default postscript position', 'is landscape?'], /question)
   init = [init $
           , ';' $
@@ -661 +597 @@
           , '11x17        11         17         27.94     43.18' $
           , 'ledger       17         11         43.18     27.94']
-  base = widget_base(/column) 
+  base = widget_base(/column)
   trash = widget_label(base, value = '--- Select the paper size ---')
   trash = widget_label(base, value = '')
@@ -689 +625 @@
   wsize_scale = xask(title = title, value = 1, /floating)
   init = [init, 'windowsize_scale = ' + strtrim(wsize_scale, 2)]
-  
+
 ;
 ; postscript archiving...