#> pop1 menubutton
#. -menu .-.pop
#. -bg purple -fg white -activebackground magenta -width 8 -text jeden
#. @float if .(.#1 >= 1.) .(.-.pop invoke .#1.)

::toxy::popup .- .| rpop1 \
    [list {one jeden} {two dwa} {three trzy} \
    {four cztery} {five pięć} {six sześć} {seven siedem} \
    {eight osiem} {nine dziewięć} {ten dziesięć}] \
    -bg purple -fg white -activebackground magenta