#!/usr/bin/wish

set progname ypp-chatlog-alerter

menu .mbar -tearoff 0
foreach w {file edit} l {File Edit} {
    menu .mbar.$w -tearoff 0
    .mbar add cascade -menu .mbar.$w -label $l
}
proc menuent {w l a x} {
    set c [list .mbar.$w add command -label $l -command $x]
    if {[string length $a]} { lappend c -accel Command-$a }
    eval $c
}
foreach l {Open Quit} a {O Q} x {newfile exit} {
    menuent file $l $a $x
}
foreach l {Cut Copy Paste Clear} a {X C V {}} {
    menuent edit $l $a [list event generate {[focus]} <<$l>>]]
}
. configure -menu .mbar

switch -exact [tk windowingsystem] {
    aqua {
	set defaultfile ~/Library/Preferences/$progname.prefs
    }
    x11 {
	set defaultfile ~/.$progname.rc
    }
    default {
	error ?
    }
}

proc newfile {} {
    global currentfile defaultfile
    
    set newfile [tk_getOpenFile -multiple 0 -title "Select YPP log to track"]
    if {![string length $newfile]} return

    set currentfile $newfile
    set newdefaults [open $defaultfile.new w]
    puts $newdefaults "[list set currentfile $currentfile]"
    close $newdefaults
    file rename -force $defaultfile.new $defaultfile
    refresh
}

set currentfile {}

proc refresh {} {
}

if {[file exists $defaultfile]} {
    source $defaultfile
}

listbox .l