Changeset 1719 for branches/blt4/gui/scripts/tooltip.tcl

Timestamp:

May 18, 2010 4:26:32 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/tooltip.tcl (modified) (3 diffs)

branches/blt4/gui/scripts/tooltip.tcl

@@ -38 +38 @@
     itk_option define -message message Message ""
 
-    private common pending "" ;         # after ID for pending "tooltip show"
-    private common catalog    ;         # maps widget => message
-    private common delay      ;         # The delay in milliseconds to wait
-                                        # before presenting the tooltip.
-    constructor {args} { 
-        # defined below 
-    }
-    public method show { where }
+    constructor {args} { # defined below }
+
+    public method show {where}
     public method hide {}
-    
-    public proc for { widget args }
-    public proc text { widget args }
+
+    public proc for {widget args}
+    public proc text {widget args}
+    private common catalog    ;# maps widget => message
+
     public proc tooltip {option args}
+    private common pending "" ;# after ID for pending "tooltip show"
+
     public proc cue {option args}
-    public proc delay { widget args }
 
     bind RapptureTooltip <Enter> \
@@ -298 +296 @@
                 after cancel $pending
             }
-            set t 750
-            if { [info exists delay($widget)] } {
-                set t $delay($widget)
-            }
-            set pending [after $t [itcl::code tooltip show $widget $loc]]
+            set pending [after 750 [itcl::code tooltip show $widget $loc]]
         }
         show {
@@ -390 +384 @@
 
 # ----------------------------------------------------------------------
-# USAGE: delay <widget> ?<value>?
-#
-# Used to query or set the text used for the tooltip for a widget.
-# This is done automatically when you call the "for" proc, but it
-# is sometimes handy to query or change the text later.
-# ----------------------------------------------------------------------
-itcl::body Rappture::Tooltip::delay {widget args} {
-    if {[llength $args] == 0} {
-        if {[info exists delay($widget)]} {
-            return $delay($widget)
-        }
-        return ""
-    } elseif {[llength $args] == 1} {
-        set time [lindex $args 0]
-        set delay($widget) $time
-    } else {
-        error "wrong # args: should be \"delay widget ?millisecs?\""
-    }
-}
-
-# ----------------------------------------------------------------------
 # CONFIGURATION OPTION: -icon
 # ----------------------------------------------------------------------