Changeset 114 for trunk/SRC/ToBeReviewed/IMAGE

Timestamp:

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

Author:

smasson

Message:

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

Location:

trunk/SRC/ToBeReviewed/IMAGE

Files:

• animgif.pro (modified) (1 diff)
• image_viewer.pro (modified) (10 diffs)
• imdisp.pro (modified) (5 diffs)
• saveimage.pro (modified) (1 diff)
• showimage.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/IMAGE/animgif.pro

@@ -42 +42 @@
 ;------------------------------------------------------------
 PRO animgif, nomfic
+;
+  compile_opt idl2, strictarrsubs
+;
 @common
 ;

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

trunk/SRC/ToBeReviewed/IMAGE/imdisp.pro

@@ -1 +1 @@
 ;-------------------------------------------------------------------------------
 FUNCTION IMDISP_GETPOS, ASPECT, POSITION=POSITION, MARGIN=MARGIN
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ;- Compute a position vector given an aspect ratio (called by IMDISP_IMSIZE)
@@ -46 +49 @@
 FUNCTION IMDISP_IMSCALE, IMAGE, RANGE=RANGE, BOTTOM=BOTTOM, NCOLORS=NCOLORS, $
   NEGATIVE=NEGATIVE
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ;- Byte-scale an image (called by IMDISP)
@@ -73 +79 @@
 ;-------------------------------------------------------------------------------
 FUNCTION IMDISP_IMREGRID, DATA, NX, NY, INTERP=INTERP
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ;- Regrid a 2D array (called by IMDISP)
@@ -112 +121 @@
 PRO IMDISP_IMSIZE, IMAGE, X0, Y0, XSIZE, YSIZE, ASPECT=ASPECT, $
   POSITION=POSITION, MARGIN=MARGIN
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ;- Compute the size and offset for an image (called by IMDISP)
@@ -171 +183 @@
   BACKGROUND=BACKGROUND, ERASE=ERASE, $
   AXIS=AXIS, NEGATIVE=NEGATIVE, _EXTRA=EXTRA_KEYWORDS
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ;+

trunk/SRC/ToBeReviewed/IMAGE/saveimage.pro

@@ -1 +1 @@
 PRO SAVEIMAGE, FILE, BMP=BMP, PNG=PNG, PICT=PICT, JPEG=JPEG, TIFF=TIFF, $
   QUALITY=QUALITY, DITHER=DITHER, CUBE=CUBE, QUIET=QUIET, MULTIPLE = multiple
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ;+

trunk/SRC/ToBeReviewed/IMAGE/showimage.pro

@@ -1 +1 @@
 PRO SHOWIMAGE, FILE, DITHER=DITHER, CURRENT=CURRENT
+;
+  compile_opt idl2, strictarrsubs
+;
 
 ;+