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

  1. frame .windows
  2. frame .form
  3. frame .inbox
  4.  
  5. frame .buttons
  6.  
  7. grid [button .buttons.inbox -text Inbox -command show_inbox] -sticky ew
  8. grid [button .buttons.form -text Studenform -command show_form] -stick ew
  9.  
  10. label .form.lbl -text "This is the form"
  11. label .inbox.lbl -text "This is the inbox"
  12.  
  13. pack .form.lbl -expand 1 -fill both
  14. pack .inbox.lbl -expand 1 -fill both
  15.  
  16. proc show_form {} {
  17. raise .form
  18. }
  19.  
  20. proc show_inbox {} {
  21. raise .inbox
  22. }
  23.  
  24. grid .buttons .windows
  25. grid .inbox -in .windows -column 0 -row 0
  26. grid .form -in .windows -column 0 -row 0