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