Posted to tcl by stu at Mon Jan 03 10:21:53 GMT 2022view raw
- $ cat 4x4.gob
- # Gub example
- # Turn a row of 16 buttons into a 4x4 grid
- # 16 buttons in a row
- b b b b b b b b b b b b b b b b
- # Push b4, b8 and b12 each down by 1 row
- !:-b4-12*4 +1
- # Put b4, b8 and b12 in column 0
- !:|b4-12*4 0
- $ gubtool 4x4.gob
- grid [tk::button .b0] -row 0 -column 0
- grid [tk::button .b1] -row 0 -column 1
- grid [tk::button .b2] -row 0 -column 2
- grid [tk::button .b3] -row 0 -column 3
- grid [tk::button .b4] -row 1 -column 0
- grid [tk::button .b5] -row 1 -column 1
- grid [tk::button .b6] -row 1 -column 2
- grid [tk::button .b7] -row 1 -column 3
- grid [tk::button .b8] -row 2 -column 0
- grid [tk::button .b9] -row 2 -column 1
- grid [tk::button .b10] -row 2 -column 2
- grid [tk::button .b11] -row 2 -column 3
- grid [tk::button .b12] -row 3 -column 0
- grid [tk::button .b13] -row 3 -column 1
- grid [tk::button .b14] -row 3 -column 2
- grid [tk::button .b15] -row 3 -column 3