gamma.tk
author viric@llimona
Mon, 16 Oct 2006 00:49:43 +0200
changeset 0 2b12eedda295
child 1 c36976fd28f3
permissions -rw-r--r--
Made program to create gray50 bitmaps.
viric@0
     1
#!/bin/wish
viric@0
     2
viric@0
     3
frame .leftcol
viric@0
     4
label .leftcol.c -height 100 -width 50 -bg #12f -bitmap @gray50.xbm
viric@0
     5
pack .leftcol.c
viric@0
     6
frame .centercol
viric@0
     7
button .centercol.b -height 100 -width 50 -bg #f21 -fg #f21 -bitmap gray50
viric@0
     8
pack .centercol.b
viric@0
     9
frame .rightcol
viric@0
    10
label .rightcol.c -height 100 -width 50 -bg #5f6 -bitmap @gray50.xbm
viric@0
    11
pack .rightcol.c
viric@0
    12
viric@0
    13
pack .leftcol -side left
viric@0
    14
pack .centercol -side left
viric@0
    15
pack .rightcol -side left
viric@0
    16