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
