Posted to tcl by mjanssen at Fri May 08 15:57:24 GMT 2009view raw
- 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