From 5d6833cfa31ff9aa6ecafb9adb3463d327a33d82 Mon Sep 17 00:00:00 2001 From: spolk Date: Fri, 30 Jun 2000 22:45:56 +0000 Subject: [PATCH] 2000-06-30 Syd Polk * 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. --- libgui/ChangeLog | 7 +++++++ libgui/src/paths.c | 9 +-------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/libgui/ChangeLog b/libgui/ChangeLog index 623411e5e9..ff679295ac 100644 --- a/libgui/ChangeLog +++ b/libgui/ChangeLog @@ -1,3 +1,9 @@ +2000-06-30 Syd Polk + + * 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 * library/tree.tcl: Remove use of watch @@ -266,6 +272,7 @@ Wed Mar 3 16:57:21 1999 Khamis Abuelkombuz 1998-08-10 Jim Ingham * src/paths.c: Figure out how to run from the build tree. + 1999-01-14 Ben Elliston * src/tkTreeTable.c: Remove unnecessary #includes that collide diff --git a/libgui/src/paths.c b/libgui/src/paths.c index 1e131efa59..de396e9bc7 100644 --- 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\ -- 2.11.0