aboutsummaryrefslogtreecommitdiff
path: root/colorpanel.tcl
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"
}