Patrick Rein uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-pre.1470.mcz
==================== Summary ====================
Name: Morphic-pre.1470 Author: pre Time: 17 December 2018, 5:38:05.024471 pm UUID: a199ad27-6759-4bb9-a744-a6fca5ae30b4 Ancestors: Morphic-pre.1469
Recategorizes stepTime and wantsSteps back to the stepping category. Also changes the category for all subclasses which had it in the testing category.
=============== Diff against Morphic-pre.1469 ===============
Item was changed: + ----- Method: BalloonMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: BalloonMorph>>stepTime (in category 'testing') ----- stepTime ^ 0 "every cycle"!
Item was changed: + ----- Method: ColorPickerMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: ColorPickerMorph>>stepTime (in category 'testing') ----- stepTime
^ 50 !
Item was changed: + ----- Method: DoCommandOnceMorph>>wantsSteps (in category 'stepping and presenter') ----- - ----- Method: DoCommandOnceMorph>>wantsSteps (in category 'testing') ----- wantsSteps
^actionBlock notNil !
Item was changed: + ----- Method: HandleMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: HandleMorph>>stepTime (in category 'testing') ----- stepTime "Update every hundredth of a second." ^ 10 !
Item was changed: + ----- Method: Morph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: Morph>>stepTime (in category 'testing') ----- stepTime "Answer the desired time between steps in milliseconds. This default implementation requests that the 'step' method be called once every second."
^ self topRendererOrSelf player ifNotNil: [10] ifNil: [1000]!
Item was changed: + ----- Method: Morph>>wantsSteps (in category 'stepping and presenter') ----- - ----- Method: Morph>>wantsSteps (in category 'testing') ----- wantsSteps "Return true if the receiver overrides the default Morph step method." "Details: Find first class in superclass chain that implements #step and return true if it isn't class Morph."
| c | self isPartsDonor ifTrue: [^ false]. (self == self topRendererOrSelf) ifTrue: [self player wantsSteps ifTrue: [^ true]]. c := self class. [c includesSelector: #step] whileFalse: [c := c superclass]. ^ c ~= Morph!
Item was changed: + ----- Method: MovieMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: MovieMorph>>stepTime (in category 'testing') ----- stepTime
^ msecsPerFrame !
Item was changed: + ----- Method: PasteUpMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: PasteUpMorph>>stepTime (in category 'testing') ----- stepTime
(self isWorldMorph and: [owner notNil]) ifTrue: [ ^1 ]. ^super stepTime!
Item was changed: + ----- Method: PolygonMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: PolygonMorph>>stepTime (in category 'testing') ----- stepTime "Answer the desired time between steps in milliseconds."
^ self topRendererOrSelf player ifNotNil: [10] ifNil: [100]
"NB: in all currently known cases, polygons are not actually wrapped in TransformationMorphs, so the #topRendererOrSelf call above is probably redundant, but is retained for safety."!
Item was changed: + ----- Method: PolygonMorph>>wantsSteps (in category 'stepping and presenter') ----- - ----- Method: PolygonMorph>>wantsSteps (in category 'testing') ----- wantsSteps super wantsSteps ifTrue: [^true].
"For crawling ants effect of dashed line." borderDashSpec ifNil: [^false]. ^borderDashSpec size = 5 and: [(borderDashSpec fifth) > 0]!
Item was changed: + ----- Method: ProjectViewMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: ProjectViewMorph>>stepTime (in category 'testing') ----- stepTime
^1000!
Item was changed: + ----- Method: ScrollBar>>stepTime (in category 'stepping and presenter') ----- - ----- Method: ScrollBar>>stepTime (in category 'testing') ----- stepTime ^ currentScrollDelay ifNil: [300]!
Item was changed: + ----- Method: ScrollBar>>wantsSteps (in category 'stepping and presenter') ----- - ----- Method: ScrollBar>>wantsSteps (in category 'testing') ----- wantsSteps ^self scrollBarAction notNil!
Item was changed: + ----- Method: StepMessage>>stepTime (in category 'stepping and presenter') ----- - ----- Method: StepMessage>>stepTime (in category 'testing') ----- stepTime "Return the step time for this message. If nil, the receiver of the message will be asked for its #stepTime." ^stepTime!
Item was changed: + ----- Method: ThreePhaseButtonMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: ThreePhaseButtonMorph>>stepTime (in category 'testing') ----- stepTime (self hasProperty: #doesButtonAction) ifTrue:[^1]. ^super stepTime!
Item was changed: + ----- Method: ThreePhaseButtonMorph>>wantsSteps (in category 'stepping and presenter') ----- - ----- Method: ThreePhaseButtonMorph>>wantsSteps (in category 'testing') ----- wantsSteps ^(self hasProperty: #doesButtonAction) or:[super wantsSteps]!
Item was changed: + ----- Method: TransformationMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: TransformationMorph>>stepTime (in category 'testing') ----- stepTime "Answer the stepTime of my rendered morph if posible"
| rendered | rendered := self renderedMorph. rendered = self ifTrue: [^super stepTime]. "Hack to avoid infinite recursion" ^rendered stepTime. !
Item was changed: + ----- Method: UpdatingMenuItemMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: UpdatingMenuItemMorph>>stepTime (in category 'testing') ----- stepTime ^ 1200!
Item was changed: + ----- Method: UpdatingSimpleButtonMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: UpdatingSimpleButtonMorph>>stepTime (in category 'testing') ----- stepTime "Answer the desired time between steps in milliseconds. If the receiver has a wordingProvider that may dynamically provide changed wording for the label, step once every 1.5 seconds"
^ wordingProvider ifNotNil: [1500] ifNil: [super stepTime]!
Item was changed: + ----- Method: UpdatingSimpleButtonMorph>>wantsSteps (in category 'stepping and presenter') ----- - ----- Method: UpdatingSimpleButtonMorph>>wantsSteps (in category 'testing') ----- wantsSteps "Answer whether the receiver wishes to be sent the #step message. In the current case, this decision depends on whether there is a wordingProvider which can dynamically provide fresh wording for the button's label"
^ wordingProvider notNil!
Item was changed: + ----- Method: UpdatingStringMorph>>stepTime (in category 'stepping and presenter') ----- - ----- Method: UpdatingStringMorph>>stepTime (in category 'testing') ----- stepTime
^ stepTime ifNil: [200] !
Item was changed: + ----- Method: UpdatingThreePhaseButtonMorph>>wantsSteps (in category 'stepping and presenter') ----- - ----- Method: UpdatingThreePhaseButtonMorph>>wantsSteps (in category 'testing') ----- wantsSteps ^ true!
squeak-dev@lists.squeakfoundation.org