From b2f40b6c4e7b9c957f6bae692e1b46c5eaa92e38 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Fri, 22 Mar 2002 01:06:46 +0000 Subject: [PATCH] Bug #533367: use default Tk file selection dialogs. --- ChangeLog | 5 +++++ globals_list.tcl | 5 +++-- value.tcl | 10 ++++++---- 3 files changed, 14 insertions(+), 6 deletions(-) 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 + + * globals_list.tcl: + * value.tcl: Bug #533367: use default Tk file selection dialogs. + Thu Mar 21 15:27:53 2002 Pat Thoyts * 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 -- 2.23.0