[squeak-dev] The Trunk: Morphic-pre.1470.mczcommits at source.squeak.org commits at source.squeak.orgMon Dec 17 16:38:17 UTC 2018
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!
More information about the Squeak-dev mailing list |