Bug #533367: use default Tk file selection dialogs.

diff --git a/ChangeLog b/ChangeLog
index 821c6e9b794b022fc717bfa41a7e87390970c72c..61301b6d4e3063f630f618b0e704f3d3cd48763a 100644 (file)
--- 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 1dce346f340c495df37a287b9deba5e278a384b3..229ae140d53c7559d5f3b4cb94a0fdce74f2dc40 100644 (file)
--- 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 0a717f1d0306ab92858cac4fee94d33c20cf654e..771d068255c776a62c5e3091553e73da3607e625 100644 (file)
--- 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