From: Keith Seitz <keiths@redhat.com>
Date: Mon, 7 May 2001 15:43:23 +0000 (+0000)
Subject: 	* library/globalpref.itb (build_win): Preserve the
X-Git-Tag: dberlin-typesystem-branchpoint~472
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=f98aef9f029b00731cc97fa0e44a727a99bf9346;p=pf3gnuchains%2Fpf3gnuchains4x.git

	* library/globalpref.itb (build_win): Preserve the
	current working directory.
---

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 9e9a5745c0..6534fb661b 100644
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-07  Keith Seitz  <keiths@cygnus.com>
+
+	* library/globalpref.itb (build_win): Preserve the
+	current working directory.
+
 2001-05-06  Kevin Buettner  <kevinb@redhat.com>
 
 	* generic/gdbtk-cmds.c (gdb_target_has_execution_command)
diff --git a/gdb/gdbtk/library/globalpref.itb b/gdb/gdbtk/library/globalpref.itb
index a7eb809864..d1c1cd768c 100644
--- a/gdb/gdbtk/library/globalpref.itb
+++ b/gdb/gdbtk/library/globalpref.itb
@@ -76,6 +76,7 @@ body GlobalPref::build_win {} {
     -command [code $this change_icons]
   
   # get list of icon directories
+  set curdir [pwd]
   set icondirlist ""
   cd $GDBTK_LIBRARY
   foreach foo [glob -- *] {
@@ -83,7 +84,8 @@ body GlobalPref::build_win {} {
       lappend icondirlist $foo
     }
   }
-  
+  cd $curdir
+
   set width 14
   # load combobox
   set imagedir [pref get gdb/ImageDir]