xpbsmon.src

OpenPBS

  {canvas(bigBg) bigBackground #c8b9a6}
  {canvas(bigFg) bigForeground #150567}
  {canvas(bigBd) bigBorderWidth 2}
  {canvas(bigRelief) bigRelief raised}
  {canvas(bigActiveColor) bigActiveColor #9db2ff}
  {canvas(bigShadingColor) bigShadingColor #c7af92}
  {canvas(bigSelectorColor) bigSelectorColor #980517}
  {canvas(bigDisabledColor) bigDisabledColor #8f8e8d}
  {canvas(bigLabelBg) bigLabelBackground #c8b9a6}
  {canvas(bigLabelBd)  bigLabelBorderWidth 1}
  {canvas(bigLabelRelief) bigLabelRelief raised}
  {canvas(bigLabelFont) bigLabelFont "-misc-fixed-bold-r-normal--15-140-75-75-c-90-iso8859-1"}
  {canvas(bigLabelFontWidth) bigLabelFontWidth 9}
  {canvas(bigLabelFontHeight) bigLabelFontHeight 15}
  {canvas(bigLabelFg) bigLabelForeground #150567}
  {canvas(bigCanvasBg) bigCanvasBackground #c8b9a6}
  {canvas(bigCanvasRelief) bigCanvasRelief flat}
  {canvas(bigCanvasBd) bigCanvasBorderWidth 1}
  {canvas(bigScrollBd) bigScrollBorderWidth 2}
  {canvas(bigScrollBg) bigScrollBackground #c8b9a6}
  {canvas(bigScrollRelief) bigScrollRelief sunken}
  {canvas(bigTextFont) bigTextFont "-misc-fixed-bold-r-normal--15-140-75-75-c-90-iso8859-1"}
  {canvas(bigTextFontWidth) bigTextFontWidth 9}
  {canvas(bigTextFontHeight) bigTextFontHeight 15}
  {canvas(systemMaxWidth)  siteBoxMaxWidth 710}
  {canvas(systemMaxHeight) siteBoxMaxHeight 500}
  {canvas(systemNumBoxesPerRow) siteBoxMaxNumServerBoxesPerRow 10}
  {sysinfo(autoUpdateMins) autoUpdateMins 1}
  {sysinfo(autoUpdate) autoUpdate {CHOICE true false}}
  {sysinfo(systemName)    siteInView ""}
  {sysinfo(rcSiteInfoDelimeterChar) rcSiteInfoDelimeterChar ";"}
  {sitesinfo sitesInfo ""}
}

Pref_Add $preferences

prefLoadSitesInfo

option add *Plain*foreground $canvas(bigFg)
option add *Plain*background $canvas(bigBg)
option add *Plain*borderWidth 0
option add *Plain*relief flat
#option add *Plain*troughColor $canvas(bigBg)
option add *Plain*troughColor $canvas(bigShadingColor)
option add *Plain*activeForeground $canvas(bigFg)
option add *Plain*insertBackground $canvas(bigFg)
option add *Plain*selectForeground $canvas(bigFg)
option add *Plain*selectBackground $canvas(bigActiveColor)
option add *Plain*activeBackground $canvas(bigActiveColor)
option add *Plain*selector $canvas(bigSelectorColor)
option add *Plain*selectColor $canvas(bigSelectorColor)  ;# for 4.0
option add *Plain*disabledForeground $canvas(bigDisabledColor)
#option add *Plain*Scrollbar*troughColor $canvas(bigBg)
option add *Plain*Scrollbar*troughColor $canvas(bigShadingColor)
option add *Plain*Scrollbar*foreground $canvas(bigScrollBg)
option add *Plain*Scrollbar*background $canvas(bigScrollBg) ;# 4.0
option add *Plain*Scrollbar*activeForeground $canvas(bigActiveColor)
option add *Plain*Scrollbar*activeBackground $canvas(bigActiveColor)     ;# 4.0
option add *Plain*highlightColor $canvas(bigBg)
option add *Plain*highlightThickness 0
option add *Plain*font $canvas(bigTextFont)

option add *BigLabel*foreground $canvas(bigLabelFg)
option add *Big*foreground $canvas(bigFg)
option add *Big*background $canvas(bigBg)
option add *Big*borderWidth $canvas(bigBd)
option add *Big*relief $canvas(bigRelief)
option add *Big*troughColor $canvas(bigBg)
option add *Big*activeForeground $canvas(bigFg)
option add *Big*insertBackground $canvas(bigFg)
option add *Big*selectForeground $canvas(bigFg)
option add *Big*selectBackground $canvas(bigActiveColor)
option add *Big*activeBackground $canvas(bigActiveColor)
option add *Big*selector $canvas(bigSelectorColor)
option add *Big*selectColor $canvas(bigSelectorColor)  ;# for 4.0
option add *Big*disabledForeground $canvas(bigDisabledColor)
option add *Big*Scrollbar*troughColor $canvas(bigBg)
option add *Big*Scrollbar*foreground $canvas(bigScrollBg)
option add *Big*Scrollbar*background $canvas(bigScrollBg) ;# 4.0
option add *Big*Scrollbar*activeForeground $canvas(bigActiveColor)
option add *Big*Scrollbar*activeBackground $canvas(bigActiveColor)     ;# 4.0
option add *Big*highlightColor $canvas(bigBg)
option add *Big*highlightThickness 0

option add *BigLabel*foreground $canvas(bigLabelFg)
option add *BigLabel*background $canvas(bigLabelBg)
option add *BigLabel*borderWidth $canvas(bigLabelBd)
option add *BigLabel*relief $canvas(bigLabelRelief)
option add *BigLabel*font $canvas(bigLabelFont)
option add *BigLabel*background $canvas(bigShadingColor)

option add *BigCanvas*background $canvas(bigCanvasBg)
option add *BigCanvas*borderWidth $canvas(bigCanvasBd)
option add *BigCanvas*relief $canvas(bigCanvasRelief)

option add *BigScrollbar*borderWidth $canvas(bigScrollBd)
option add *BigScrollbar*background $canvas(bigScrollBg)
option add *BigScrollbar*relief $canvas(bigScrollRelief)
option add *Big*Scrollbar*troughColor $canvas(bigBg)
option add *Big*Scrollbar*foreground $canvas(bigScrollBg)
option add *Big*Scrollbar*activeForeground $canvas(bigActiveColor)
option add *Big*Scrollbar*activeBackground $canvas(bigActiveColor)     ;# 4.0
option add *Big*font $canvas(bigTextFont)

option add *Medium*foreground $canvas(medFg)
option add *Medium*background $canvas(medBg)
option add *Medium*borderWidth $canvas(medBd)
option add *Medium*relief $canvas(medRelief)
option add *Medium*font $canvas(medTextFont)

option add *MediumLabel*foreground $canvas(medLabelFg)
option add *MediumLabel*background $canvas(medLabelBg)
option add *MediumLabel*borderWidth $canvas(medLabelBd)
option add *MediumLabel*relief $canvas(medLabelRelief)
option add *MediumLabel*font $canvas(medLabelFont) 

option add *MediumCanvas*background $canvas(medCanvasBg)
option add *MediumCanvas*borderWidth $canvas(medCanvasBd)
option add *MediumCanvas*relief $canvas(medCanvasRelief)

option add *MediumScrollbar*borderWidth $canvas(medScrollBd)
option add *MediumScrollbar*background $canvas(medScrollBg)
option add *MediumScrollbar*relief $canvas(medScrollRelief)
option add *Medium*Scrollbar*troughColor $canvas(medBg)
option add *Medium*Scrollbar*foreground $canvas(medScrollBg)
option add *Medium*Scrollbar*activeForeground $canvas(bigActiveColor)
option add *Medium*Scrollbar*activeBackground $canvas(bigActiveColor)     ;# 4.0

option add *Small*foreground $canvas(smallFg)
option add *Small*background $canvas(smallBg)
option add *Small*borderWidth $canvas(smallBd)
option add *Small*relief $canvas(smallRelief)
option add *Small*font $canvas(smallTextFont)

option add *SmallLabel*foreground $canvas(smallLabelFg)
option add *SmallLabel*background $canvas(smallLabelBg)
option add *SmallLabel*borderWidth $canvas(smallLabelBd)
option add *SmallLabel*relief $canvas(smallLabelRelief)
option add *SmallLabel*font $canvas(smallLabelFont)

option add *SmallCanvas*background $canvas(smallCanvasBg)
option add *SmallCanvas*borderWidth $canvas(smallCanvasBd)
option add *SmallCanvas*relief $canvas(smallCanvasRelief)

option add *SmallScrollbar*borderWidth $canvas(smallScrollBd)
option add *SmallScrollbar*background $canvas(smallScrollBg)
option add *SmallScrollbar*relief $canvas(smallScrollRelief)
#option add *Small*Scrollbar*troughColor $canvas(smallBg)
option add *Small*Scrollbar*troughColor $canvas(medBg)
option add *Small*Scrollbar*foreground $canvas(smallScrollBg)
option add *Small*Scrollbar*activeForeground $canvas(bigActiveColor)
option add *Small*Scrollbar*activeBackground $canvas(bigActiveColor)     ;# 4.0


option add *CmdFrame*background $canvas(bigShadingColor)
option add *CmdFrame*Button.foreground $canvas(bigFg)
option add *CmdFrame*Button.background $canvas(bigBg)

set dialog(mainWindow) ".main"
set activeWindow($dialog(mainWindow)) 1
if {[string compare $dialog(mainWindow) "."] != 0} {
  toplevel $dialog(mainWindow) -class Plain
  wm withdraw .
} else {
  set dialog(mainWindow) ""
}

# Close the stderr channel so transient messages are not printed out terminal
close stderr

build_main_window $dialog(mainWindow)
set_wmgr $dialog(mainWindow)

if {$sysinfo(autoUpdate)} { 
    incr sysinfo(DATA_UPDATE_SEQ)

    if { [string compare $sysinfo(cmdButtonUpdAuto) ""] != 0 } {
        $sysinfo(cmdButtonUpdAuto) configure \
                        -background $canvas(bigActiveColor)
    }

    after [expr round($sysinfo(autoUpdateMins) * 60000)] data_auto_update \
                        $sysinfo(DATA_UPDATE_SEQ)
}