The Trunk: MorphicTests-mt.77.mcz

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@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.!