From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 22 Mar 2002 01:06:46 +0000 (+0000)
Subject: Bug #533367: use default Tk file selection dialogs.
X-Git-Tag: r5_1_6p7~2
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=b2f40b6c4e7b9c957f6bae692e1b46c5eaa92e38;p=tkinspect

Bug #533367: use default Tk file selection dialogs.
---

diff --git a/ChangeLog b/ChangeLog
index 821c6e9..61301b6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Mar 22 01:04:59 2002  Pat Thoyts <patthoyts@users.sourceforge.net>
+
+	* globals_list.tcl: 
+	* value.tcl: Bug #533367: use default Tk file selection dialogs.
+
 Thu Mar 21 15:27:53 2002  Pat Thoyts <patthoyts@users.sourceforge.net>
 
 	* tkinspect.tcl: Improved the dde send implementation and fixed
diff --git a/globals_list.tcl b/globals_list.tcl
index 1dce346..229ae14 100644
--- a/globals_list.tcl
+++ b/globals_list.tcl
@@ -93,8 +93,9 @@ dialog variable_trace {
 	$self.t see end
     }
     method save {} {
-	filechooser $self.save -title "Save $slot(variable) Trace" -newfile 1
-	set file [$self.save run]
+	#filechooser $self.save -title "Save $slot(variable) Trace" -newfile 1
+	#set file [$self.save run]
+        set file [tk_getSaveFile -title "Save $slot(variable) Trace"]
 	if {![string length $file]} return
 	set fp [open $file w]
 	puts $fp [$self.t get 1.0 end]
diff --git a/value.tcl b/value.tcl
index 0a717f1..771d068 100644
--- a/value.tcl
+++ b/value.tcl
@@ -123,8 +123,9 @@ widget value {
 	}
     }
     method save {} {
-	filechooser $self.fc -newfile 1 -title "Save Value"
-	set file [$self.fc run]
+	#filechooser $self.fc -newfile 1 -title "Save Value"
+	#set file [$self.fc run]
+        set file [tk_getSaveFile -title "Save Value"]
 	if ![string length $file] {
 	    $slot(main) status "Save cancelled."
 	    return
@@ -135,8 +136,9 @@ widget value {
 	$slot(main) status "Value saved to \"$file\""
     }
     method load {} {
-	filechooser $self.fc -title "Load Value"
-	set file [$self.fc run]
+	#filechooser $self.fc -title "Load Value"
+	#set file [$self.fc run]
+        set file [tk_getOpenFile -title "Load Value"]
 	if ![string length $file] {
 	    $slot(main) status "Load cancelled."
 	    return