Regression test fixes.

highperformancecoder · May 7, 2024 · 761d441 · 761d441
1 parent 73a088c
commit 761d441
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 4 deletions.
diff --git a/gui-tk/minsky.tcl b/gui-tk/minsky.tcl
@@ -205,7 +205,6 @@ wm title . "$progName: $fname"
 setBackgroundColour $backgroundColour
 proc tk_focusPrev {win} {return $win}
 proc tk_focusNext {win} {return $win}
-canvas.focusFollowsMouse $preferences(focusFollowsMouse)
 if {$preferences(focusFollowsMouse)} {
     tk_focusFollowsMouse
 # Make tab traversal possible within a window that is given focus by only clicking on it (no focusFollowsMouse). For ticket 901.	
@@ -1397,7 +1396,6 @@ proc openNamedFile {ofname} {
     minsky.multipleEquities $preferences(multipleEquities)
     setGodleyDisplayValue $preferences(godleyDisplay) $preferences(godleyDisplayStyle)
 
-    canvas.focusFollowsMouse $preferences(focusFollowsMouse)
     recentreCanvas
 
    .controls.simSpeed set [simulationDelay]
@@ -1603,7 +1601,6 @@ proc setPreferenceParms {} {
     defaultFont $preferences(defaultFont)
     multipleEquities $preferences(multipleEquities)
     setGodleyDisplay
-    canvas.focusFollowsMouse $preferences(focusFollowsMouse)
     if {$preferences(focusFollowsMouse)} {
         tk_focusFollowsMouse
 	# Make tab traversal possible within a window that is given focus by only clicking on it (no focusFollowsMouse). For ticket 901.

diff --git a/test/00/t0036a.sh b/test/00/t0036a.sh
@@ -39,7 +39,6 @@ proc afterMinskyStarted {} {uplevel #0 {
   update
   assert {[findObject Group]}
   set item minsky.canvas.item
-  canvas.focusFollowsMouse 1
   canvas.mouseDown [expr [\$item.left]-10] [expr [\$item.bottom]+10]
   canvas.mouseUp [expr [\$item.left]+10] [expr [\$item.bottom]-10] 
   assert {[canvas.selection.groups.size]==1}