diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-10-25 04:02:25 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-10-25 04:02:25 +0000 |
commit | 9d232d8e6976d60b46fc0f3d45cea1826405fda9 (patch) | |
tree | 668c634ab28f4f0c42860dc48bbd089b28115f50 /colorpanel.tcl | |
parent | 12401ac030c9d91210a4eaa8323b6dfbd79b7764 (diff) |
worked around tk_colorPanel hang by adding 100ms delay before popping up the color panel
svn path=/trunk/externals/hcs/; revision=15650
Diffstat (limited to 'colorpanel.tcl')
-rw-r--r-- | colorpanel.tcl | 8 |
1 files changed, 8 insertions, 0 deletions
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" +} |