proc confOn {} {
    set win .@confOn
    if [winfo exists $win] { wm deiconify $win ; raise $win ;return }
    toplevel $win -class Zircon
    wm title $win "On Configuration"
    wm iconname $win On
    confInit On
    set winc [frame $win.on -relief raised]
    set wb [frame $winc.event -relief raised]
    foreach t {join kick kill leave mode nick quit startup topic} {
	radiobutton $wb.$t -text [capitalise $t] -relief flat
	zpack $wb $t {top frame w}
    }
    zpack $winc event {left filly} 
    zpack $winc imp {right fill}
    zpack $win on {fill}
    confMkBtn $win On
    zpack $win btn {fillx}
}

proc onEdit {} {
#    frame $winc.imp
#    labelEntry 0 $winc.imp.p0 {-text P0 -width 12} "" ""
#    labelEntry 0 $winc.imp.p1 {-text P1 -width 12} "" ""
#    labelEntry 0 $winc.imp.p2 {-text P2 -width 12} "" ""
#    labelEntry 0 $winc.imp.p3 {-text P3  -width 12} "" ""
#    text $winc.imp.code -relief raised -wrap none
#    zpack $winc.imp {p0 p1 p2 p3} {fillx frame w}
#    zpack $winc.imp {code} {fill expand}
}

proc confBindings {} {
    set win .@confBindings
    if [winfo exists $win] { wm deiconify $win ; raise $win ;return }
    toplevel $win -class Zircon
    wm title $win "Binding Configuration"
    wm iconname $win Bindings
    confInit Bindings
    set winc [frame $win.bnd -relief raised]
    confMkBtn $win Bindings
    zpack $win bnd {fill}
    zpack $win btn {fillx}
}
