#!/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