Tk Library Source Code: Artifact [1869e8221c]

Artifact 1869e8221c3a0414212cdf79776d86a8cfb4e846:

Attachment "test.tcl" to ticket [891254ffff] added by rmaris 2004-02-06 17:46:33.

#!/bin/sh
package require -exact BWidget 1.7

button .b1 -text "color pop-up menu below" -command {SelectColor::menu .c below -parent .b1}
button .b2 -text "color pop-up menu above" -command {SelectColor::menu .c above -parent .b1}
pack .b2 .b1