Changeset 1862

Timestamp:

Aug 16, 2010, 6:27:53 PM (14 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

• icons.tcl (modified) (1 diff)
• textentry.tcl (modified) (3 diffs)
• textresult.tcl (modified) (4 diffs)

branches/blt4/gui/scripts/icons.tcl

@@ -16 +16 @@
 
 namespace eval Rappture::icon {
-    variable iconpath [file join $RapptureGUI::library scripts images]
+    variable iconpath [list [file join $RapptureGUI::library scripts images]]
     variable icons
 }

branches/blt4/gui/scripts/textentry.tcl

@@ -92 +92 @@
             rename -font -hintfont hintFont Font
         }
-        pack $itk_component(hints) -side bottom -fill x 
+        pack $itk_component(hints) -side bottom -fill x
     }
 
@@ -231 +231 @@
         # take down any existing widget
         foreach win [pack slaves $itk_interior] {
-            if { [winfo name $win] != "hints" } {
-                pack forget $win
-            }
+            pack forget $win
         }
 
@@ -549 +547 @@
 # CONFIGURATION OPTION: -state
 # ----------------------------------------------------------------------
+
+
+
 itcl::configbody Rappture::TextEntry::state {
     set valid {normal disabled}

branches/blt4/gui/scripts/textresult.tcl

@@ -28 +28 @@
     inherit itk::Widget
 
-    constructor {args} { # defined below }
-
+    constructor {args} { 
+        # defined below 
+    }
     public method add {dataobj {settings ""}}
     public method get {}
     public method delete {args}
     public method scale {args}
-    public method parameters {title args} { # do nothing }
+    public method parameters {title args} { 
+        # do nothing 
+    }
     public method download {option args}
 
     public method select {option args}
     public method find {option}
+    public method popup {option args} 
 
     private variable _dataobj ""  ;# data object currently being displayed
@@ -141 +145 @@
     $itk_component(text) tag configure ERROR -foreground red
 
-    eval itk_initialize $args
+    itk_component add emenu {
+        menu $itk_component(text).menu -tearoff 0
+    } {
+        ignore -tearoff
+    }
+    $itk_component(emenu) add command \
+        -label "Copy" -accelerator "^C" \
+        -command [list event generate $itk_component(text) <<Copy>>]
+    $itk_component(emenu) add command \
+        -label "Select All" -accelerator "^A" \
+        -command [itcl::code $this select all]
+    $itk_component(emenu) add command \
+        -label "Select None" -accelerator "Esc" \
+        -command [list puts stderr $this select none]
+    bind $itk_component(text) <<PopupMenu>> \
+        [itcl::code $this popup menu emenu %X %Y]
+
+   eval itk_initialize $args
 }
 
@@ -337 +358 @@
     switch -- $option {
         all {
+            puts stderr "$itk_component(text) tag add sel 1.0 end"
             $itk_component(text) tag add sel 1.0 end
         }
@@ -412 +434 @@
     $itk_component(findstatus) configure -text $status
 }
+
+# ----------------------------------------------------------------------
+# USAGE: _popup menu <which> <X> <Y>
+#
+# Used internally to manage edit operations.
+# ----------------------------------------------------------------------
+itcl::body Rappture::TextResult::popup {option args} {
+    puts stderr "popup option=$option args=$args"
+    switch -- $option {
+        menu {
+            if {[llength $args] != 3} {
+                error "wrong # args: should be \"_popup $option which x y\""
+            }
+            set mname [lindex $args 0]
+            set x [lindex $args 1]
+            set y [lindex $args 2]
+            tk_popup $itk_component($mname) $x $y
+        }
+        default {
+            error "bad option \"$option\": should be menu"
+        }
+    }
+}