Posted to tcl by mjanssen at Tue Nov 27 21:11:34 GMT 2007view raw

  1. wm title . "T2I $VERSION"
  2.  
  3. ttk::frame .toolbar
  4. #pack .toolbar
  5.  
  6. frame .mainframe
  7. set n_conns [ttk::notebook .mainframe.notebook_conns -width 700 -height 550]
  8.  
  9. frame .inputfr
  10. ttk::entry .inputfr.input
  11. ttk::button .inputfr.send -text "Send" -command sendmsg
  12.  
  13.  
  14.  
  15.  
  16. set statusbar [ttk::label .statusbar -text "Statusbar" -width 80]
  17.  
  18. grid [ttk::button .toolbar.connect -text "Connect" -command connect] [ttk::button .toolbar.about -text "About" -command about] [ttk::button .toolbar.chstyle -text "Change style" -command chstyle] [ttk::button .toolbar.chfont -text "Change font" -command chfont]
  19.  
  20. grid .inputfr.input -sticky ew
  21. grid .inputfr.send -column 1 -row 0
  22. grid columnconfigure .inputfr 0 -weight 1
  23. grid .toolbar -sticky ew
  24. grid .mainframe -sticky nsew
  25. grid .inputfr -sticky ew
  26. grid .statusbar -sticky ew
  27.  
  28. grid rowconfigure . 1 -weight 1
  29. grid columnconfigure . 0 -weight 1