Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-mt.77.mcz

==================== Summary ====================

Name: MorphicTests-mt.77
Author: mt
Time: 17 April 2021, 2:04:15.737481 pm
UUID: 3bd12899-bf8f-c84c-9f58-61da5c7b8224
Ancestors: MorphicTests-nice.76

Quick fix for #test03EventHandler.

Note that we might want to extract that "reset pattern", which I employed in several test cases already, into TestCase for all tests to use.

Also note that I will start an extra discussion about whether the blue button should be exclusive for the halo or whether morphs should be able to override this.

=============== Diff against MorphicTests-nice.76 ===============

Item was changed:
  TestCase subclass: #UserInputEventTests
+ 	instanceVariableNames: 'hand world reset'
- 	instanceVariableNames: 'hand world'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'MorphicTests-Events'!

Item was changed:
  ----- Method: UserInputEventTests>>setUp (in category 'running') -----
  setUp
  
  	super setUp.
  
  	world := (PasteUpMorph newWorldForProject: nil)
  		extent: 300 at 200;
  		yourself.
  		
  	hand := HandMorphForEventTests new.
  	
  	world
  		removeHand: world firstHand; "the default hand"
+ 		addHand: hand.
+ 		
+ 	reset := {
+ 		[:enable | [Morph haloForAll: enable]]
+ 			value: Morph haloForAll
+ 	}.
+ 	Morph haloForAll: false.!
- 		addHand: hand.!

Item was changed:
  ----- Method: UserInputEventTests>>tearDown (in category 'running') -----
  tearDown
  
  	hand showHardwareCursor: true. "Nasty side-effect"
+ 	reset do: #value.
  	super tearDown.!