Tk-Components

Artifact Content
Login

Artifact 1d7d6d568ededce88322875348f2daafdd03abd2:


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
}