[pkgsrc/trunk]: pkgsrc/time/projclock Prevent error dialog when the cursor ha...

[lukem <lukem%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/0cee81784623
branches:  trunk
changeset: 468671:0cee81784623
user:      lukem <lukem%pkgsrc.org@localhost>
date:      Sun Feb 15 23:24:36 2004 +0000

description:
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.

diffstat:

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

diffs (55 lines):

diff -r bc6802424249 -r 0cee81784623 time/projclock/Makefile
--- a/time/projclock/Makefile   Sun Feb 15 23:15:18 2004 +0000
+++ b/time/projclock/Makefile   Sun Feb 15 23:24:36 2004 +0000
@@ -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 -r bc6802424249 -r 0cee81784623 time/projclock/distinfo
--- a/time/projclock/distinfo   Sun Feb 15 23:15:18 2004 +0000
+++ b/time/projclock/distinfo   Sun Feb 15 23:24:36 2004 +0000
@@ -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 -r bc6802424249 -r 0cee81784623 time/projclock/patches/patch-ac
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/time/projclock/patches/patch-ac   Sun Feb 15 23:24:36 2004 +0000
@@ -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
+ }
+