Artifact 1d7d6d568ededce88322875348f2daafdd03abd2:
- File macsheet/demo.tcl — part of check-in [eeea27ce91] at 2015-07-07 03:03:03 on branch trunk — Re-work commit (user: kevin size: 335)
package require macsheet
button .b -text "Run Sheet" -command sheetf
pack .b
proc sheetf {} {
toplevel .f
label .f.l -bg red -text "Sheet"
pack .f.l -fill both -expand yes
button .f.b -text "Close Sheet" -command [list macsheet::closesheet .f]
pack .f.b -fill both -expand yes
macsheet::sheet . .f
}