Changeset 1418 for trunk

Timestamp:

Apr 22, 2009 8:29:06 PM (15 years ago)

Author:

gah

Message:

Don't generate error if tooltip for widget can't be found

File:

• trunk/gui/scripts/tooltip.tcl (modified) (2 diffs)

trunk/gui/scripts/tooltip.tcl

@@ -291 +291 @@
 
             if {![info exists catalog($widget)]} {
-                error "can't find tooltip for $widget"
+                return;                 # No tooltip for widget.
             }
             if {$pending != ""} {
@@ -300 +300 @@
         show {
             if {[llength $args] < 1 || [llength $args] > 2} {
-                error "wrong # args: should be \"tooltip pending widget ?@x,y?\""
+                error "wrong # args: should be \"tooltip show tag loc\""
             }
             set tag [lindex $args 0]