Posted to tcl by mjanssen at Tue Nov 27 21:11:34 GMT 2007view raw
- wm title . "T2I $VERSION"
- ttk::frame .toolbar
- #pack .toolbar
- frame .mainframe
- set n_conns [ttk::notebook .mainframe.notebook_conns -width 700 -height 550]
- frame .inputfr
- ttk::entry .inputfr.input
- ttk::button .inputfr.send -text "Send" -command sendmsg
- set statusbar [ttk::label .statusbar -text "Statusbar" -width 80]
- 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]
- grid .inputfr.input -sticky ew
- grid .inputfr.send -column 1 -row 0
- grid columnconfigure .inputfr 0 -weight 1
- grid .toolbar -sticky ew
- grid .mainframe -sticky nsew
- grid .inputfr -sticky ew
- grid .statusbar -sticky ew
- grid rowconfigure . 1 -weight 1
- grid columnconfigure . 0 -weight 1