From 9886830120ff7eeba0858e591016ab0c26d1fd72 Mon Sep 17 00:00:00 2001
From: lukem <lukem>
Date: Sun, 15 Feb 2004 23:24:36 +0000
Subject: Prevent error dialog when the cursor has disappeared whilst
 displaying a popup `tip', as can happen when running x11/unclutter and leave
 the mouse over an item with a tip; the tip is displayed, the mouse hides, and
 now pck-timer doesn't barf when the mouse reappears. Fix from Ben Elliston,
 who knows much more tcl than I do.

---
 time/projclock/Makefile         |  3 ++-
 time/projclock/distinfo         |  3 ++-
 time/projclock/patches/patch-ac | 25 +++++++++++++++++++++++++
 3 files changed, 29 insertions(+), 2 deletions(-)
 create mode 100644 time/projclock/patches/patch-ac

(limited to 'time')

diff --git a/time/projclock/Makefile b/time/projclock/Makefile
index c0ca04d3aca..a02a8291117 100644
--- a/time/projclock/Makefile
+++ b/time/projclock/Makefile
@@ -1,8 +1,9 @@
-# $NetBSD: Makefile,v 1.6 2004/01/20 12:27:16 agc Exp $
+# $NetBSD: Makefile,v 1.7 2004/02/15 23:24:36 lukem Exp $
 #
 
 DISTNAME=       pclock0.7
 PKGNAME=	projclock-0.7
+PKGREVISION=	1
 CATEGORIES=	time
 MASTER_SITES=   http://members.optushome.com.au/starters/pclock/
 EXTRACT_SUFX=	.tgz
diff --git a/time/projclock/distinfo b/time/projclock/distinfo
index 2e2fb38d92b..457826a4b63 100644
--- a/time/projclock/distinfo
+++ b/time/projclock/distinfo
@@ -1,6 +1,7 @@
-$NetBSD: distinfo,v 1.2 2003/05/02 15:10:43 agc Exp $
+$NetBSD: distinfo,v 1.3 2004/02/15 23:24:36 lukem Exp $
 
 SHA1 (pclock0.7.tgz) = f0bd6d5c73d84805362304cc29f657def2622284
 Size (pclock0.7.tgz) = 17644 bytes
 SHA1 (patch-aa) = 572e374535f1c63ec571a563b5466226951fda08
 SHA1 (patch-ab) = d102aa199415cdbdab8aac3f2ac41de38620e8ea
+SHA1 (patch-ac) = 15c8bf81052744574dd005e8d64a58d63bc47406
diff --git a/time/projclock/patches/patch-ac b/time/projclock/patches/patch-ac
new file mode 100644
index 00000000000..ff3cbf5137f
--- /dev/null
+++ b/time/projclock/patches/patch-ac
@@ -0,0 +1,25 @@
+$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
+ }
+ 
-- 
cgit v1.2.3