1proc CreateMainWindow {} { 2 global statustext StatusText 3 set StatusText " Ready ..." 4 . configure -menu .mbar 5 menu .mbar 6 .mbar add cascade -label "File" -underline 0 -menu .mbar.file 7 menu .mbar.file 8 9 .mbar.file add separator 10 .mbar.file add command -label "Exit" -underline 0 -command {ExitCmd} 11 12 .mbar add cascade -label "Options" -underline 0 -menu .mbar.options 13 menu .mbar.options 14 .mbar.options add command -label "Refresh Now" -underline 0 -command {RefreshCmd} 15 16 .mbar add cascade -label "Help" -underline 0 -menu .mbar.help 17 menu .mbar.help 18 .mbar.help add command -label "About apcctrl" -underline 0 -command {AboutCmd} 19 .mbar.help add command -label "Help" -underline 0 -command {HelpCmd} 20 21 frame .sep1 -height 10 -borderwidth 0 22 pack .sep1 -fill x -side top 23 text .sep1.text -relief groove -height 1 24 .sep1.text configure -tabs {2.5i 4.5i 6.5i} 25 .sep1.text insert end "\tBattery V\tMains V\tMains V" 26 pack .sep1.text -side top -fill x 27 28 frame .main -borderwidth 0 29 pack .main -side top -fill x 30 31 frame .sep2 -height 2 -borderwidth 1 -relief sunken 32 pack .sep2 -fill x -pady 4 33 34 frame .elab 35 pack .elab -side top -fill x 36 label .elab.lab1 -text "Events:" -anchor e 37 pack .elab.lab1 -side left -padx 4 38 39 frame .events 40 pack .events -fill x -padx 4 -pady 4 41 42 scrollbar .events.sbar -command ".events.text yview" 43 pack .events.sbar -side right -fill y 44 text .events.text -height 10 -wrap word -yscrollcommand ".events.sbar set" 45 pack .events.text -side top -fill x 46 47 frame .status -borderwidth 1 -relief raised 48 pack .status -side bottom -fill x -pady 2 49 label .statusLabel -text "Status:" -anchor e -fg magenta 50 set statustext [label .statusText -relief sunken \ 51 -borderwidth 1 -textvariable StatusText -anchor w] 52 grid columnconfigure .status 1 -weight 1 53 grid .statusLabel -in .status -row 0 -column 0 54 grid .statusText -in .status -row 0 -column 1 -sticky ew -padx 3 55} 56