The Trunk: Morphic-pre.1470.mcz

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!