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

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