#!/usr/bin/wish

proc openWin {} {
        destroy .ow
        pack [button .ow -text "close Window" -command "closeWin"] -in .m

        toplevel .w -background red
        wm title .w Red
        pack [button .w.q -text Close -command "closeWin"]
}

proc closeWin {} {
        destroy .w
        destroy .ow
        pack [button .ow -text "open Window" -command "openWin"] -in .m
}

wm title . White
wm iconname . White
pack [frame .m -background blue]
closeWin
pack [button .q -text Exit -command "destroy ."]