Changeset 243

Timestamp:

04/12/07 10:52:32 (17 years ago)

Author:

smasson

Message:

small bugfixes

Location:

trunk/SRC

Files:

• ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro (modified) (1 diff)
• Utilities/createfunc.pro (modified) (1 diff)
• Utilities/createpro.pro (modified) (1 diff)
• Utilities/isadirectory.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/WIDGET/AUTOUR_de_XXX/selectfile.pro

@@ -258 +258 @@
   ENDIF
   IF n_elements(idlfile) NE 0 THEN BEGIN
+    idlfile = isafile(filename = idlfile, /onlypro, title = '.pro file used to define the grid?')
     widget_control, basemeshload, set_value = idlfile
     selectfile_event, {ID:basemeshload, TOP:base, HANDLER:base}
     widget_control, basemeshload, get_value = idlfile2
-    IF idlfile2[0] NE '' THEN widget_control, gdldid, set_value = 1
+    widget_control, gdldid, set_value = 1
   ENDIF
   IF n_elements(argspro) NE 0 THEN widget_control, argbase, set_value = argspro

trunk/SRC/Utilities/createfunc.pro

@@ -68 +68 @@
    cd, current = here
    pathlist = [here, strsplit(!path, path_sep(/search_path),/extract)]
-   inpath = total((file_search(dirname))[0] EQ pathlist)
-   IF inpath EQ 0 THEN !path = !path + path_sep(/search_path) + inpath
+   inpath = total((file_search(dirname, /fully_qualify_path))[0] EQ pathlist)
+   IF inpath EQ 0 THEN !path = dirname + path_sep(/search_path) + !path
 ; update the list of .pro and .sav in !PATH
    path_cache, /rebuild

trunk/SRC/Utilities/createpro.pro

@@ -78 +78 @@
    cd, current = here
    pathlist = [here, strsplit(!path, path_sep(/search_path),/extract)]
-   inpath = total((file_search(dirname))[0] EQ pathlist)
-   IF inpath EQ 0 THEN !path = !path + path_sep(/search_path) + inpath
+   inpath = total((file_search(dirname, /fully_qualify_path))[0] EQ pathlist)
+   IF inpath EQ 0 THEN !path = dirname + path_sep(/search_path) + !path
 ; update the list of .pro and .sav in !PATH
    path_cache, /rebuild

trunk/SRC/Utilities/isadirectory.pro

@@ -65 +65 @@
   ENDIF
 ;
-  directory = file_search(directory, /mark_directory)
+  directory = file_search(directory, /mark_directory, /test_directory, /fully_qualify_path)
   IF n_elements(directory) EQ 1 THEN RETURN, directory[0] $
   ELSE RETURN, directory