2000-06-30 Syd Polk <spolk@cygnus.com>

	* src/paths.c: Chris Faylor's path changes from 2000-06-09 blow
	out MSVC's stupid path limitation. This is only a problem
	for Source-Navigator.

diff --git a/libgui/ChangeLog b/libgui/ChangeLog
index 623411e..ff67929 100644 (file)
--- a/libgui/ChangeLog
+++ b/libgui/ChangeLog
@@ -1,3 +1,9 @@
+2000-06-30  Syd Polk  <spolk@cygnus.com>
+
+       * src/paths.c: Chris Faylor's path changes from 2000-06-09 blow
+       out MSVC's stupid path limitation. This is only a problem
+       for Source-Navigator.
+
 2000-06-22  Mo DeJong  <mdejong@redhat.com>
 
        * library/tree.tcl: Remove use of watch
@@ -266,6 +272,7 @@ Wed Mar  3 16:57:21 1999  Khamis Abuelkombuz  <khamis@cygnus.com>
         1998-08-10  Jim Ingham   <jingham@cygnus.com>
 
         * src/paths.c: Figure out how to run from the build tree.
+
 1999-01-14  Ben Elliston  <bje@cygnus.com>
 
        * src/tkTreeTable.c: Remove unnecessary #includes that collide

diff --git a/libgui/src/paths.c b/libgui/src/paths.c
index 1e131ef..de396e9 100644 (file)
--- a/libgui/src/paths.c
+++ b/libgui/src/paths.c
@@ -175,14 +175,7 @@ proc initialize_paths {} {\n\
   rename initialize_paths {}\n\
   set guidirs {}\n\
   set here [pwd]\n\
-  set exec_name [info nameofexecutable]\n\
-  if {[string compare [file type $exec_name] \"link\"] == 0} {\n\
-    set exec_name [file readlink $exec_name]\n\
-    if {[string compare [file pathtype $exec_name] \"relative\"] == 0} {\n\
-      set execName [file join [pwd] $exec_name]\n\
-    }\n\
-  }\n\
-  cd [file dirname $exe_name]\n\
+  cd [file dirname [info nameofexecutable]]\n\
   set d [file join [file dirname [pwd]] share]\n\
   lappend guidirs [file join $d cygnus gui]\n\
   set d [file join [file dirname [file dirname [pwd]]] share]\n\