release/src/router/apcupsd/examples/gui/mainwindow.tcl

   1 proc 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 Apcupsd" -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 }