xpbsmon now works with Tcl 8.4 (was RE: [torqueusers] Compiling xpbsmon)

[Bernard Li]

Skipped content of type multipart/alternative-------------- next part --------------
--- src/tools/xpbsmon/pref.tk.orig	2005-12-14 21:03:06.000000000 -0800
+++ src/tools/xpbsmon/pref.tk	2006-01-14 11:26:05.000000000 -0800
@@ -378,6 +378,22 @@
 					systemNodeInfo2Append $sysframe $nname \
 									  $line
 				  }
+				  ntype {
+					set props ""
+					lappend props $attv
+					set line [list $props "NType: " \
+									  TEXT]
+					systemNodeInfo2Append $sysframe $nname \
+									  $line
+				  }
+				  status {
+					set props ""
+					lappend props $attv
+					set line [list $props "Status: " \
+									  TEXT]
+					systemNodeInfo2Append $sysframe $nname \
+									  $line
+				  }
 				}
 			}
 			lappend nlist "$nname NOMOM_SNODE"
--- src/tools/xpbsmon/dialog.tk.orig	2006-01-14 00:19:46.000000000 -0800
+++ src/tools/xpbsmon/dialog.tk	2006-01-14 00:20:33.000000000 -0800
@@ -148,8 +148,7 @@
          return
      }
 
-     set dbox [popupDialogBox $dialog(nodeInfoBox) "Node Info Dialog" 1 Plain \
-							$callerDialogBox 1]
+     set dbox [popupDialogBox $dialog(nodeInfoBox) "Node Info Dialog" 1 Plain]
      set dbox_top    [lindex $dbox 0]
      set dbox_bottom [lindex $dbox 1]