Newsgroups: comp.parallel.pvm
From: Jan Nijtmans <nijtmans@nici.kun.nl>
Subject: XPVM and Tcl7.4b3/Tk4.0b3
Organization: University of Nijmegen, The Netherlands
Date: Fri, 7 Apr 1995 11:47:51 GMT
Mime-Version: 1.0
Content-Type: multipart/mixed; oundary="-------------------------------3894841216838"
Message-ID: <D6ny3r.1no@sci.kun.nl>

This is a multi-part message in MIME format.

---------------------------------3894841216838
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=iso-8859-1

Did anyone adapt XPVM to the new version of Tcl/Tk???
I tried to do it, but not everything works well yet.

Some problems that still persist:
	- the option -scrollincrement doesn't work any more. This
	  causes some mis-alignments in scrolling the canvasses.
	- Net-view doesn't work any more.

I managed to compile and run it, such that at least no error-messages
are produced any more. Any help is welcome.

The following patches need to be applied to xpvm1.0.3 in order to
compile and run with Tcl7.4b3/Tk4.0b3:

---------------------------------3894841216838
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain

*** src/procs.tcl.orig	Fri Apr  7 13:02:33 1995
--- src/procs.tcl	Fri Apr  7 13:10:21 1995
***************
*** 792,798 ****
  		else \
  			{ set x1 0 }
  
! 		$ST_C xview $x1
  
  		set st_xview $x1
  
--- 792,798 ----
  		else \
  			{ set x1 0 }
  
! 		$ST_C xview moveto [expr $x1/$timex]
  
  		set st_xview $x1
  
***************
*** 815,821 ****
  				- ( $x1 * ( $ut_cwidth - $st_cwidth ) ) ]
  		}
  
! 		$UT_C xview $utx1
  
  		set ut_xview $utx1
  
--- 815,821 ----
  				- ( $x1 * ( $ut_cwidth - $st_cwidth ) ) ]
  		}
  
! 		$UT_C xview moveto [expr $utx1/$timex]
  
  		set ut_xview $utx1
  
***************
*** 838,844 ****
  		else \
  			{ set x1 0 }
  
! 		$UT_C xview $x1
  
  		set ut_xview $x1
  
--- 838,844 ----
  		else \
  			{ set x1 0 }
  
! 		$UT_C xview moveto [expr $x1/$timex]
  
  		set ut_xview $x1
  
***************
*** 861,867 ****
  				+ ( $x1 * ( $ut_cwidth - $st_cwidth ) ) ]
  		}
  
! 		$ST_C xview $stx1
  
  		set st_xview $stx1
  
--- 861,867 ----
  				+ ( $x1 * ( $ut_cwidth - $st_cwidth ) ) ]
  		}
  
! 		$ST_C xview moveto [expr $stx1/$timex]
  
  		set st_xview $stx1
  
***************
*** 1854,1860 ****
  				set_query_time $qtx
  			}
  
! 			$ST_C xview $st_scroll_mark
  
  			set st_xview $st_scroll_mark
  
--- 1854,1860 ----
  				set_query_time $qtx
  			}
  
! 			$ST_C xview moveto [expr $st_scroll_mark/$timex]
  
  			set st_xview $st_scroll_mark
  
***************
*** 1890,1896 ****
  				set_query_time $qtx
  			}
  
! 			$UT_C xview $ut_scroll_mark
  
  			set ut_xview $ut_scroll_mark
  
--- 1890,1896 ----
  				set_query_time $qtx
  			}
  
! 			$UT_C xview moveto [expr $ut_scroll_mark/$timex]
  
  			set ut_xview $ut_scroll_mark
  
***************
*** 2126,2132 ****
  				+ (2 * $frame_border) + ($row_height - 1) ) \
  				/ $row_height ]
  
! 			$TO_C yview $to_yview
  
  			scrollSet $TO_SBV \
  				[ expr $to_lasty / $row_height ] \
--- 2126,2132 ----
  				+ (2 * $frame_border) + ($row_height - 1) ) \
  				/ $row_height ]
  
! 			$TO_C yview moveto [expr $to_yview/$to_cheight]
  
  			scrollSet $TO_SBV \
  				[ expr $to_lasty / $row_height ] \
***************
*** 2193,2199 ****
  			+ (2 * $frame_border) + ($row_height - 1) ) \
  			/ $row_height ]
  
! 		$TO_C yview $to_yview
  
  		scrollSet $TO_SBV \
  			[ expr $to_lasty / $row_height ] \
--- 2193,2199 ----
  			+ (2 * $frame_border) + ($row_height - 1) ) \
  			/ $row_height ]
  
! 		$TO_C yview moveto [expr $to_yview/$to_cheight]
  
  		scrollSet $TO_SBV \
  			[ expr $to_lasty / $row_height ] \
***************
*** 3632,3638 ****
  		checkbutton $NAME -text $label -command $command \
  			-bd 1 -relief raised -anchor nw \
  			-onvalue ON -offvalue OFF -variable $menuvar \
! 			-selector $selector_color -foreground $fg_color \
  			-activeforeground $active_fg_color
  
  		#
--- 3632,3638 ----
  		checkbutton $NAME -text $label -command $command \
  			-bd 1 -relief raised -anchor nw \
  			-onvalue ON -offvalue OFF -variable $menuvar \
! 			-selectcolor $selector_color -foreground $fg_color \
  			-activeforeground $active_fg_color
  
  		#
***************
*** 5290,5296 ****
  	radiobutton $SG_LCW.$name -text $index -value $index \
  		-bd $frame_border -relief flat \
  		-variable signal_selected \
! 		-selector $selector_color -foreground $fg_color \
  		-activeforeground $active_fg_color
  
  	#debug_proc signal_button exit
--- 5290,5296 ----
  	radiobutton $SG_LCW.$name -text $index -value $index \
  		-bd $frame_border -relief flat \
  		-variable signal_selected \
! 		-selectcolor $selector_color -foreground $fg_color \
  		-activeforeground $active_fg_color
  
  	#debug_proc signal_button exit
*** src/util.tcl.orig	Fri Apr  7 13:07:00 1995
--- src/util.tcl	Fri Apr  7 13:10:05 1995
***************
*** 30,36 ****
  
  	if { $orient =3D=3D "HORIZ" } \
  	{
! 		$canvas xview $first
  
  		set $vvar $first
  	} \
--- 30,36 ----
  
  	if { $orient =3D=3D "HORIZ" } \
  	{
! 		$canvas xview moveto [expr $first/($canvas_size+1)]
  
  		set $vvar $first
  	} \
***************
*** 37,43 ****
  
  	else \
  	{
! 		$canvas yview $first
  
  		set $vvar $first
  	}
--- 37,43 ----
  
  	else \
  	{
! 		$canvas yview moveto [expr $first/($canvas_size+1)]
  
  		set $vvar $first
  	}
***************
*** 96,114 ****
  }
  
  proc scrollTwoCanvases \
! 	{ c1 c2 sb csize wsize vvar orient incr value } \
  {
  	#debug_proc scrollTwoCanvases entry
  
! 	scrollCanvas $c1 $sb $csize $wsize $vvar $orient $incr $value
  
! 	scrollCanvas $c2 $sb $csize $wsize $vvar $orient $incr $value
  
  	#debug_proc scrollTwoCanvases exit
  }
  
  proc scrollCanvas \
! 	{ canvas sb canvas_size win_size vvar orient incr value } \
  {
  	#debug_proc scrollCanvas entry
  
--- 96,114 ----
  }
  
  proc scrollTwoCanvases \
! 	{ c1 c2 sb csize wsize vvar orient incr args } \
  {
  	#debug_proc scrollTwoCanvases entry
  
! 	scrollCanvas $c1 $sb $csize $wsize $vvar $orient $incr $args
  
! 	scrollCanvas $c2 $sb $csize $wsize $vvar $orient $incr $args
  
  	#debug_proc scrollTwoCanvases exit
  }
  
  proc scrollCanvas \
! 	{ canvas sb canvas_size win_size vvar orient incr args } \
  {
  	#debug_proc scrollCanvas entry
  
***************
*** 126,167 ****
  
  	set wsize [ expr $$win_size ]
  
! 	if { $value < 0 } { set value 0 }
  
  	set maxvalue [ expr $csize - $wsize + (2 * $frame_border) \
  		+ ($incr - 1) ]
  
  	if { $maxvalue > 0 } \
  	{
! 		if { [ expr $value * $incr ] > $maxvalue } \
! 			{ set value [ expr $maxvalue / $incr ] }
  	} \
  
  	else \
! 		{ set value 0 }
  
  	#
  	# Set Scrollbar
  	#
  
! 	scrollSet $sb [ expr $csize / $incr ] [ expr $wsize / $incr ] $value
  
  	#
  	# Scroll Canvas View
  	#
  
  	if { $orient =3D=3D "HORIZ" } \
  	{
! 		$canvas xview $value
  
! 		set $vvar $value
  	} \
  
  	else \
  	{
! 		$canvas yview $value
  
! 		set $vvar $value
  	}
  
  	#debug_proc scrollCanvas exit
--- 126,171 ----
  
  	set wsize [ expr $$win_size ]
  
! 	if { $args < 0 } { set value 0 }
  
  	set maxvalue [ expr $csize - $wsize + (2 * $frame_border) \
  		+ ($incr - 1) ]
  
+ 	if { $args < 0} { set args 0 }
+ 
  	if { $maxvalue > 0 } \
  	{
! 		if { [ expr $args * $incr ] > $maxvalue } \
! 			{ set args [ expr $maxvalue / $incr ] }
  	} \
  
  	else \
! 		{ set args 0 }
  
  	#
  	# Set Scrollbar
  	#
  
! 	scrollSet $sb [ expr $csize / $incr ] [ expr $wsize / $incr ] $args
  
  	#
  	# Scroll Canvas View
  	#
  
+ 	puts stdout "scrolled to position $args/$csize"
+ 
  	if { $orient =3D=3D "HORIZ" } \
  	{
! 		$canvas xview moveto [expr $args/($csize*1.0)]
  
! 		set $vvar $args
  	} \
  
  	else \
  	{
! 		$canvas yview moveto [expr $args/($csize*1.0)]
  
! 		set $vvar $args
  	}
  
  	#debug_proc scrollCanvas exit
***************
*** 253,259 ****
  			checkbutton $NAME -text $label -command $command \
  				-bd 1 -relief raised -anchor nw \
  				-onvalue ON -offvalue OFF -variable $menuvar \
! 				-selector $selector_color -foreground $fg_color \
  				-activeforeground $active_fg_color
  		} \
  
--- 257,263 ----
  			checkbutton $NAME -text $label -command $command \
  				-bd 1 -relief raised -anchor nw \
  				-onvalue ON -offvalue OFF -variable $menuvar \
! 				-selectcolor $selector_color -foreground $fg_color \
  				-activeforeground $active_fg_color
  		} \
  
*** src/xpvm.c.orig	Fri Apr  7 13:09:49 1995
--- src/xpvm.c	Fri Apr  7 13:09:56 1995
***************
*** 16,22 ****
  int trace_overwrite_proc();
  int get_hosts_menu_list();
  int fix_help_line_cmd();
- int load_bitmap_file();
  int output_file_proc();
  int reset_views_proc();
  int strip_label_cmd();
--- 16,21 ----
***************
*** 34,44 ****
  int pad_cmd();
  
  /* MAIN */
  
! extern int main();
  
- int *tclDummyMainPtr =3D (int *) main;
- 
  Tcl_AppInit( itp )
  Tcl_Interp *itp;
  {
--- 33,65 ----
  int pad_cmd();
  
  /* MAIN */
+ /*
+  *----------------------------------------------------------------------
+  *
+  * main --
+  *
+  *	This is the main program for the application.
+  *
+  * Results:
+  *	None: Tk_Main never returns here, so this procedure never
+  *	returns either.
+  *
+  * Side effects:
+  *	Whatever the application does.
+  *
+  *----------------------------------------------------------------------
+  */
  
! int
! main(argc, argv)
!     int argc;			/* Number of command-line arguments. */
!     char **argv;		/* Values of command-line arguments. */
! {
!     Tk_Main(argc, argv);
!     return 0;			/* Needed only to prevent compiler warning. */
! }
! =0C
  
  Tcl_AppInit( itp )
  Tcl_Interp *itp;
  {
***************
*** 751,759 ****
  		define_trace_mask_proc, (ClientData) NULL, (vfp) NULL );
  
  	Tcl_CreateCommand( interp, "output_file_handle", output_file_proc,
- 		(ClientData) NULL, (vfp) NULL );
- 
- 	Tcl_CreateCommand( interp, "load_bitmap_file", load_bitmap_file,
  		(ClientData) NULL, (vfp) NULL );
  
  	Tcl_CreateCommand( interp, "pvm_get_tasks", get_tasks_proc,
--- 772,777 ----
*** src/xpvm.tcl.orig	Fri Apr  7 13:00:33 1995
--- src/xpvm.tcl	Fri Apr  7 13:27:08 1995
***************
*** 12,18 ****
  # Source TCL Procs
  #
  
! set xpvm_directory /home/msr/u2/kohl/projects/PVM/xpvm
  
  set help_dir $xpvm_directory/src/help
  
--- 12,18 ----
  # Source TCL Procs
  #
  
! set xpvm_directory $env(XPVM_ROOT)
  
  set help_dir $xpvm_directory/src/help
  
***************
*** 277,282 ****
--- 277,295 ----
  
  set xbm_dir "$xpvm_directory/src/xbm"
  
+ #
+ # The C-function "define_arch" is renamed "define_ar" in order
+ # to be able to create a tcl-function "define_arch" as below.
+ # This function creates images for all architectures as well.
+ # (Doesn't work yet!!! The images are loaded, but not used
+ # into the canvas. Any idea how to do that ??????)
+ #
+ rename define_arch define_ar
+ proc define_arch {name file} {
+ image create bitmap $name -file $file -maskfile $file
+ define_ar $name $file
+ }
+ 
  define_arch AFX8		"$xbm_dir/alliant.xbm"
  define_arch ALPHA		"$xbm_dir/alpha.xbm"
  define_arch BAL			"$xbm_dir/sequent.xbm"
***************
*** 296,302 ****
  define_arch SGI5		"$xbm_dir/sgi5.xbm"
  define_arch SUN3		"$xbm_dir/sun3.xbm"
  define_arch SUN4		"$xbm_dir/sparc.xbm"
! define_arch SUN4SOL2	"$xbm_dir/sun4sol2.xbm"
  define_arch SUNMP		"$xbm_dir/sunmp.xbm"
  define_arch SYMM		"$xbm_dir/symmetry.xbm"
  
--- 309,315 ----
  define_arch SGI5		"$xbm_dir/sgi5.xbm"
  define_arch SUN3		"$xbm_dir/sun3.xbm"
  define_arch SUN4		"$xbm_dir/sparc.xbm"
! define_arch SUN4SOL2		"$xbm_dir/sun4sol2.xbm"
  define_arch SUNMP		"$xbm_dir/sunmp.xbm"
  define_arch SYMM		"$xbm_dir/symmetry.xbm"
  
***************
*** 315,330 ****
  #
  # Load Bitmaps
  #
  
! load_bitmap_file "$xbm_dir/rewind.xbm"
! load_bitmap_file "$xbm_dir/stop.xbm"
! load_bitmap_file "$xbm_dir/fwd.xbm"
! load_bitmap_file "$xbm_dir/fwdstep.xbm"
  
- load_bitmap_file "$xbm_dir/shrink.xbm"
- load_bitmap_file "$xbm_dir/grow.xbm"
- load_bitmap_file "$xbm_dir/adj.xbm"
- 
  #
  # Create Title & Version Number
  #
--- 328,349 ----
  #
  # Load Bitmaps
  #
+ image create bitmap rewind  -file "$xbm_dir/rewind.xbm" \
+ 			-maskfile "$xbm_dir/rewind.xbm"
+ image create bitmap stop    -file "$xbm_dir/stop.xbm" \
+ 			-maskfile "$xbm_dir/stop.xbm"
+ image create bitmap fwd     -file "$xbm_dir/fwd.xbm" \
+ 			-maskfile "$xbm_dir/fwd.xbm"
+ image create bitmap fwdstep -file "$xbm_dir/fwdstep.xbm" \
+ 			-maskfile "$xbm_dir/fwdstep.xbm"
  
! image create bitmap shrink  -file "$xbm_dir/shrink.xbm" \
! 			-maskfile "$xbm_dir/shrink.xbm"
! image create bitmap grow    -file "$xbm_dir/grow.xbm" \
! 			-maskfile "$xbm_dir/grow.xbm"
! image create bitmap adj     -file "$xbm_dir/adj.xbm" \
! 			-maskfile "$xbm_dir/adj.xbm"
  
  #
  # Create Title & Version Number
  #
***************
*** 464,471 ****
  
  set ncoord [ expr -1 * ( $net_size / 2 ) ]
  
  canvas $NET_C -bd $frame_border -relief sunken \
! 	-scrollincrement $net_scroll -confine 0 \
  	-scrollregion "$ncoord $ncoord $pcoord $pcoord"
  
  set bg_color [ $NET_C config -background ]
--- 483,491 ----
  
  set ncoord [ expr -1 * ( $net_size / 2 ) ]
  
+ 
  canvas $NET_C -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "$ncoord $ncoord $pcoord $pcoord"
  
  set bg_color [ $NET_C config -background ]
***************
*** 527,533 ****
  
  frame $CTRL -bd $frame_border -relief sunken
  
! button $CTRL.adjust -bitmap "@$xbm_dir/adj.xbm" \
  	-foreground $fg_color -activeforeground $active_fg_color
  
  set rcmd "raiseMenu .xpvm.views_menu $CTRL.view_select .xpvm {}"
--- 547,553 ----
  
  frame $CTRL -bd $frame_border -relief sunken
  
! button $CTRL.adjust -image adj \
  	-foreground $fg_color -activeforeground $active_fg_color
  
  set rcmd "raiseMenu .xpvm.views_menu $CTRL.view_select .xpvm {}"
***************
*** 535,552 ****
  button $CTRL.view_select -text "Views" -command $rcmd \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $CTRL.rewind -bitmap "@$xbm_dir/rewind.xbm" \
  	-command trace_rewind \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $CTRL.stop -bitmap "@$xbm_dir/stop.xbm" -command trace_stop \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $CTRL.fwdstep -bitmap "@$xbm_dir/fwdstep.xbm" \
  	-command trace_fwdstep \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $CTRL.fwd -bitmap "@$xbm_dir/fwd.xbm" -command trace_fwd \
  	-foreground $fg_color -activeforeground $active_fg_color
  
  set trace_control_status "none"
--- 555,572 ----
  button $CTRL.view_select -text "Views" -command $rcmd \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $CTRL.rewind -image rewind \
  	-command trace_rewind \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $CTRL.stop -image stop -command trace_stop \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $CTRL.fwdstep -image fwdstep \
  	-command trace_fwdstep \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $CTRL.fwd -image fwd -command trace_fwd \
  	-foreground $fg_color -activeforeground $active_fg_color
  
  set trace_control_status "none"
***************
*** 572,578 ****
  	-command "handleTraceFileStatus" \
  	-bd $frame_border -relief sunken -value "OverWrite" \
  	-variable trace_file_status \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  radiobutton $CTRL.playback -text "PlayBack " \
--- 592,598 ----
  	-command "handleTraceFileStatus" \
  	-bd $frame_border -relief sunken -value "OverWrite" \
  	-variable trace_file_status \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  radiobutton $CTRL.playback -text "PlayBack " \
***************
*** 579,585 ****
  	-command "handleTraceFileStatus" \
  	-bd $frame_border -relief sunken -value "PlayBack" \
  	-variable trace_file_status \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  set trace_file_status "OverWrite"
--- 599,605 ----
  	-command "handleTraceFileStatus" \
  	-bd $frame_border -relief sunken -value "PlayBack" \
  	-variable trace_file_status \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  set trace_file_status "OverWrite"
***************
*** 660,670 ****
  	-foreground $fg_color
  
  canvas $ST_L -bd $frame_border -relief sunken \
! 	-scrollincrement 1 -confine 0 \
  	-scrollregion "0 0 $st_labels_width $st_canvas_height"
  
  canvas $ST_C -bd $frame_border -relief sunken \
! 	-scrollincrement 1 -confine 0 \
  	-scrollregion "0 0 $scroll_canvas_width $st_canvas_height"
  
  set cmd "scrollViews $ST_C $ST_SBH timex st_cwidth st_xview HORIZ ST 1"
--- 680,690 ----
  	-foreground $fg_color
  
  canvas $ST_L -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "0 0 $st_labels_width $st_canvas_height"
  
  canvas $ST_C -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "0 0 $scroll_canvas_width $st_canvas_height"
  
  set cmd "scrollViews $ST_C $ST_SBH timex st_cwidth st_xview HORIZ ST 1"
***************
*** 693,703 ****
  label $ST.query -text "View Info:" -bd 2 -relief sunken \
  	-foreground $fg_color -anchor nw
  
! button $ST.shrink -bitmap "@$xbm_dir/shrink.xbm" \
  	-command "change_st_height shrink" \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $ST.grow -bitmap "@$xbm_dir/grow.xbm" \
  	-command "change_st_height grow" \
  	-foreground $fg_color -activeforeground $active_fg_color
  
--- 713,723 ----
  label $ST.query -text "View Info:" -bd 2 -relief sunken \
  	-foreground $fg_color -anchor nw
  
! button $ST.shrink -image shrink \
  	-command "change_st_height shrink" \
  	-foreground $fg_color -activeforeground $active_fg_color
  
! button $ST.grow -image grow \
  	-command "change_st_height grow" \
  	-foreground $fg_color -activeforeground $active_fg_color
  
***************
*** 802,814 ****
  checkbutton $SP.flags_debug -text "PvmTaskDebug" \
  	-onvalue ON -offvalue OFF -variable spawn_flags_debug \
  	-bd $frame_border -relief flat \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  checkbutton $SP.flags_trace -text "PvmTaskTrace" \
  	-onvalue ON -offvalue OFF -variable spawn_flags_trace \
  	-bd $frame_border -relief flat \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color \
  	-command layout_spawn_dialog
  
--- 822,834 ----
  checkbutton $SP.flags_debug -text "PvmTaskDebug" \
  	-onvalue ON -offvalue OFF -variable spawn_flags_debug \
  	-bd $frame_border -relief flat \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  checkbutton $SP.flags_trace -text "PvmTaskTrace" \
  	-onvalue ON -offvalue OFF -variable spawn_flags_trace \
  	-bd $frame_border -relief flat \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color \
  	-command layout_spawn_dialog
  
***************
*** 821,833 ****
  checkbutton $SP.flags_front -text "PvmMppFront" \
  	-onvalue ON -offvalue OFF -variable spawn_flags_front \
  	-bd $frame_border -relief flat \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  checkbutton $SP.flags_compl -text "PvmHostCompl" \
  	-onvalue ON -offvalue OFF -variable spawn_flags_compl \
  	-bd $frame_border -relief flat \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  set spawn_flags_trace ON
--- 841,853 ----
  checkbutton $SP.flags_front -text "PvmMppFront" \
  	-onvalue ON -offvalue OFF -variable spawn_flags_front \
  	-bd $frame_border -relief flat \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  checkbutton $SP.flags_compl -text "PvmHostCompl" \
  	-onvalue ON -offvalue OFF -variable spawn_flags_compl \
  	-bd $frame_border -relief flat \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  set spawn_flags_trace ON
***************
*** 838,844 ****
  	-command checkSpawnWhere \
  	-bd $frame_border -relief flat -value "Host" \
  	-variable spawn_where \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  radiobutton $SP.where_arch -text "Architecture" \
--- 858,864 ----
  	-command checkSpawnWhere \
  	-bd $frame_border -relief flat -value "Host" \
  	-variable spawn_where \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  radiobutton $SP.where_arch -text "Architecture" \
***************
*** 845,851 ****
  	-command checkSpawnWhere \
  	-bd $frame_border -relief flat -value "Arch" \
  	-variable spawn_where \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  radiobutton $SP.where_default -text "Default" \
--- 865,871 ----
  	-command checkSpawnWhere \
  	-bd $frame_border -relief flat -value "Arch" \
  	-variable spawn_where \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  radiobutton $SP.where_default -text "Default" \
***************
*** 852,858 ****
  	-command checkSpawnWhere \
  	-bd $frame_border -relief flat -value "Default" \
  	-variable spawn_where \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  set spawn_where Default
--- 872,878 ----
  	-command checkSpawnWhere \
  	-bd $frame_border -relief flat -value "Default" \
  	-variable spawn_where \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  set spawn_where Default
***************
*** 883,889 ****
  checkbutton $SP.close_on_start -text "Close on Start" \
  	-onvalue ON -offvalue OFF -variable spawn_close_on_start \
  	-bd $frame_border -relief flat \
! 	-selector $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  set spawn_close_on_start "ON"
--- 903,909 ----
  checkbutton $SP.close_on_start -text "Close on Start" \
  	-onvalue ON -offvalue OFF -variable spawn_close_on_start \
  	-bd $frame_border -relief flat \
! 	-selectcolor $selector_color -foreground $fg_color \
  	-activeforeground $active_fg_color
  
  set spawn_close_on_start "ON"
***************
*** 941,947 ****
  	- (2 * $border_space)]
  
  canvas $KL_C -bd $frame_border -relief sunken \
! 	-scrollincrement $row_height -confine 0 \
  	-scrollregion "0 0 $kill_canvas_height $kill_canvas_width"
  
  set cmd "scrollCanvas $KL_C $KL_SBH \
--- 961,967 ----
  	- (2 * $border_space)]
  
  canvas $KL_C -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "0 0 $kill_canvas_height $kill_canvas_width"
  
  set cmd "scrollCanvas $KL_C $KL_SBH \
***************
*** 1031,1037 ****
  	- $signal_list_width - (3 * $border_space)]
  
  canvas $SG_C -bd $frame_border -relief sunken \
! 	-scrollincrement $row_height -confine 0 \
  	-scrollregion "0 0 $signal_canvas_height $signal_canvas_width"
  
  set signal_win_width [ expr $signal_canvas_width * $col_width ]
--- 1051,1057 ----
  	- $signal_list_width - (3 * $border_space)]
  
  canvas $SG_C -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "0 0 $signal_canvas_height $signal_canvas_width"
  
  set signal_win_width [ expr $signal_canvas_width * $col_width ]
***************
*** 1064,1070 ****
  frame $SG_LF -relief sunken -bd $frame_border
  
  canvas $SG_LC \
! 	-scrollincrement $row_height -confine 0 \
  	-scrollregion "0 0 $signal_canvas_height $num_signals"
  
  frame $SG_LCW
--- 1084,1090 ----
  frame $SG_LF -relief sunken -bd $frame_border
  
  canvas $SG_LC \
! 	-confine 0 \
  	-scrollregion "0 0 $signal_canvas_height $num_signals"
  
  frame $SG_LCW
***************
*** 1626,1632 ****
  	-foreground $fg_color
  
  canvas $UT_C -bd $frame_border -relief sunken \
! 	-scrollincrement 1 -confine 0 \
  	-scrollregion "0 0 $scroll_canvas_width $ut_canvas_height"
  
  set cmd "scrollViews $UT_C $UT_SBH timex ut_cwidth ut_xview HORIZ UT 1"
--- 1646,1652 ----
  	-foreground $fg_color
  
  canvas $UT_C -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "0 0 $scroll_canvas_width $ut_canvas_height"
  
  set cmd "scrollViews $UT_C $UT_SBH timex ut_cwidth ut_xview HORIZ UT 1"
***************
*** 1716,1726 ****
  label .call_trace.frame.query -text "" -foreground $fg_color
  
  canvas $CT_L -bd $frame_border -relief sunken \
! 	-scrollincrement 1 -confine 0 \
  	-scrollregion "0 0 $ct_labels_width $ct_canvas_height"
  
  canvas $CT_C -bd $frame_border -relief sunken \
! 	-scrollincrement 1 -confine 0 \
  	-scrollregion "0 0 $ct_canvas_width $ct_canvas_height"
  
  set cmd "scrollCanvas $CT_C $CT_SBH \
--- 1736,1746 ----
  label .call_trace.frame.query -text "" -foreground $fg_color
  
  canvas $CT_L -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "0 0 $ct_labels_width $ct_canvas_height"
  
  canvas $CT_C -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "0 0 $ct_canvas_width $ct_canvas_height"
  
  set cmd "scrollCanvas $CT_C $CT_SBH \
***************
*** 1814,1820 ****
  set output_file ""
  
  canvas $TO_C -bd $frame_border -relief sunken \
! 	-scrollincrement $row_height -confine 0 \
  	-scrollregion "0 0 $to_canvas_width $to_canvas_height"
  
  set cmd "scrollCanvas $TO_C $TO_SBH \
--- 1834,1840 ----
  set output_file ""
  
  canvas $TO_C -bd $frame_border -relief sunken \
! 	-confine 0 \
  	-scrollregion "0 0 $to_canvas_width $to_canvas_height"
  
  set cmd "scrollCanvas $TO_C $TO_SBH \
***************
*** 1909,1915 ****
  
  set win_map_list ""
  
! bind .xpvm <Unmap>				"unmap_all"
  
  bind .xpvm <Map>				"remap_all"
  bind .utilization <Map>			"remap_all"
--- 1929,1935 ----
  
  set win_map_list ""
  
! #bind .xpvm <Unmap>				"unmap_all"
  
  bind .xpvm <Map>				"remap_all"
  bind .utilization <Map>			"remap_all"

---------------------------------3894841216838--

