Skript Tcl/Tk - Praktische Informatik / Datenbanken - Universität Kassel

Kapitel 7 – Packen, Rastern, Plazieren von Fenstern 113
Die Widgets werden wie folgt erzeugt.
button .quit -text "Off" -command exit
entry .readout -state disabled -textvariable current \
-xscrollcommand {.sbar set}
scrollbar .sbar -orient horizontal \
-command {.readout xview}
button .key0 -text "0" -width 3 -command {keypress "0"}
button .key1 -text "1" -width 3 -command {keypress "1"}
button .key2 -text "2" -width 3 -command {keypress "2"}
button .key3 -text "3" -width 3 -command {keypress "3"}
button .key4 -text "4" -width 3 -command {keypress "4"}
button .key5 -text "5" -width 3 -command {keypress "5"}
button .key6 -text "6" -width 3 -command {keypress "6"}
button .key7 -text "7" -width 3 -command {keypress "7"}
button .key8 -text "8" -width 3 -command {keypress "8"}
button .key9 -text "9" -width 3 -command {keypress "9"}
button .point -text "." -width 3 -command {keypress "."}
button .plus -text "+" -width 3 -command {keypress "+"}
button .minus -text "-" -width 3 -command {keypress "-"}
button .times -text "*" -width 3 -command {keypress "*"}
button .div -text "/" -width 3 -command {keypress "/"}
button .equal -text "=" -width 3 -command {keypress "="}
button .sign -text "+/-" -width 3 \
-command {keypress "+/-"}