From 656fd99090476b0842832dc2a96642691c57e58f Mon Sep 17 00:00:00 2001
From: sls <sls>
Date: Fri, 10 Feb 1995 11:24:16 +0000
Subject: [PATCH] Add save & load.
---
value.tcl | 30 +++++++++++++++++++++++++++---
1 file changed, 27 insertions(+), 3 deletions(-)
diff --git a/value.tcl b/value.tcl
index cd9beb1..fba5df3 100644
--- a/value.tcl
+++ b/value.tcl
@@ -34,10 +34,9 @@ widget value {
set m [$slot(main) add_menu Value]
$m add command -label "Send Value" -command "$self send_value"
$m add command -label "Find..." -command "$self search_dialog"
- $m add command -label "Save Value..." -state disabled
- $m add command -label "Load Value..." -state disabled
+ $m add command -label "Save Value..." -command "$self save"
+ $m add command -label "Load Value..." -command "$self load"
$m add command -label "Detach Window" -command "$self detach"
-
}
method reconfig {} {
$self.t config -width $slot(width) -height $slot(height)
@@ -117,6 +116,31 @@ widget value {
$slot(main) status "Search text not found."
}
}
+ method save {} {
+ filechooser $self.fc -newfile 1 -title "Save Value"
+ set file [$self.fc run]
+ if ![string length $file] {
+ $slot(main) status "Save cancelled."
+ return
+ }
+ set fp [open $file w]
+ puts $fp [$self.t get 1.0 end]
+ close $fp
+ $slot(main) status "Value saved to \"$file\""
+ }
+ method load {} {
+ filechooser $self.fc -title "Load Value"
+ set file [$self.fc run]
+ if ![string length $file] {
+ $slot(main) status "Load cancelled."
+ return
+ }
+ $self.t delete 1.0 end
+ set fp [open $file r]
+ $self.t insert 1.0 [read $fp]
+ close $fp
+ $slot(main) status "Value read from \"$file\""
+ }
}
dialog value_search {
--
2.23.0