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
}




