diff -crN oommf11b2/ext/ow/entryscale.tcl oommf/ext/ow/entryscale.tcl
*** oommf11b2/ext/ow/entryscale.tcl	Tue Nov 25 21:39:19 2003
--- oommf/ext/ow/entryscale.tcl	Wed Sep 15 23:10:11 2004
***************
*** 372,384 ****
      private method UpdateMarkList {} {
  	if {[string match {} $winscale]} { return }
  
- 	# First hide all markwindows
- 	set markwindows [winfo children $winscale]
- 	foreach win $markwindows {
- 	    place forget $win
- 	}
- 
  	# Delete any excess mark windows
  	if {[llength $markwindows] > [llength $marklist]} {
  	    # Remove extra windows from end.  We have to disable
  	    # <Configure> bindings on $winscale because otherwise Tk
--- 372,379 ----
      private method UpdateMarkList {} {
  	if {[string match {} $winscale]} { return }
  
  	# Delete any excess mark windows
+ 	set markwindows [winfo children $winscale]
  	if {[llength $markwindows] > [llength $marklist]} {
  	    # Remove extra windows from end.  We have to disable
  	    # <Configure> bindings on $winscale because otherwise Tk
***************
*** 424,433 ****
  	}
  	set id 0
  	foreach mark $slist {
! 	    if {$mark<$scalemin || $mark>$scalemax} { continue }
! 	    set xpos [lindex [$winscale coords $mark] 0]
! 	    place $winscale.mark$id \
! 		    -x $xpos -y 0 -relheight 1 -anchor $anchor
  	    incr id
  	}
      }
--- 419,431 ----
  	}
  	set id 0
  	foreach mark $slist {
! 	    if {$mark<$scalemin || $mark>$scalemax} {
! 		place forget $winscale.mark$id
! 	    } else {
! 		set xpos [lindex [$winscale coords $mark] 0]
! 		place $winscale.mark$id \
! 			-x $xpos -y 0 -relheight 1 -anchor $anchor
! 	    }
  	    incr id
  	}
      }