Artifact
38c07dc396ef64f9f708b1856c5b2516dd40b3143317b0b4b4cf0c7105d170b1:
Attachment "keypad.tcl" to
ticket [06f3922f]
added by
marc_culler
2019-04-16 21:10:44.
package require Tk
package require Ttk
ttk::setTheme clam
ttk::style configure num.TButton -foreground black \
-relief [list {pressed !disabled} solid] -highlightbackground black -activebackground black
ttk::style configure num.TButton -width 5
ttk::style map num.TButton -foreground [list active white]
ttk::style map num.TButton -background [list pressed yellow active black !disabled gray80]
ttk::style map num.TButton -relief [list !disabled solid]
frame .n
grid [ttk::button .n.bW -text W -style num.TButton] -row 0 -column 0
grid [ttk::button .n.b7 -text 7 -style num.TButton -command { puts {7} ; break;}] -row 1 -column 0
grid [ttk::button .n.b4 -text 4 -style num.TButton -command { puts {4} ; break;}] -row 2 -column 0
grid [ttk::button .n.b1 -text 1 -style num.TButton -command { puts {1} ; break;}] -row 3 -column 0
grid [ttk::button .n.bfull -text T -style num.TButton -command {puts {T} ; break;}] -row 4 -column 0
grid [ttk::button .n.bPlus -text \u002B -style num.TButton] -row 5 -column 0
grid [ttk::button .n.bF -text F -style num.TButton] -row 0 -column 1
grid [ttk::button .n.b8 -text 8 -style num.TButton -command { puts {8} ; break;}] -row 1 -column 1
grid [ttk::button .n.b5 -text 5 -style num.TButton -command { puts {5} ; break;}] -row 2 -column 1
grid [ttk::button .n.b2 -text 2 -style num.TButton -command { puts {2} ; break;}] -row 3 -column 1
grid [ttk::button .n.b0 -text 0 -style num.TButton -command { puts {0} ; break;}] -row 4 -column 1
grid [ttk::button .n.bpoint -text \u2022 -style num.TButton -command { puts {.} ; break;}] -row 5 -column 1
grid [ttk::button .n.bA -text A -style num.TButton] -row 0 -column 2
grid [ttk::button .n.b9 -text 9 -style num.TButton -command { puts {9} ; break;}] -row 1 -column 2
grid [ttk::button .n.b6 -text 6 -style num.TButton -command { puts {6} ; break;}] -row 2 -column 2
grid [ttk::button .n.b3 -text 3 -style num.TButton -command { puts {3} ; break;}] -row 3 -column 2
grid [ttk::button .n.bc -text C -style num.TButton] -row 4 -column 2
grid [ttk::button .n.bmoins -text \u2212 -style num.TButton] -row 5 -column 2
pack .n
