Changeset 262 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro

Timestamp:

08/21/07 16:19:32 (17 years ago)

Author:

pinsard

Message:

corrections of some headers and parameters and keywords case. change of pro2href to replace proidl

File:

• trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_bgroup.pro (modified) (4 diffs)

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

@@ -80 +80 @@
 ; $Id$
 ;-
-function cw_bgroup_getv, id, value
-
+;
+FUNCTION cw_bgroup_getv, id, value
+;
   compile_opt hidden, idl2, strictarrsubs
+;
   ON_ERROR, 2                       ;return to caller
 
@@ -129 +131 @@
 ; $Id$
 ;-
-function cw_bgroup_event, ev
+;
+FUNCTION cw_bgroup_event, ev
+;
   compile_opt hidden, idl2, strictarrsubs
+;
   WIDGET_CONTROL, ev.handler, GET_UVALUE=stash
   WIDGET_CONTROL, stash, GET_UVALUE=state, /NO_COPY
@@ -333 +338 @@
 ;
 ;-
-
-
-
-
-
-function cw_bgroup, parent, names, $
+;
+FUNCTION cw_bgroup, parent, names, $
     BUTTON_UVALUE = button_uvalue, COLUMN=column, EVENT_FUNCT = efun, $
     EXCLUSIVE=excl, FONT=font, FRAME=frame, IDS=ids, LABEL_TOP=label_top, $
@@ -349 +350 @@
     YOFFSET=yoffset, YPAD=ypad, YSIZE=ysize, Y_SCROLL_SIZE=y_scroll_size, $
     UNAME=uname
-
-
+;
+  compile_opt hidden, idl2, strictarrsubs
+;
   IF (N_PARAMS() ne 2) THEN ras = report('Incorrect number of arguments')