+#!/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