Posted to tcl by mjanssen at Fri May 08 15:57:24 GMT 2009view pretty

frame .windows
frame .form
frame .inbox

frame .buttons

grid [button .buttons.inbox -text Inbox -command show_inbox] -sticky ew
grid [button .buttons.form -text Studenform -command show_form] -stick ew

label .form.lbl -text "This is the form"
label .inbox.lbl -text "This is the inbox"

pack .form.lbl -expand 1 -fill both
pack .inbox.lbl -expand 1 -fill both

proc show_form {} {
    raise .form
}

proc show_inbox {} {
    raise .inbox
}

grid .buttons .windows
grid .inbox -in .windows -column 0 -row 0
grid .form -in .windows -column 0 -row 0