aboutsummaryrefslogtreecommitdiff
path: root/colorpanel.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'colorpanel.tcl')
-rw-r--r--colorpanel.tcl8
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"
+}