Changeset 114 for trunk/SRC/buildinit.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:

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

trunk/SRC/buildinit.pro

@@ -72 +72 @@
     XSIZE=XSize, YSIZE=YSize, UNAME=uname
 ;   FLOOR=vmin, CEILING=vmax 
+;
+  compile_opt idl2, strictarrsubs
+;
   resolve_routine, 'cw_field', /compile_full_file, /is_function
     ;   Examine our keyword list and set default values
@@ -140 +143 @@
 PRO printerdef_event, event
 ; get back the ids of the cw_field widgets
+;
+  compile_opt idl2, strictarrsubs
+;
   widget_control, event.id, get_uvalue = cwids
   IF size(cwids, /n_dimensions) EQ 1 THEN cwids = reform(cwids, 3, 1)
@@ -170 +176 @@
 PRO papsize_event, event
 ; get back the ids of the cw_field widgets
+;
+  compile_opt idl2, strictarrsubs
+;
   widget_control, event.id, get_uvalue = uvalue
   IF uvalue[0] NE 'ok' THEN return
@@ -190 +199 @@
 PRO xask_event, event
 ; now we give the answer to buildinit.pro by using the pointer uvalue
+;
+  compile_opt idl2, strictarrsubs
+;
    widget_control, event.top, get_uvalue = ptranswer
    *ptranswer = event.value
@@ -201 +213 @@
 ;
 FUNCTION xask, _extra = ex
+;
+  compile_opt idl2, strictarrsubs
+;
   base = widget_base() 
   field = cw_field2(base, /frame, /return_events, /column, _extra = ex) 
@@ -218 +233 @@
 ;
 FUNCTION getdir, title = title, nomark = nomark, nowrite = nowrite
+;
+  compile_opt idl2, strictarrsubs
+;
   
   REPEAT BEGIN
@@ -235 +253 @@
 ;
 PRO buildinit
+;
+;
+  compile_opt idl2, strictarrsubs
 ;
   IF fix(strmid(!version.release, 0, 1)) LT 6 THEN BEGIN