proc start {} {
	font create irssi -family "Courier New" -size 10
	wm geometry . 800x500
	wm title . "main"
	frame .r -relief flat
	pack .r -side top -fill y -anchor w
	frame .r.n -bd 1 -relief sunken
	frame .r.c -bd 1 -relief sunken
	#pack .r.n -side left -anchor w -fill both
	#pack .r.c -side left -anchor w -fill both
	grid .r.n -column 0 -row 0
	grid .r.c -column 1 -row 0
	grid columnconfigure .r.n 0 -uniform 1 -weight 1
	grid columnconfigure .r.c 1 -uniform 1 -weight 1
	label .r.n.label -height 6 -text "WIN1" -justify left -anchor sw -bg #000000 -fg #FFFFFF -font "irssi 8"
	label .r.c.label -height 6 -text "WIN2" -justify left -anchor sw -bg #000000 -fg #FFFFFF -font "irssi 8"
	#pack .r.c.label -side bottom -fill y
	#pack .r.n.label -side bottom -fill y
	grid .r.n.label -column 0 -row 0
	grid .r.c.label -column 1 -row 0
	grid columnconfigure .r.n.label 0 -uniform 1 -weight 1
	grid columnconfigure .r.c.label 1 -uniform 1 -weight 1

	frame .status -bd 1 -relief sunken
	pack .status -side top -fill x
	label .status.label -height 6 -text "STATUS" -justify left -anchor sw -bg #000000 -fg #FFFFFF -font "irssi 8"
	pack .status.label -side top -fill x

	frame .channel -bd 1 -relief sunken
	pack .channel -side top -fill both -expand 1
	label .channel.label -text "CHANNEL" -justify left -anchor sw -bg #000000 -fg #FFFFFF -font "irssi 8"
	pack .channel.label -side top -fill both -expand 1


}