proc CreateMainWindow {} { global statustext StatusText set StatusText " Ready ..." . configure -menu .mbar menu .mbar .mbar add cascade -label "File" -underline 0 -menu .mbar.file menu .mbar.file .mbar.file add separator .mbar.file add command -label "Exit" -underline 0 -command {ExitCmd} .mbar add cascade -label "Options" -underline 0 -menu .mbar.options menu .mbar.options .mbar.options add command -label "Refresh Now" -underline 0 -command {RefreshCmd} .mbar add cascade -label "Help" -underline 0 -menu .mbar.help menu .mbar.help .mbar.help add command -label "About Apcupsd" -underline 0 -command {AboutCmd} .mbar.help add command -label "Help" -underline 0 -command {HelpCmd} frame .sep1 -height 10 -borderwidth 0 pack .sep1 -fill x -side top text .sep1.text -relief groove -height 1 .sep1.text configure -tabs {2.5i 4.5i 6.5i} .sep1.text insert end "\tBattery V\tMains V\tMains V" pack .sep1.text -side top -fill x frame .main -borderwidth 0 pack .main -side top -fill x frame .sep2 -height 2 -borderwidth 1 -relief sunken pack .sep2 -fill x -pady 4 frame .elab pack .elab -side top -fill x label .elab.lab1 -text "Events:" -anchor e pack .elab.lab1 -side left -padx 4 frame .events pack .events -fill x -padx 4 -pady 4 scrollbar .events.sbar -command ".events.text yview" pack .events.sbar -side right -fill y text .events.text -height 10 -wrap word -yscrollcommand ".events.sbar set" pack .events.text -side top -fill x frame .status -borderwidth 1 -relief raised pack .status -side bottom -fill x -pady 2 label .statusLabel -text "Status:" -anchor e -fg magenta set statustext [label .statusText -relief sunken \ -borderwidth 1 -textvariable StatusText -anchor w] grid columnconfigure .status 1 -weight 1 grid .statusLabel -in .status -row 0 -column 0 grid .statusText -in .status -row 0 -column 1 -sticky ew -padx 3 }