2 # Apcupsd Graphic Interface
5 proc MessageBox
{msg type
} {
6 tk_messageBox -icon $type -message $msg
25 exec netscape www.sibbald.com
/apcupsd
/manual
/ &
29 # wm minsize . 600 390
39 if {![file exists
"$File"]} {
40 puts "Unable to find required source file $File"