blob: 23bc9e52dd47748bdf7a2a3e8aca2ed193c4a46f (
plain)
1
2
3
4
5
6
7
8
|
namespace eval ::hcs::colorpanel:: {
}
proc ::hcs::colorpanel::open {objectid initialcolor} {
set color [tk_chooseColor -initialcolor $initialcolor]
pdsend "$objectid callback $color"
}
|