Add menu entries. Allow detaching of value.

diff --git a/value.tcl b/value.tcl
index e3c9ae065379b3a18506ef994b6e82d32969f364..a8656a0f877e7ebf2b8f0a37dc8b0f8e5128315c 100644 (file)
--- a/value.tcl
+++ b/value.tcl
@@ -2,6 +2,8 @@
 # $Id$
 #
 
+set value_priv(counter) -1
+
 proc value_no_filter {text} {
     return $text
 }
@@ -12,12 +14,13 @@ widget value {
     param main
     param savehist 15
     member hist_no 0
+    member send_filter value_no_filter
     method create {} {
        $self config -bd 2 -relief raised -highlightthickness 0
        pack [frame $self.title] -side top -fill x
        pack [label $self.title.l -text "Value:  "] -side left
        menubutton $self.title.vname -anchor w -menu $self.title.vname.m \
-           -bd 0
+           -bd 0 -state disabled
        menu $self.title.vname.m -postcommand "$self fill_vname_menu"
        pack $self.title.vname -fill x
        scrollbar $self.sb -relief sunken -bd 1 -command "$self.t yview"
@@ -25,6 +28,13 @@ widget value {
        pack $self.sb -side right -fill y
        pack $self.t -side right -fill both -expand 1
        bind $self.t <Control-x><Control-s> "$self send_value"
+       set m [$slot(main) add_menu Value]
+       $m add command -label "Send Value" -command "$self send_value"
+       $m add command -label "Save Value..." -state disabled
+       $m add command -label "Load Value..." -state disabled
+       $m add command -label "Detach Window" -command "$self detach"
+       bind $self.t <FocusIn> \
+           "if {\[focus -lastfor $self\] != \"$self\"} { $slot(main) status \"C-x C-s to send value\" }; continue"
     }
     method reconfig {} {
        $self.t config -width $slot(width) -height $slot(height)
@@ -32,7 +42,7 @@ widget value {
     method set_value {name value redo_command} {
        $self.t delete 1.0 end
        $self.t insert 1.0 $value
-       $self.title.vname config -text $name
+       $self.title.vname config -text $name -state normal
        set slot(history.[incr slot(hist_no)]) [list $name $redo_command]
        if {($slot(hist_no) - $slot(savehist)) > 0} {
            unset slot(history.[expr $slot(hist_no)-$slot(savehist)])
@@ -57,4 +67,13 @@ widget value {
            [eval $slot(send_filter) [list [$self.t get 1.0 end]]]
        $slot(main) status "Value sent"
     }
+    method detach {} {
+       set w [tkinspect_create_main_window \
+              -default_lists {} \
+              -target [$slot(main) cget -target]]
+       $w.value copy $self
+    }
+    method copy {v} {
+       $self.t insert 1.0 [$v.t get 1.0 end]
+    }
 }