'From Squeak3.8alpha of ''17 July 2004'' [latest update: #5976] on 7 August 2004 at 7:28:52 pm'! "Change Set: TransformMorphFix Date: 7 August 2004 Author: Karl Ramberg A little fix to sure we are dealing with morphic stuff here. Test included"! TestCase subclass: #TransformMorphTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Basic-Tests'! !TransformMorph methodsFor: 'private' stamp: 'kfr 8/7/2004 18:48'! privateFullMoveBy: delta "Private!! Relocate me, but not my subMorphs." self privateMoveBy: delta. transform _ (transform asMorphicTransform) withOffset: (transform offset - delta). ! ! !TransformMorphTest methodsFor: 'as yet unclassified' stamp: 'sd 7/19/2004 10:05'! testTransformedBy "self run: #testTransformedBy" "self debug: #testTransformedBy" | parent child | parent _ PasteUpMorph new openInWorld extent: 100@100. parent addMorph: (child _ Morph new). child heading: 30. parent heading: 30. self shouldnt: [ActiveHand grabMorph: child. ActiveHand position: 10@10 + ActiveHand position.] raise: MessageNotUnderstood! !