blob: f5a15c0013bf7a332c259d3b9245a5d4ae440735 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
# ----------------------------------------------------------------------
# DEMO: buttonbox in [incr Widgets]
# ----------------------------------------------------------------------
package require Iwidgets 4.0
iwidgets::buttonbox .bb
.bb add OK -text OK -command "puts OK"
.bb add Apply -text Apply -command "puts Apply"
.bb add Cancel -text Cancel -command "puts Cancel"
.bb default OK
pack .bb -expand yes -fill both
|