blob: 88b659529f514c2a25fa32fab4b8554cfe1b0b9b (
plain)
1
2
3
4
5
6
7
8
9
10
|
#> 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
|