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 }