From 9d232d8e6976d60b46fc0f3d45cea1826405fda9 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Tue, 25 Oct 2011 04:02:25 +0000
Subject: worked around tk_colorPanel hang by adding 100ms delay before popping
 up the color panel

svn path=/trunk/externals/hcs/; revision=15650
---
 colorpanel.tcl | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 colorpanel.tcl

(limited to 'colorpanel.tcl')

diff --git a/colorpanel.tcl b/colorpanel.tcl
new file mode 100644
index 0000000..23bc9e5
--- /dev/null
+++ b/colorpanel.tcl
@@ -0,0 +1,8 @@
+
+namespace eval ::hcs::colorpanel:: {
+}
+
+proc ::hcs::colorpanel::open {objectid initialcolor} {
+    set color [tk_chooseColor -initialcolor $initialcolor]
+    pdsend "$objectid callback $color"
+}
-- 
cgit v1.2.1