Changeset 226 for trunk/SRC/Colors

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/Colors/newpalette.pro (modified) (5 diffs)

trunk/SRC/Colors/newpalette.pro

@@ -2 +2 @@
 ;+
 ;
-; @file_comments 
+; @file_comments
 ; Allows to save the palette which is on the screen
 ; in a same type file than the one given by default in IDL
 ; 'colors1.tbl'.
 ;
-; @categories 
+; @categories
 ; Color
 ;
@@ -13 +13 @@
 ; a string containing the name of the new palette we want to write.
 ;
-; @keyword OVER 
+; @keyword OVER
 ; the number of the palette we want to replace
 ;
@@ -19 +19 @@
 ; The file containing the color palettes. It can be in any directory of the !path.
 ;
-; @keyword _EXTRA 
+; @keyword _EXTRA
 ; Used to pass modifyct keywords
 ;
@@ -45 +45 @@
 ; is nametbl belongs to the same effective user ID (UID) as the IDL process?
     IF !d.name EQ 'X' THEN BEGIN ; works only for unix tye machine
-      IF file_test(nametbl, /user) NE 1 THEN BEGIN 
-        noanswer = report('The file '+nametbl+' is not yours... Do you want to copy '+nameshort+' in your MyIDL diectory: '+homedir+' ?', /default_no, /question)
-        IF noanswer THEN return ELSE BEGIN 
+      IF file_test(nametbl, /user) NE 1 THEN BEGIN
+        noanswer = report('The file '+nametbl+' is not yours... Do you want to copy '+nameshort+' in your MyIDL directory: '+homedir+' ?', /default_no, /question)
+        IF noanswer THEN return ELSE BEGIN
           file_copy, nametbl, homedir  ; copy the file
           nametbl = homedir + nametbl  ; update its name
@@ -54 +54 @@
     ENDIF
 ; no file nametbl found
-    ENDIF ELSE BEGIN                           
+    ENDIF ELSE BEGIN
       nametbl = file_basename(namesave)        ; get back the original nametbl
-      noanswer = report('The file '+nametbl+' was not found !path directories... Do you want to create such a file in  your MyIDL diectory: '+homedir+' ?', /default_no, /question)
+      noanswer = report('The file '+nametbl+' was not found !path directories... Do you want to create such a file in  your MyIDL directory: '+homedir+' ?', /default_no, /question)
       if NOT noanswer then return
-      nameorg = filepath('colors1.tbl', subdir = ['resource', 'colors']) 
+      nameorg = filepath('colors1.tbl', subdir = ['resource', 'colors'])
       file_copy, nameorg, homedir
-    ENDELSE 
+    ENDELSE
 ; is nametbl writable?
     IF file_test(nametbl, /write) NE 1 THEN file_chmod, nametbl, /u_write
 ; make sure that we will really use nametbl name even if _EXTRA keyword is used
-    if n_elements(ex) NE 0 then $ 
+    if n_elements(ex) NE 0 then $
        if (where(tag_names(ex) EQ 'FILE'))[0] NE -1 then ex.FILE = nametbl
 ;