$NetBSD: patch-ac,v 1.1 2004/02/15 23:24:36 lukem Exp $

--- tips.tcl.~1~	2001-01-24 14:22:46.000000000 +1100
+++ tips.tcl
@@ -28,13 +28,18 @@ proc show_tip { win } {
 	} else {
 		set message TIP
 	}
-	toplevel .tip
+    	if ![winfo exists .tip] {
+		toplevel .tip
+	}
 	wm overrideredirect .tip 1
 	set xy [winfo pointerxy $win]
 	set x [expr [lindex $xy 0] + 8]
 	set y [expr [lindex $xy 1] + 8]
 	wm geometry .tip +$x+$y
-	message .tip.msg -text $message -font {helvetica 10} -bg bisque -bd 1 -relief raised -aspect 300
+	if ![winfo exists .tip.msg] {
+		message .tip.msg
+	}
+	.tip.msg configure -text $message -font {helvetica 10} -bg bisque -bd 1 -relief raised -aspect 300
 	pack .tip.msg
 }
 
