Changeset 114 for trunk/SRC/ToBeReviewed/IMAGE/image_viewer.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/ToBeReviewed/IMAGE/image_viewer.pro (modified) (10 diffs)

trunk/SRC/ToBeReviewed/IMAGE/image_viewer.pro

@@ -48 +48 @@
 ;THIS PROCEDURE IS CALLED WHEN A USER SELECTS "File > Open Picture Files" FROM THE MAIN MENU
 ;error handling:
+;
+  compile_opt idl2, strictarrsubs
+;
 !ERROR_STATE.CODE=0
 CATCH,error
@@ -126 +129 @@
 ;THIS PROCEDURE IS CALLED WHEN A USER SELECTS "File > Open All In Folder" FROM THE MAIN MENU
 ;error handling:
+;
+  compile_opt idl2, strictarrsubs
+;
 !ERROR_STATE.CODE=0
 CATCH,error
@@ -204 +210 @@
 PRO IMAGE_VIEWER_CANCEL,event
 ;obtain state structure for top-level-base from its UVALUE:
+;
+  compile_opt idl2, strictarrsubs
+;
 WIDGET_CONTROL,event.top,GET_UVALUE=pState
 ;shut-off timer:
@@ -214 +223 @@
 PRO IMAGE_VIEWER_TIMER,event
 ;obtain state structure for top-level-base from its UVALUE:
+;
+  compile_opt idl2, strictarrsubs
+;
 WIDGET_CONTROL,event.top,GET_UVALUE=pState
 if (*pState).timer EQ 1 then begin ;continue processing files:
@@ -884 +896 @@
 ;THIS PROCEDURE IS CALLED WHEN A USER SELECTS "File > Exit" FROM THE MAIN MENU
 ;terminate the program by destroying the top-level-base (widgetID always stored in event.top):
+;
+  compile_opt idl2, strictarrsubs
+;
 WIDGET_CONTROL,event.top,/DESTROY
 END
@@ -894 +909 @@
 ;FROM THE MAIN MENU
 ;display a simple message:
+;
+  compile_opt idl2, strictarrsubs
+;
 messageStr=['IMAGE_VIEWER written by AEB, 2002.','',$
             'The purpose of this program is to provide an interactive tool that can be used',$
@@ -909 +927 @@
 ;THIS PROCEDURE IS CALLED WHEN A USER CLICKS ON ONE OF THE THUMBNAIL PICTURES
 ;error handling:
+;
+  compile_opt idl2, strictarrsubs
+;
 !ERROR_STATE.CODE=0
 CATCH,error
@@ -953 +974 @@
 ;THIS PROCEDURE IS CALLED WHEN THE PROGRAM IS TERMINATED AND XMANAGER REGISTERS A CLEANUP:
 ;obtain state structure for top-level-base from its uvalue:
+;
+  compile_opt idl2, strictarrsubs
+;
 WIDGET_CONTROL,widgetID,GET_UVALUE=pState
 ;test for validity of state structure pointer:
@@ -978 +1002 @@
 ;THIS PROCEDURE IS CALLED WHEN A USER RESIZES THE TOP-LEVEL BASE
 ;error handling:
+;
+  compile_opt idl2, strictarrsubs
+;
 !ERROR_STATE.CODE=0
 CATCH,error
@@ -997 +1024 @@
 PRO IMAGE_VIEWER
 ;error handling:
+;
+  compile_opt idl2, strictarrsubs
+;
 !ERROR_STATE.CODE=0
 CATCH,error