Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk:
http://source.squeak.org/trunk/MorphicTests-mt.38.mcz==================== Summary ====================
Name: MorphicTests-mt.38
Author: mt
Time: 16 August 2016, 10:36:17.873039 am
UUID: 3b4d0402-dcf8-1f4a-b3b4-86fd8af82cda
Ancestors: MorphicTests-mt.37
Revert the hack to restore the prior ActiveWorld now that the behavior is fixed in Morphic.
=============== Diff against MorphicTests-mt.37 ===============
Item was changed:
TestCase subclass: #UserInputEventTests
+ instanceVariableNames: 'hand world'
- instanceVariableNames: 'hand world priorWorld'
classVariableNames: ''
poolDictionaries: ''
category: 'MorphicTests-Events'!
Item was changed:
----- Method: UserInputEventTests>>setUp (in category 'running') -----
setUp
super setUp.
- priorWorld := ActiveWorld.
-
world := (PasteUpMorph newWorldForProject: nil)
extent: 300@200;
viewBox: (0@0 extent: 300@200);
yourself.
(world instVarNamed: #worldState)
instVarNamed: #canvas
put: (Form extent: 300@200 depth: 32) getCanvas.
hand := HandMorphForEventTests new.
world
removeHand: world firstHand; "the default hand"
addHand: hand.!
Item was changed:
----- Method: UserInputEventTests>>tearDown (in category 'running') -----
tearDown
hand showHardwareCursor: true. "Nasty side-effect"
- ActiveWorld := priorWorld.
super tearDown.!