Packages November 2023

packages@lists.squeakfoundation.org

1 participants
89 discussions

The Trunk: Nebraska-dtl.60.mcz
by commits＠source.squeak.org 05 Nov '23

05 Nov '23

David T. Lewis uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-dtl.60.mcz ==================== Summary ==================== Name: Nebraska-dtl.60 Author: dtl Time: 4 November 2023, 9:27:45.556042 pm UUID: 25e5261c-751f-45e5-8155-99bd1257a171 Ancestors: Nebraska-mt.59 Method category cleanups based on Marcel's unload-etoys.33.cs Etoys removal script. Reference squeak-dev 29-Aug-2023 Let's discuss the future of Etoys in Squeak 6.1 (and beyond) =============== Diff against Nebraska-mt.59 =============== Item was changed: + ----- Method: AlertMorph>>step (in category 'stepping') ----- - ----- Method: AlertMorph>>step (in category 'stepping and presenter') ----- step super step. offColor ifNil: [offColor := self onColor mixed: 0.5 with: Color black]. socketOwner objectsInQueue = 0 ifTrue: [ color = offColor ifFalse: [super color: offColor]. ] ifFalse: [ super color: (color = onColor ifTrue: [offColor] ifFalse: [onColor]). ]. ! Item was changed: + ----- Method: AudioChatGUI>>start (in category 'stepping') ----- - ----- Method: AudioChatGUI>>start (in category 'stepping and presenter') ----- start | myUpdatingText playButton myOpenConnectionButton myStopButton window | " --- old system window version --- " Socket initializeNetwork. myrecorder initialize. window := (SystemWindow labelled: 'iSCREAM') model: self. myalert := AlertMorph new. myalert socketOwner: self. window addMorph: myalert frame: (0.35(a)0.4 corner: 0.5(a)0.7). (playButton := self playButton) center: 200@300. window addMorph: playButton frame: (0.5(a)0.4 corner: 1.0(a)0.7). (myOpenConnectionButton := self connectButton) center: 250@300. window addMorph: myOpenConnectionButton frame: (0.5@0 corner: 1.0(a)0.4). (myStopButton := self recordAndStopButton) center: 300@300. window addMorph: myStopButton frame: (0.5(a)0.7 corner: 1.0(a)1.0). myUpdatingText := UpdatingStringMorph on: self selector: #objectsInQueue. window addMorph: myUpdatingText frame: (0.41(a)0.75 corner: 0.45(a)0.95). "myUserList init."! Item was changed: + ----- Method: AudioChatGUI>>step (in category 'stepping') ----- - ----- Method: AudioChatGUI>>step (in category 'stepping and presenter') ----- step | now | super step. self transmitWhileRecording ifTrue: [self sendAnyCompletedSounds]. self handsFreeTalking & myrecorder isRecording ifTrue: [ now := Time millisecondClockValue. ((handsFreeTalkingFlashTime ifNil: [0]) - now) abs > 200 ifTrue: [ theTalkButton color: ( theTalkButton color = self buttonColor ifTrue: [Color white] ifFalse: [self buttonColor] ). handsFreeTalkingFlashTime := now. ]. ]. self class playOnArrival ifTrue: [self playNextMessage]. "myrecorder ifNotNil: [ myrecorder recorder samplingRate printString ,' ', SoundPlayer samplingRate printString,' ' displayAt: 0@0 ]."! Item was changed: + ----- Method: AudioChatGUI>>stop (in category 'stepping') ----- - ----- Method: AudioChatGUI>>stop (in category 'stepping and presenter') ----- stop myrecorder stop. self send.! Item was changed: + ----- Method: NebraskaCommunicatorMorph>>step (in category 'stepping') ----- - ----- Method: NebraskaCommunicatorMorph>>step (in category 'stepping and presenter') ----- step | state | [resultQueue isEmpty] whileFalse: [ self handleResult: resultQueue next ]. (state := self valueOfProperty: #flashingState ifAbsent: [0]) > 0 ifTrue: [ self borderColor: ( (self valueOfProperty: #flashingColors ifAbsent: [{Color green. Color red}]) atWrap: state ). self setProperty: #flashingState toValue: state + 1 ].! Item was changed: + ----- Method: NebraskaFridgeMorph>>step (in category 'stepping') ----- - ----- Method: NebraskaFridgeMorph>>step (in category 'stepping and presenter') ----- step super step. updateCounter = self class updateCounter ifFalse: [self rebuild]. ! Item was changed: + ----- Method: NebraskaGateKeeperMorph>>step (in category 'stepping') ----- - ----- Method: NebraskaGateKeeperMorph>>step (in category 'stepping and presenter') ----- step (self valueOfProperty: #gateKeeperCounterValue) = NebraskaGateKeeperMorph updateCounter ifTrue: [^self]. self rebuild. ! Item was changed: + ----- Method: NebraskaListenerMorph>>step (in category 'stepping') ----- - ----- Method: NebraskaListenerMorph>>step (in category 'stepping and presenter') ----- step | needRebuild | super step. needRebuild := false. (self valueOfProperty: #gateKeeperCounterValue) = NebraskaGateKeeperMorph updateCounter ifFalse: [needRebuild := true]. updateCounter = UpdateCounter ifFalse: [ needRebuild := true. ]. needRebuild ifTrue: [self rebuild]. ! Item was changed: + ----- Method: NebraskaNavigationMorph>>step (in category 'stepping') ----- - ----- Method: NebraskaNavigationMorph>>step (in category 'stepping and presenter') ----- step super step. (nebraskaBorder isNil or: [nebraskaBorder world isNil]) ifTrue: [self delete].! Item was changed: + ----- Method: NebraskaSenderMorph>>step (in category 'stepping') ----- - ----- Method: NebraskaSenderMorph>>step (in category 'stepping and presenter') ----- step (self valueOfProperty: #currentBadgeVersion) = self currentBadgeVersion ifFalse: [ self setProperty: #currentBadgeVersion toValue: self currentBadgeVersion. self fixOldVersion. Preferences defaultAuthorName. "seems like a good place to insure we have a name" ]. super step.! Item was changed: + ----- Method: NebraskaServerMorph>>step (in category 'stepping') ----- - ----- Method: NebraskaServerMorph>>step (in category 'stepping and presenter') ----- step | now | self server ifNil: [ ^self ]. self server step. now := Time millisecondClockValue. (now - lastFullUpdateTime) abs > 5000 ifTrue: [ lastFullUpdateTime := now. (previousBacklog = self server backlog and: [self server clients = previousClients]) ifFalse: [ previousClients := self server clients copy. self rebuild ] ]. ! Item was changed: + ----- Method: NetworkTerminalMorph>>step (in category 'stepping') ----- - ----- Method: NetworkTerminalMorph>>step (in category 'stepping and presenter') ----- step decoder ifNil: [ ^self ]. decoder processIOOnForce: [ :rectangle | self forceToFront: rectangle ].!

1 0

The Trunk: MorphicExtras-dtl.350.mcz
by commits＠source.squeak.org 05 Nov '23

05 Nov '23

David T. Lewis uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-dtl.350.mcz ==================== Summary ==================== Name: MorphicExtras-dtl.350 Author: dtl Time: 4 November 2023, 9:27:15.219925 pm UUID: 8f8728a1-b3bb-4395-8fd3-3df5ca1e3e53 Ancestors: MorphicExtras-mt.349 Method category cleanups based on Marcel's unload-etoys.33.cs Etoys removal script. Reference squeak-dev 29-Aug-2023 Let's discuss the future of Etoys in Squeak 6.1 (and beyond) =============== Diff against MorphicExtras-mt.349 =============== Item was changed: + ----- Method: BackgroundMorph>>step (in category 'stepping') ----- - ----- Method: BackgroundMorph>>step (in category 'stepping and presenter') ----- step running ifTrue: [self slideBy: delta]! Item was changed: + ----- Method: BackgroundMorph>>stepTime (in category 'stepping') ----- - ----- Method: BackgroundMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "Answer the desired time between steps in milliseconds." ^ 20! Item was changed: + ----- Method: BouncingAtomsMorph>>step (in category 'stepping') ----- - ----- Method: BouncingAtomsMorph>>step (in category 'stepping and presenter') ----- step "Bounce those atoms!!" | r bounces | super step. bounces := 0. r := bounds origin corner: (bounds corner - (8@8)). self submorphsDo: [ :m | (m isMemberOf: AtomMorph) ifTrue: [ (m bounceIn: r) ifTrue: [bounces := bounces + 1]]]. "compute a 'temperature' that is proportional to the number of bounces divided by the circumference of the enclosing rectangle" self updateTemperature: (10000.0 * bounces) / (r width + r height). transmitInfection ifTrue: [self transmitInfection]. ! Item was changed: + ----- Method: BouncingAtomsMorph>>stepTime (in category 'stepping') ----- - ----- Method: BouncingAtomsMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "As fast as possible." ^ 0 ! Item was changed: + ----- Method: ClockDialMorph>>step (in category 'stepping') ----- - ----- Method: ClockDialMorph>>step (in category 'stepping and presenter') ----- step self setTime: Time now! Item was changed: + ----- Method: ClockDialMorph>>stepTime (in category 'stepping') ----- - ----- Method: ClockDialMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^5000! Item was changed: + ----- Method: EnvelopeEditorMorph>>step (in category 'stepping') ----- - ----- Method: EnvelopeEditorMorph>>step (in category 'stepping and presenter') ----- step | mouseDown hand | hand := self world firstHand. (bounds containsPoint: hand position) ifFalse: [^ self]. mouseDown := hand lastEvent redButtonPressed. mouseDown not & prevMouseDown ifTrue: ["Mouse just went up" limitXs = (limits collect: [:i | (envelope points at: i) x]) ifFalse: ["Redisplay after changing limits" self editEnvelope: envelope]]. prevMouseDown := mouseDown! Item was changed: + ----- Method: EnvelopeEditorMorph>>stepTime (in category 'stepping') ----- - ----- Method: EnvelopeEditorMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 100! Item was changed: + ----- Method: EventRecorderMorph>>step (in category 'stepping') ----- - ----- Method: EventRecorderMorph>>step (in category 'stepping and presenter') ----- step (state == #record and: [voiceRecorder notNil]) ifTrue: [ recordMeter width: (voiceRecorder meterLevel + 1). ]. ! Item was changed: + ----- Method: EventRecorderMorph>>stepTime (in category 'stepping') ----- - ----- Method: EventRecorderMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^500 ! Item was changed: + ----- Method: EventRecorderMorph>>stop (in category 'stepping') ----- - ----- Method: EventRecorderMorph>>stop (in category 'stepping and presenter') ----- stop state = #record ifTrue: [tape := tapeStream contents. saved := false]. journalFile ifNotNil: [journalFile close]. self pauseIn: self world. tapeStream := nil. state := nil. self setStatusLight: #ready. recordMeter ifNotNil: [recordMeter width: 1]. self checkTape.! Item was changed: + ----- Method: EventRecorderMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: EventRecorderMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^true ! Item was changed: + ----- Method: Flasher>>step (in category 'stepping') ----- - ----- Method: Flasher>>step (in category 'stepping and presenter') ----- step "Perform my standard periodic action" super step. self color = self onColor ifTrue: [self color: (onColor alphaMixed: 0.5 with: Color black)] ifFalse: [self color: onColor]! Item was changed: + ----- Method: Flasher>>stepTime (in category 'stepping') ----- - ----- Method: Flasher>>stepTime (in category 'stepping and presenter') ----- stepTime "Answer the desired time between steps, in milliseconds." ^ 500! Item was changed: + ----- Method: FloatingBookControlsMorph>>step (in category 'stepping') ----- - ----- Method: FloatingBookControlsMorph>>step (in category 'stepping and presenter') ----- step owner == self world ifFalse: [^ self]. owner addMorphInLayer: self. self position: (owner bottomCenter) - ((self width//2)@self height) ! Item was changed: + ----- Method: FloatingBookControlsMorph>>stepTime (in category 'stepping') ----- - ----- Method: FloatingBookControlsMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^1000! Item was changed: + ----- Method: FloatingBookControlsMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: FloatingBookControlsMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^true! Item was changed: + ----- Method: FrameRateMorph>>step (in category 'stepping') ----- - ----- Method: FrameRateMorph>>step (in category 'stepping and presenter') ----- step "Compute and display (every half second or so) the current framerate" | now timePassed newContents | framesSinceLastDisplay := framesSinceLastDisplay + 1. now := TimeStamp now. timePassed := now - lastDisplayTime. (timePassed > self updateInterval) ifTrue: [| mSecs | mSecs := timePassed asMilliSeconds. mSecsPerFrame := mSecs // framesSinceLastDisplay. framesPerSec := (framesSinceLastDisplay * 1000) // mSecs. newContents := mSecsPerFrame printString, ' mSecs (', framesPerSec printString, ' frame', (framesPerSec = 1 ifTrue: [''] ifFalse: ['s']), '/sec)'. self contents: newContents. lastDisplayTime := now. framesSinceLastDisplay := 0] ifFalse: ["Ensure at least one pixel is drawn per frame" Preferences higherPerformance ifTrue: [self invalidRect: (self position extent: 1@1)]]! Item was changed: + ----- Method: FrameRateMorph>>stepTime (in category 'stepping') ----- - ----- Method: FrameRateMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "Answer the desired time between steps in milliseconds." ^ 0 ! Item was changed: + ----- Method: GraphMorph>>cursor (in category 'accessing') ----- - ----- Method: GraphMorph>>cursor (in category 'e-toy support') ----- cursor ^ cursor ! Item was changed: + ----- Method: GraphMorph>>cursor: (in category 'accessing') ----- - ----- Method: GraphMorph>>cursor: (in category 'e-toy support') ----- cursor: aNumber | truncP | cursor ~= aNumber ifTrue: [ cursor := aNumber. truncP := aNumber truncated. truncP > data size ifTrue: [cursor := data size]. truncP < 0 ifTrue: [cursor := 1]. self keepIndexInView: truncP. hasChanged := true]. ! Item was changed: + ----- Method: GraphMorph>>step (in category 'stepping') ----- - ----- Method: GraphMorph>>step (in category 'stepping and presenter') ----- step "Make a deferred damage rectangle if I've changed. This allows applications to call methods that invalidate my display at high-bandwidth without paying the cost of doing the damage reporting on ever call; they can merely set hasChanged to true." super step. hasChanged isNil ifTrue: [hasChanged := false]. hasChanged ifTrue: [self changed. hasChanged := false]! Item was changed: + ----- Method: LedMorph>>step (in category 'stepping') ----- - ----- Method: LedMorph>>step (in category 'stepping and presenter') ----- step (flash or: [flashing]) ifTrue: [flashing := flashing not. self highlighted: flashing]. scroller ifNil: [scroller := 1]. chars ifNil: [^ self]. scroller + chars < (string size + 1) ifTrue: [scroller := scroller + 1. self stringToLed] ifFalse: [scrollLoop ifTrue: [scroller := 1]]! Item was changed: + ----- Method: LedMorph>>stepTime (in category 'stepping') ----- - ----- Method: LedMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 500! Item was changed: + ----- Method: LedTimerMorph>>start (in category 'stepping') ----- - ----- Method: LedTimerMorph>>start (in category 'stepping and presenter') ----- start counting := true! Item was changed: + ----- Method: LedTimerMorph>>step (in category 'stepping') ----- - ----- Method: LedTimerMorph>>step (in category 'stepping and presenter') ----- step flash ifTrue: [super step] ifFalse: [ counting ifTrue: [self updateTime]]! Item was changed: + ----- Method: LedTimerMorph>>stepTime (in category 'stepping') ----- - ----- Method: LedTimerMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 1000! Item was changed: + ----- Method: LedTimerMorph>>stop (in category 'stepping') ----- - ----- Method: LedTimerMorph>>stop (in category 'stepping and presenter') ----- stop counting ifTrue: [self updateTime]. counting := false.! Item was changed: + ----- Method: LedTimerMorph>>updateTime (in category 'stepping') ----- - ----- Method: LedTimerMorph>>updateTime (in category 'stepping and presenter') ----- updateTime self value: Time totalSeconds - startSeconds. self changed! Item was changed: + ----- Method: MagnifierMorph>>step (in category 'stepping') ----- - ----- Method: MagnifierMorph>>step (in category 'stepping and presenter') ----- step self changed! Item was changed: + ----- Method: MagnifierMorph>>stepTime (in category 'stepping') ----- - ----- Method: MagnifierMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 33 "ms = 30 frames-per-second"! Item was changed: + ----- Method: MarqueeMorph>>step (in category 'stepping') ----- - ----- Method: MarqueeMorph>>step (in category 'stepping and presenter') ----- step count := count + 1. count > colors size ifTrue: [count := 1]. self borderColor: (colors at: count)! Item was changed: + ----- Method: MarqueeMorph>>stepTime (in category 'stepping') ----- - ----- Method: MarqueeMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "Answer the desired time between steps in milliseconds." ^ 200! Item was changed: + ----- Method: MarqueeMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: MarqueeMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^ true! Item was changed: + ----- Method: MovingEyeMorph>>step (in category 'stepping') ----- - ----- Method: MovingEyeMorph>>step (in category 'stepping and presenter') ----- step | cp | cp := self globalPointToLocal: self world primaryHand position. (inner containsPoint: cp) ifTrue: [iris position: (cp - (iris extent // 2))] ifFalse: [self irisPos: cp].! Item was changed: + ----- Method: PianoRollScoreMorph>>step (in category 'stepping') ----- - ----- Method: PianoRollScoreMorph>>step (in category 'stepping and presenter') ----- step | t | score ifNil: [^ self]. lastMutedState ~= scorePlayer mutedState ifTrue: [ self rebuildFromScore. lastMutedState := scorePlayer mutedState copy]. t := scorePlayer ticksSinceStart. t = lastUpdateTick ifFalse: [ self moveCursorToTime: t. lastUpdateTick := t]. ! Item was changed: + ----- Method: PianoRollScoreMorph>>stepTime (in category 'stepping') ----- - ----- Method: PianoRollScoreMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 0 ! Item was changed: + ----- Method: ProjectNavigationMorph>>step (in category 'stepping') ----- - ----- Method: ProjectNavigationMorph>>step (in category 'stepping and presenter') ----- step | wb | owner ifNil: [^ self]. (self ownerThatIsA: HandMorph) ifNotNil: [^self]. self checkForRebuild. owner == self world ifTrue: [ owner addMorphInLayer: self. wb := self worldBounds. self left < wb left ifTrue: [self left: wb left]. self right > wb right ifTrue: [self right: wb right]. self positionVertically. ].! Item was changed: + ----- Method: ProjectNavigationMorph>>stepTime (in category 'stepping') ----- - ----- Method: ProjectNavigationMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^1000! Item was changed: + ----- Method: ProjectNavigationMorph>>undoButtonWording (in category 'stepping') ----- - ----- Method: ProjectNavigationMorph>>undoButtonWording (in category 'stepping and presenter') ----- undoButtonWording "Answer the wording for the Undo button." | wdng | wdng := Project current world commandHistory undoOrRedoMenuWording. (wdng endsWith: ' (z)') ifTrue: [ wdng := wdng copyFrom: 1to: wdng size - 4]. ^ wdng! Item was changed: + ----- Method: ProjectNavigationMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: ProjectNavigationMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^true! Item was changed: + ----- Method: RecordingControlsMorph>>startStepping (in category 'stepping') ----- - ----- Method: RecordingControlsMorph>>startStepping (in category 'stepping and presenter') ----- startStepping "Make the level meter active when dropped into the world. Do nothing if already recording. Note that this will cause other recorders to stop recording..." super startStepping. recorder isPaused ifTrue: [ SoundRecorder allSubInstancesDo: [:r | r stopRecording]. "stop all other sound recorders" recorder pause]. "meter is updated while paused" ! Item was changed: + ----- Method: RecordingControlsMorph>>step (in category 'stepping') ----- - ----- Method: RecordingControlsMorph>>step (in category 'stepping and presenter') ----- step recorder isPaused ifTrue: [recordingStatusLight color: Color transparent] ifFalse: [recordingStatusLight color: Color red]. recordMeter extent: (recorder meterLevel + 1) @ recordMeter height. ! Item was changed: + ----- Method: RecordingControlsMorph>>stepTime (in category 'stepping') ----- - ----- Method: RecordingControlsMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 50 ! Item was changed: + ----- Method: RecordingControlsMorph>>stop (in category 'stepping') ----- - ----- Method: RecordingControlsMorph>>stop (in category 'stepping and presenter') ----- stop recorder pause. ! Item was changed: + ----- Method: RecordingControlsMorph>>stopStepping (in category 'stepping') ----- - ----- Method: RecordingControlsMorph>>stopStepping (in category 'stepping and presenter') ----- stopStepping "Turn off recording." super stopStepping. recorder stopRecording. ! Item was changed: + ----- Method: ScaleMorph>>start (in category 'stepping') ----- - ----- Method: ScaleMorph>>start (in category 'stepping and presenter') ----- start ^ start! Item was changed: + ----- Method: ScaleMorph>>stop (in category 'stepping') ----- - ----- Method: ScaleMorph>>stop (in category 'stepping and presenter') ----- stop ^ stop! Item was changed: + ----- Method: ScorePlayerMorph>>step (in category 'stepping') ----- - ----- Method: ScorePlayerMorph>>step (in category 'stepping and presenter') ----- step scrollSlider adjustToValue: scorePlayer positionInScore. ! Item was changed: + ----- Method: ScreeningMorph>>wantsRecolorHandle (in category 'halos and balloon help') ----- - ----- Method: ScreeningMorph>>wantsRecolorHandle (in category 'e-toy support') ----- wantsRecolorHandle "Answer whether the receiver would like a recolor handle to be put up for it. We'd want to disable this but for the moment that would cut off access to the button part of the properties sheet. So this remains a loose end." ^ false! Item was changed: + ----- Method: SoundLoopMorph>>step (in category 'stepping') ----- - ----- Method: SoundLoopMorph>>step (in category 'stepping and presenter') ----- step self positionCursor! Item was changed: + ----- Method: SoundLoopMorph>>stepTime (in category 'stepping') ----- - ----- Method: SoundLoopMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 50 ! Item was changed: + ----- Method: SoundLoopMorph>>stop (in category 'stepping') ----- - ----- Method: SoundLoopMorph>>stop (in category 'stepping and presenter') ----- stop "Stop playing this sound." SoundPlayer pauseSound: self. ! Item was changed: + ----- Method: ThumbnailMorph>>step (in category 'stepping') ----- - ----- Method: ThumbnailMorph>>step (in category 'stepping and presenter') ----- step "Optimization: Don't redraw if we're viewing some kind of SketchMorph and its rotated Form hasn't changed." | viewee f | viewee := self actualViewee. viewee ifNil: [self stopStepping. ^ self]. viewee isSketchMorph ifTrue: [f := viewee rotatedForm. f == lastSketchForm ifTrue: [^ self]. "The optimization" lastSketchForm := f] ifFalse: [lastSketchForm := nil]. "Avoids subtle bug if sketchMorph removed and then put back in" self changed ! Item was changed: + ----- Method: ThumbnailMorph>>stepTime (in category 'stepping') ----- - ----- Method: ThumbnailMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "Adjust my step time to the time it takes drawing my referent" drawTime ifNil:[^ 250]. ^(objectToView updateThresholdForGraphicInViewerTab * drawTime) max: 250.! Item was changed: + ----- Method: TickIndicatorMorph>>stepAt: (in category 'stepping') ----- - ----- Method: TickIndicatorMorph>>stepAt: (in category 'stepping and presenter') ----- stepAt: nowTick | delta | self isTicking ifTrue: [(lastTick isNil or: [nowTick < lastTick]) ifTrue: [lastTick := nowTick]. delta := (nowTick - lastTick) // self stepTime. delta > 0 ifTrue: [index := index + delta. lastTick := nowTick. self changed]]! Item was changed: + ----- Method: TickIndicatorMorph>>stepTime (in category 'stepping') ----- - ----- Method: TickIndicatorMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^(stepTime ifNil:[125]) max: 50! Item was changed: + ----- Method: TickIndicatorMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: TickIndicatorMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^true! Item was changed: + ----- Method: TransitionMorph>>step (in category 'stepping') ----- - ----- Method: TransitionMorph>>step (in category 'stepping and presenter') ----- step (stepNumber := stepNumber + 1) <= nSteps ifTrue: [self changed] ifFalse: [self completeReplacement]! Item was changed: + ----- Method: TransitionMorph>>stepTime (in category 'stepping') ----- - ----- Method: TransitionMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ stepTime! Item was changed: + ----- Method: UpdatingRectangleMorph>>step (in category 'stepping') ----- - ----- Method: UpdatingRectangleMorph>>step (in category 'stepping and presenter') ----- step | s | super step. s := self readFromTarget. s = contents ifFalse: [self contents: s. self color: s] ! Item was changed: + ----- Method: UpdatingRectangleMorph>>stepTime (in category 'stepping') ----- - ----- Method: UpdatingRectangleMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 50! Item was changed: + ----- Method: WaveEditor>>step (in category 'stepping') ----- - ----- Method: WaveEditor>>step (in category 'stepping and presenter') ----- step keyboard soundPrototype: self makeLoopedSampledSound! Item was changed: + ----- Method: WebCamMorph>>nextFrame (in category 'stepping') ----- - ----- Method: WebCamMorph>>nextFrame (in category 'stepping and presenter') ----- nextFrame | frameCount | frameCount := CameraInterface getFrameForCamera: camNum into: displayForm bits. frameCount = 0 ifTrue: [self increaseCaptureDelay]. frameCount > 2 ifTrue: [self decreaseCaptureDelay]. framesSinceLastDisplay := framesSinceLastDisplay + frameCount! Item was changed: + ----- Method: WebCamMorph>>step (in category 'stepping') ----- - ----- Method: WebCamMorph>>step (in category 'stepping and presenter') ----- step camIsOn ifFalse:[self stopStepping]. self updateDisplay. ! Item was changed: + ----- Method: WebCamMorph>>stepTime (in category 'stepping') ----- - ----- Method: WebCamMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "Answer the desired time between steps in milliseconds" ^ captureDelayMs ! Item was changed: + ----- Method: WebCamMorph>>updateDisplay (in category 'stepping') ----- - ----- Method: WebCamMorph>>updateDisplay (in category 'stepping and presenter') ----- updateDisplay camIsOn ifTrue:[self nextFrame]. self updateFPS. self changed.! Item was changed: + ----- Method: WebCamMorph>>updateFPS (in category 'stepping') ----- - ----- Method: WebCamMorph>>updateFPS (in category 'stepping and presenter') ----- updateFPS | now mSecs | now := Time millisecondClockValue. mSecs := now - lastDisplayTime. (mSecs > 500 or: [mSecs < 0 "clock wrap-around"]) ifTrue: [ fps := (framesSinceLastDisplay * 1000) // mSecs. lastDisplayTime := now. framesSinceLastDisplay := 0].! Item was changed: + ----- Method: ZASMScriptMorph>>step (in category 'stepping') ----- - ----- Method: ZASMScriptMorph>>step (in category 'stepping and presenter') ----- step super step. somethingChanged ifFalse: [^self]. self fixup. ! Item was changed: + ----- Method: ZASMScriptMorph>>stepTime (in category 'stepping') ----- - ----- Method: ZASMScriptMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^500! Item was changed: + ----- Method: ZASMScriptMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: ZASMScriptMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^true! Item was changed: + ----- Method: ZoomAndScrollControllerMorph>>doProgrammedMoves (in category 'stepping') ----- - ----- Method: ZoomAndScrollControllerMorph>>doProgrammedMoves (in category 'stepping and presenter') ----- doProgrammedMoves | thisMove startPoint endPoint startZoom endZoom newScale newPoint fractionLeft | programmedMoves isEmptyOrNil ifTrue: [ ^programmedMoves := nil ]. thisMove := programmedMoves first. thisMove at: #pauseTime ifPresent: [ :ignore | ^self]. fractionLeft := self fractionLeftInMove: thisMove. fractionLeft ifNil: [^programmedMoves := programmedMoves allButFirst]. startPoint := thisMove at: #startPoint ifAbsentPut: [self cameraPoint]. endPoint := thisMove at: #endPoint ifAbsentPut: [self cameraPoint]. startZoom := thisMove at: #startZoom ifAbsentPut: [self cameraScale]. endZoom := thisMove at: #endZoom ifAbsentPut: [self cameraScale]. newScale := endZoom - (endZoom - startZoom * fractionLeft). newPoint := (endPoint - (endPoint - startPoint * fractionLeft)) "rounded". target changeScaleTo: newScale. target cameraPoint: newPoint. fractionLeft <= 0 ifTrue: [^programmedMoves := programmedMoves allButFirst]. ! Item was changed: + ----- Method: ZoomAndScrollControllerMorph>>step (in category 'stepping') ----- - ----- Method: ZoomAndScrollControllerMorph>>step (in category 'stepping and presenter') ----- step | delta halfDW shift | shift := false. (self valueOfProperty: #currentCameraVersion ifAbsent: [0]) = self currentCameraVersion ifFalse: [ self patchOldVersion1. self setProperty: #currentCameraVersion toValue: self currentCameraVersion. ]. super step. self doProgrammedMoves. (currentKeyDown ifNil: [#()]) do: [ :each | | action | action := upDownCodes at: each ifAbsent: [shift := true]. action == #in ifTrue: [ target scaleImageBy: -10. ]. action == #out ifTrue: [ target scaleImageBy: 10. ]. action == #up ifTrue: [ target panImageBy: 0@ -20. ]. action == #down ifTrue: [ target panImageBy: 0@20. ]. action == #left ifTrue: [ target panImageBy: -20@0. ]. action == #right ifTrue: [ target panImageBy: 20@0. ]. ]. mouseMovePoint ifNil: [^self]. mouseDownPoint ifNil: [^self]. target ifNil: [^self]. halfDW := self deadZoneWidth // 2. halfDW := self deadZoneWidth // 2. delta := mouseMovePoint - mouseDownPoint. delta x abs <= halfDW ifTrue: [delta := 0@delta y]. delta y abs <= halfDW ifTrue: [delta := delta x@0]. shift ifTrue:[^target scaleImageBy: delta x]. target panImageBy: delta x @ delta y ! Item was changed: + ----- Method: ZoomAndScrollControllerMorph>>stepTime (in category 'stepping') ----- - ----- Method: ZoomAndScrollControllerMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^10 ! Item was changed: + ----- Method: ZoomAndScrollMorph>>step (in category 'stepping') ----- - ----- Method: ZoomAndScrollMorph>>step (in category 'stepping and presenter') ----- step | innerPasteUp overlap | innerPasteUp := self myTransformMorph firstSubmorph. overlap := (innerPasteUp submorphs inject: 0@0 into: [ :min :each | min min: each position]) rounded. overlap = (0@0) ifFalse: [ innerPasteUp submorphs do: [ :each | each position: each position - overlap]. innerPasteUp layoutChanged. ]. ! Item was changed: + ----- Method: ZoomAndScrollMorph>>stepTime (in category 'stepping') ----- - ----- Method: ZoomAndScrollMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^10 "ms"!

1 0

The Trunk: Morphic-dtl.2137.mcz
by commits＠source.squeak.org 05 Nov '23

05 Nov '23

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.2137.mcz ==================== Summary ==================== Name: Morphic-dtl.2137 Author: dtl Time: 4 November 2023, 9:26:31.460718 pm UUID: fc3f32c7-23f7-4e3c-8644-cb753d37195f Ancestors: Morphic-tpr.2136 Method category cleanups based on Marcel's unload-etoys.33.cs Etoys removal script. Reference squeak-dev 29-Aug-2023 Let's discuss the future of Etoys in Squeak 6.1 (and beyond) =============== Diff against Morphic-tpr.2136 =============== Item was changed: + ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category 'stepping') ----- - ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category 'stepping and presenter') ----- addCustomMenuItems: aMenu hand: aHand super addCustomMenuItems: aMenu hand: aHand. aMenu addUpdating: #steppingString action: #toggleStepping! Item was changed: + ----- Method: AnimatedImageMorph>>setStepping: (in category 'stepping') ----- - ----- Method: AnimatedImageMorph>>setStepping: (in category 'stepping and presenter') ----- setStepping: aBoolean self wantsSteps ifFalse:[^false]. aBoolean ifTrue:[self startStepping] ifFalse:[self stopStepping].! Item was changed: + ----- Method: AnimatedImageMorph>>step (in category 'stepping') ----- - ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step | disposal canvas current | "If we are about to go beyond the number of images, then loop back to the first one" ((imageIndex) >= images size) ifTrue: [ imageIndex := 1 ] ifFalse: [ imageIndex := imageIndex + 1 ]. current := images at: imageIndex. "If this is the first image in the sequence, we don't have a previous disposal to look at. So just paint the image -- equiv to #leaveCurrent" canvas := image getCanvas. (imageIndex == 1) ifTrue: [ image getCanvas drawImage: current at: current offset ] ifFalse: [ "Otherwise, we need to look at the previous image's disposal method to see if we should restore the background" disposal := disposals at: imageIndex - 1. (disposal == #restoreBackground) ifTrue: [ "canvas fillRectangle: self bounds color: self color" canvas := (Form extent: canvas extent depth: 32) getCanvas. canvas fillRectangle: ((current offset) corner: (current offset + current extent)) color: self color. canvas drawImage: current at: current offset ] ifFalse: [ canvas paintImage: current at: current offset ] ]. self image: canvas form. self stepTime: (delays at: imageIndex)! Item was changed: + ----- Method: AnimatedImageMorph>>stepTime (in category 'stepping') ----- - ----- Method: AnimatedImageMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^stepTime ifNil: [super stepTime]! Item was changed: + ----- Method: AnimatedImageMorph>>stepTime: (in category 'stepping') ----- - ----- Method: AnimatedImageMorph>>stepTime: (in category 'stepping and presenter') ----- stepTime: anInteger stepTime := anInteger! Item was changed: + ----- Method: AnimatedImageMorph>>steppingString (in category 'stepping') ----- - ----- Method: AnimatedImageMorph>>steppingString (in category 'stepping and presenter') ----- steppingString ^ (self isStepping ifTrue: ['<on>'] ifFalse: ['<off>']), 'stepping' translated! Item was changed: + ----- Method: AnimatedImageMorph>>toggleStepping (in category 'stepping') ----- - ----- Method: AnimatedImageMorph>>toggleStepping (in category 'stepping and presenter') ----- toggleStepping self wantsSteps ifTrue: [ self isStepping ifFalse: [self startStepping] ifTrue: [self stopStepping]]! Item was changed: + ----- Method: AnimatedImageMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: AnimatedImageMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^(images size > 1) ! Item was changed: + ----- Method: BalloonMorph>>step (in category 'stepping') ----- - ----- Method: BalloonMorph>>step (in category 'stepping and presenter') ----- step "Move with target." target ifNotNil: [self position: target position + offsetFromTarget]. ! Item was changed: + ----- Method: BalloonMorph>>stepTime (in category 'stepping') ----- - ----- Method: BalloonMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 0 "every cycle"! Item was changed: + ----- Method: ClockMorph>>step (in category 'stepping') ----- - ----- Method: ClockMorph>>step (in category 'stepping and presenter') ----- step | time | super step. time := String streamContents: [ :stream | | t | t := Time now. t seconds: t asSeconds. "ignore nanoSeconds" t print24: (show24hr == true) showSeconds: (showSeconds == true) on: stream]. self contents: time! Item was changed: + ----- Method: ClockMorph>>stepTime (in category 'stepping') ----- - ----- Method: ClockMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "Answer the desired time between steps in milliseconds." ^999! Item was changed: + ----- Method: ColorPickerMorph>>step (in category 'stepping') ----- - ----- Method: ColorPickerMorph>>step (in category 'stepping and presenter') ----- step sourceHand ifNotNil: [self pickColorAt: sourceHand position]. ! Item was changed: + ----- Method: ColorPickerMorph>>stepTime (in category 'stepping') ----- - ----- Method: ColorPickerMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 50 ! Item was changed: + ----- Method: DialogWindow>>step (in category 'stepping') ----- - ----- Method: DialogWindow>>step (in category 'stepping and presenter') ----- step timeout ifNil: [^self]. timeout = 0 ifTrue: [ self stopStepping. selectedButton performAction] ifFalse: [ selectedButton label: ('{1} [{2}]' format: { selectedButton valueOfProperty: #normalLabel. timeout}). timeout := timeout - 1]! Item was changed: + ----- Method: DialogWindow>>stepTime (in category 'stepping') ----- - ----- Method: DialogWindow>>stepTime (in category 'stepping and presenter') ----- stepTime ^1000! Item was changed: + ----- Method: DialogWindow>>stopAutoTrigger (in category 'stepping') ----- - ----- Method: DialogWindow>>stopAutoTrigger (in category 'stepping and presenter') ----- stopAutoTrigger timeout ifNil: [^self]. timeout := nil. self stopStepping. selectedButton label: (selectedButton valueOfProperty: #normalLabel). ! Item was changed: + ----- Method: DoCommandOnceMorph>>step (in category 'stepping') ----- - ----- Method: DoCommandOnceMorph>>step (in category 'stepping and presenter') ----- step | goForIt | actionBlock ifNil: [^self stopStepping]. goForIt := actionBlock. actionBlock := nil. goForIt on: ProgressTargetRequestNotification do: [ :ex | ex resume: innerArea]. "in case a save/load progress display needs a home" ! Item was changed: + ----- Method: DoCommandOnceMorph>>stepTime (in category 'stepping') ----- - ----- Method: DoCommandOnceMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^1 ! Item was changed: + ----- Method: DoCommandOnceMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: DoCommandOnceMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^actionBlock notNil ! Item was changed: + ----- Method: HandleMorph>>startStepping (in category 'stepping') ----- - ----- Method: HandleMorph>>startStepping (in category 'stepping and presenter') ----- startStepping "Make the receiver the keyboard focus for editing" super startStepping. "owner isHandMorph ifTrue:[owner newKeyboardFocus: self]." self flag: #arNote. "make me #handleKeyboard:"! Item was changed: + ----- Method: HandleMorph>>step (in category 'stepping') ----- - ----- Method: HandleMorph>>step (in category 'stepping and presenter') ----- step pointBlock value: self center! Item was changed: + ----- Method: HandleMorph>>stepTime (in category 'stepping') ----- - ----- Method: HandleMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "Update every hundredth of a second." ^ 10 ! Item was changed: + ----- Method: JoystickMorph>>step (in category 'stepping') ----- - ----- Method: JoystickMorph>>step (in category 'stepping and presenter') ----- step "Track the real joystick whose index is realJoystickIndex." "Details: a. if realJoystickIndex is nil we're not tracking a joystick b. [-joyMax..joyMax] is nominal range of joystick in both X and Y c. [-threshold..threshold] is considered 0 to compensate for poor joystick centering" | threshold joyMax joyPt joyBtn m mCenter r scaledPt | super step. "Run ticking user-written scripts if any" realJoystickIndex ifNil: [^ self]. threshold := 30. joyMax := 350. joyPt := Sensor joystickXY: realJoystickIndex. joyBtn := Sensor joystickButtons: realJoystickIndex. button1 := (joyBtn bitAnd: 1) > 0. button2 := (joyBtn bitAnd: 2) > 0. joyPt x abs < threshold ifTrue: [joyPt := 0@joyPt y]. joyPt y abs < threshold ifTrue: [joyPt := joyPt x@0]. lastRealJoystickValue = joyPt ifTrue: [^ self]. lastRealJoystickValue := joyPt. m := handleMorph. mCenter := m center. r := m owner innerBounds insetBy: ((mCenter - m fullBounds origin) corner: (m fullBounds corner - mCenter)). scaledPt := r center + ((r extent * joyPt) / (joyMax * 2)) truncated. m position: (scaledPt adhereTo: r) - (m extent // 2). ! Item was changed: + ----- Method: JoystickMorph>>stepTime (in category 'stepping') ----- - ----- Method: JoystickMorph>>stepTime (in category 'stepping and presenter') ----- stepTime "Provide for as-fast-as-possible stepping in the case of a real joystick" ^ realJoystickIndex ifNotNil: [0] "fast as we can to track actual joystick" ifNil: [super stepTime]! Item was changed: + ----- Method: Morph>>arrangeToStartStepping (in category 'stepping') ----- - ----- Method: Morph>>arrangeToStartStepping (in category 'stepping and presenter') ----- arrangeToStartStepping "Arrange to start getting sent the 'step' message, but don't do that initial #step call that startStepping does" self arrangeToStartSteppingIn: self world! Item was changed: + ----- Method: Morph>>arrangeToStartSteppingIn: (in category 'stepping') ----- - ----- Method: Morph>>arrangeToStartSteppingIn: (in category 'stepping and presenter') ----- arrangeToStartSteppingIn: aWorld "Start getting sent the 'step' message in aWorld. Like startSteppingIn:, but without the initial one to get started'" aWorld ifNotNil: [aWorld startStepping: self. self changed]! Item was changed: + ----- Method: Morph>>assureExternalName (in category 'naming') ----- - ----- Method: Morph>>assureExternalName (in category 'player') ----- assureExternalName | aName | ^ (aName := self knownName) ifNil: [self setNameTo: (aName := self externalName). ^ aName]! Item was changed: + ----- Method: Morph>>externalName (in category 'naming') ----- - ----- Method: Morph>>externalName (in category 'viewer') ----- externalName ^ self knownName ifNil: [self innocuousName]! Item was changed: + ----- Method: Morph>>isStepping (in category 'stepping') ----- - ----- Method: Morph>>isStepping (in category 'stepping and presenter') ----- isStepping "Return true if the receiver is currently stepping in its world" | aWorld | ^ (aWorld := self world) ifNil: [false] ifNotNil: [aWorld isStepping: self]! Item was changed: + ----- Method: Morph>>isSteppingSelector: (in category 'stepping') ----- - ----- Method: Morph>>isSteppingSelector: (in category 'stepping and presenter') ----- isSteppingSelector: aSelector "Return true if the receiver is currently stepping in its world" | aWorld | ^ (aWorld := self world) ifNil: [false] ifNotNil: [aWorld isStepping: self selector: aSelector]! Item was changed: + ----- Method: Morph>>knownName (in category 'naming') ----- - ----- Method: Morph>>knownName (in category 'testing') ----- knownName "answer a name by which the receiver is known, or nil if none" ^ extension ifNotNil: [extension externalName]! Item was changed: + ----- Method: Morph>>okayToDuplicate (in category 'copying') ----- - ----- Method: Morph>>okayToDuplicate (in category 'player') ----- okayToDuplicate "Formerly this protocol was used to guard against awkward situations when there were anonymous scripts in the etoy system. Nowadays we just always allow duplication" ^ true! Item was changed: + ----- Method: Morph>>playSoundNamed: (in category 'user interface') ----- - ----- Method: Morph>>playSoundNamed: (in category 'player commands') ----- playSoundNamed: soundName "Play the sound with the given name. Does nothing if this image lacks sound playing facilities." SoundService default playSoundNamed: soundName asString! Item was changed: + ----- Method: Morph>>start (in category 'stepping') ----- - ----- Method: Morph>>start (in category 'stepping and presenter') ----- start "Start running my script. For ordinary morphs, this means start stepping." self startStepping. ! Item was changed: + ----- Method: Morph>>startStepping (in category 'stepping') ----- - ----- Method: Morph>>startStepping (in category 'stepping and presenter') ----- startStepping "Start getting sent the 'step' message." self startStepping: #stepAt: at: Time millisecondClockValue arguments: nil stepTime: nil.! Item was changed: + ----- Method: Morph>>startStepping:at:arguments:stepTime: (in category 'stepping') ----- - ----- Method: Morph>>startStepping:at:arguments:stepTime: (in category 'stepping and presenter') ----- startStepping: aSelector at: scheduledTime arguments: args stepTime: stepTime "Start stepping the receiver" | w | w := self world. w ifNotNil: [ w startStepping: self at: scheduledTime selector: aSelector arguments: args stepTime: stepTime. self changed].! Item was changed: + ----- Method: Morph>>startSteppingIn: (in category 'stepping') ----- - ----- Method: Morph>>startSteppingIn: (in category 'stepping and presenter') ----- startSteppingIn: aWorld "Start getting sent the 'step' message in aWorld" self step. "one to get started!!" aWorld ifNotNil: [aWorld startStepping: self]. self changed! Item was changed: + ----- Method: Morph>>startSteppingSelector: (in category 'stepping') ----- - ----- Method: Morph>>startSteppingSelector: (in category 'stepping and presenter') ----- startSteppingSelector: aSelector "Start getting sent the 'step' message." self startStepping: aSelector at: Time millisecondClockValue arguments: nil stepTime: nil.! Item was changed: + ----- Method: Morph>>step (in category 'stepping') ----- - ----- Method: Morph>>step (in category 'stepping and presenter') ----- step "Do some periodic activity. Use startStepping/stopStepping to start and stop getting sent this message. The time between steps is specified by this morph's answer to the stepTime message. The generic version dispatches control to the player, if any. The nasty circumlocation about owner's transformation is necessitated by the flexing problem that the player remains in the properties dictionary both of the flex and the real morph. In the current architecture, only the top renderer's pointer to the player should actually be honored for the purpose of firing." ! Item was changed: + ----- Method: Morph>>stepAt: (in category 'stepping') ----- - ----- Method: Morph>>stepAt: (in category 'stepping and presenter') ----- stepAt: millisecondClockValue "Do some periodic activity. Use startStepping/stopStepping to start and stop getting sent this message. The time between steps is specified by this morph's answer to the stepTime message. The millisecondClockValue parameter gives the value of the millisecond clock at the moment of dispatch. Default is to dispatch to the parameterless step method for the morph, but this protocol makes it possible for some morphs to do differing things depending on the clock value" self player ifNotNil:[:p| p stepAt: millisecondClockValue]. self step ! Item was changed: + ----- Method: Morph>>stepTime (in category 'stepping') ----- - ----- Method: Morph>>stepTime (in category 'stepping and presenter') ----- 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>>stop (in category 'stepping') ----- - ----- Method: Morph>>stop (in category 'stepping and presenter') ----- stop "Stop running my script. For ordinary morphs, this means stop stepping." self stopStepping. ! Item was changed: + ----- Method: Morph>>stopStepping (in category 'stepping') ----- - ----- Method: Morph>>stopStepping (in category 'stepping and presenter') ----- stopStepping "Stop getting sent the 'step' message." | w | w := self world. w ifNotNil: [w stopStepping: self]. ! Item was changed: + ----- Method: Morph>>stopSteppingSelector: (in category 'stepping') ----- - ----- Method: Morph>>stopSteppingSelector: (in category 'stepping and presenter') ----- stopSteppingSelector: aSelector "Stop getting sent the given message." | w | w := self world. w ifNotNil: [w stopStepping: self selector: aSelector]. ! Item was changed: + ----- Method: Morph>>stopSteppingSelfAndSubmorphs (in category 'stepping') ----- - ----- Method: Morph>>stopSteppingSelfAndSubmorphs (in category 'stepping and presenter') ----- stopSteppingSelfAndSubmorphs self allMorphsDo: [:m | m stopStepping] ! Item was changed: + ----- Method: Morph>>wantsRecolorHandle (in category 'halos and balloon help') ----- - ----- Method: Morph>>wantsRecolorHandle (in category 'e-toy support') ----- wantsRecolorHandle "Answer whether the receiver would like a recoloring halo handle to be put up. Since this handle also presently affords access to the property-sheet, it is presently always allowed, even though SketchMorphs don't like regular recoloring" ^ true ! Item was changed: + ----- Method: Morph>>wantsSteps (in category 'stepping') ----- - ----- Method: Morph>>wantsSteps (in category 'stepping and presenter') ----- 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: Morph>>wantsToBeTopmost (in category 'submorphs - layers') ----- - ----- Method: Morph>>wantsToBeTopmost (in category 'e-toy support') ----- wantsToBeTopmost "Answer if the receiver want to be one of the topmost objects in its owner" ^ self isFlapOrTab! Item was changed: + ----- Method: MovieMorph>>step (in category 'stepping') ----- - ----- Method: MovieMorph>>step (in category 'stepping and presenter') ----- step playMode = #stop ifTrue: [^ self]. dwellCount > 0 ifTrue: [ dwellCount := dwellCount - 1. ^ self]. currentFrameIndex < frameList size ifTrue: [^ self setFrame: currentFrameIndex + 1]. playMode = #loop ifTrue: [self setFrame: 1] ifFalse: [playMode := #stop]. ! Item was changed: + ----- Method: MovieMorph>>stepTime (in category 'stepping') ----- - ----- Method: MovieMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ msecsPerFrame ! Item was changed: + ----- Method: NewHandleMorph>>step (in category 'stepping') ----- - ----- Method: NewHandleMorph>>step (in category 'stepping and presenter') ----- step | eventSource | eventSource := self sensorMode ifTrue: [ Sensor ] ifFalse: [ hand lastEvent ]. eventSource anyButtonPressed ifTrue: [waitingForClickInside := false. self position: eventSource cursorPoint - (self extent // 2). pointBlock value: self center] ifFalse: [waitingForClickInside ifTrue: [(self containsPoint: eventSource cursorPoint) ifFalse: ["mouse wandered out before clicked" ^ self delete]] ifFalse: [lastPointBlock value: self center. ^ self delete]]! Item was changed: + ----- Method: PasteUpMorph>>bringTopmostsToFront (in category 'geometry') ----- - ----- Method: PasteUpMorph>>bringTopmostsToFront (in category 'flaps') ----- bringTopmostsToFront submorphs select:[:m| m wantsToBeTopmost] thenDo:[:m| self addMorphInLayer: m].! Item was changed: + ----- Method: PasteUpMorph>>defaultNameStemForInstances (in category 'naming') ----- - ----- Method: PasteUpMorph>>defaultNameStemForInstances (in category 'viewer') ----- defaultNameStemForInstances "Answer a basis for names of default instances of the receiver" ^ self isWorldMorph ifFalse: [super defaultNameStemForInstances] ifTrue: ['world' translatedNoop]! Item was changed: + ----- Method: PasteUpMorph>>step (in category 'stepping') ----- - ----- Method: PasteUpMorph>>step (in category 'stepping and presenter') ----- step (self isWorldMorph and: [owner notNil]) ifTrue: [ ^self runLocalStepMethods ]. super step! Item was changed: + ----- Method: PasteUpMorph>>stepTime (in category 'stepping') ----- - ----- Method: PasteUpMorph>>stepTime (in category 'stepping and presenter') ----- stepTime (self isWorldMorph and: [owner notNil]) ifTrue: [ ^1 ]. ^super stepTime! Item was changed: + ----- Method: PolygonMorph>>step (in category 'stepping') ----- - ----- Method: PolygonMorph>>step (in category 'stepping and presenter') ----- step borderDashSpec ifNil: [^super step]. borderDashSpec size < 5 ifTrue: [^super step]. "Only for dashed lines with creep" borderDashSpec at: 4 put: (borderDashSpec fourth) + borderDashSpec fifth. self changed. ^super step! Item was changed: + ----- Method: PolygonMorph>>stepTime (in category 'stepping') ----- - ----- Method: PolygonMorph>>stepTime (in category 'stepping and presenter') ----- 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') ----- - ----- Method: PolygonMorph>>wantsSteps (in category 'stepping and presenter') ----- 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>>step (in category 'stepping') ----- - ----- Method: ProjectViewMorph>>step (in category 'stepping and presenter') ----- step | cmd | "Check for a command that could not be executed in my subproject. Once it is done, remove the trigger. If this is too slow, make armsLengthCmd an inst var." self seeIfNameChanged. cmd := self valueOfProperty: #armsLengthCmd. cmd ifNil: [^ super step]. self removeProperty: #armsLengthCmd. project perform: cmd. project enter.! Item was changed: + ----- Method: ProjectViewMorph>>stepTime (in category 'stepping') ----- - ----- Method: ProjectViewMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^1000! Item was changed: + ----- Method: ScrollBar>>step (in category 'stepping') ----- - ----- Method: ScrollBar>>step (in category 'stepping and presenter') ----- step | action | action := self scrollBarAction. action ifNotNil:[self perform: action].! Item was changed: + ----- Method: ScrollBar>>stepTime (in category 'stepping') ----- - ----- Method: ScrollBar>>stepTime (in category 'stepping and presenter') ----- stepTime ^ currentScrollDelay ifNil: [300]! Item was changed: + ----- Method: ScrollBar>>wantsSteps (in category 'stepping') ----- - ----- Method: ScrollBar>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^self scrollBarAction notNil! Item was changed: + ----- Method: SelectedObjectThumbnail>>step (in category 'stepping') ----- - ----- Method: SelectedObjectThumbnail>>step (in category 'stepping and presenter') ----- step | current | current := self selectedObject. self setBalloonText: (current isNil ifTrue: [noSelectedBalloonText] ifFalse: [current externalName]). "" self makeThumbnailFrom: current! Item was changed: + ----- Method: SelectedObjectThumbnail>>stepTime (in category 'stepping') ----- - ----- Method: SelectedObjectThumbnail>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 125! Item was changed: + ----- Method: SketchMorph>>baseGraphic (in category 'support') ----- - ----- Method: SketchMorph>>baseGraphic (in category 'e-toy support') ----- baseGraphic "Answer my base graphic" ^ self valueOfProperty: #baseGraphic ifAbsent: [self setProperty: #baseGraphic toValue: originalForm. ^ originalForm]! Item was changed: + ----- Method: SketchMorph>>baseGraphic: (in category 'support') ----- - ----- Method: SketchMorph>>baseGraphic: (in category 'e-toy support') ----- baseGraphic: aForm "Remember the given form as the receiver's base graphic" ^ self setProperty: #baseGraphic toValue: aForm! Item was changed: + ----- Method: SketchMorph>>flipHorizontal (in category 'support') ----- - ----- Method: SketchMorph>>flipHorizontal (in category 'e-toy support') ----- flipHorizontal | r | r := self rotationCenter. self left: self left - (1.0 - (2 * r x) * self width). self form: (self form flipBy: #horizontal centerAt: self form center). self rotationCenter: (1 - r x) @ (r y).! Item was changed: + ----- Method: SketchMorph>>flipVertical (in category 'support') ----- - ----- Method: SketchMorph>>flipVertical (in category 'e-toy support') ----- flipVertical | r | r := self rotationCenter. self top: self top - (1.0 - (2 * r y) * self height). self form: (self form flipBy: #vertical centerAt: self form center). self rotationCenter: r x @ (1 - r y).! Item was changed: + ----- Method: SketchMorph>>forwardDirection: (in category 'rotate scale and flex') ----- - ----- Method: SketchMorph>>forwardDirection: (in category 'geometry eToy') ----- forwardDirection: degrees "If not rotating normally, update my rotatedForm" super forwardDirection: degrees. rotationStyle == #normal ifFalse:[self layoutChanged].! Item was changed: + ----- Method: SketchMorph>>rotationStyle (in category 'support') ----- - ----- Method: SketchMorph>>rotationStyle (in category 'e-toy support') ----- rotationStyle ^ rotationStyle ! Item was changed: + ----- Method: SketchMorph>>rotationStyle: (in category 'support') ----- - ----- Method: SketchMorph>>rotationStyle: (in category 'e-toy support') ----- rotationStyle: aSymbol "Set my rotation style to #normal, #leftRight, #upDown, or #none. Styles mean: #normal -- continuous 360 degree rotation #leftRight -- quantize angle to left or right facing #upDown -- quantize angle to up or down facing #none -- do not rotate Because my rendering code flips the form (see generateRotatedForm) we 'pre-flip' it here to preserve the same visual appearance. " | wasFlippedX wasFlippedY isFlippedX isFlippedY | wasFlippedX := rotationStyle == #leftRight and: [ self heading asSmallAngleDegrees < 0.0 ]. wasFlippedY := rotationStyle == #upDown and: [ self heading asSmallAngleDegrees abs > 90.0 ]. rotationStyle := aSymbol. isFlippedX := rotationStyle == #leftRight and: [ self heading asSmallAngleDegrees < 0.0 ]. isFlippedY := rotationStyle == #upDown and: [ self heading asSmallAngleDegrees abs > 90.0 ]. wasFlippedX == isFlippedX ifFalse: [self form: (self form flipBy: #horizontal centerAt: self form center)]. wasFlippedY == isFlippedY ifFalse: [self form: (self form flipBy: #vertical centerAt: self form center)]. self layoutChanged. ! Item was changed: + ----- Method: SketchMorph>>wantsRecolorHandle (in category 'support') ----- - ----- Method: SketchMorph>>wantsRecolorHandle (in category 'e-toy support') ----- wantsRecolorHandle "Answer whether the receiver would like a recolor handle to be put up for it. We'd want to disable this but for the moment that would cut off access to the button part of the properties sheet. So this remains a loose end." ^ false! Item was changed: + ----- Method: StepMessage>>stepTime (in category 'stepping') ----- - ----- Method: StepMessage>>stepTime (in category 'stepping and presenter') ----- 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>>step (in category 'stepping') ----- - ----- Method: ThreePhaseButtonMorph>>step (in category 'stepping and presenter') ----- step (self hasProperty: #doesButtonAction) ifTrue:[ self doButtonAction. self setProperty: #didButtonAction toValue: true. ].! Item was changed: + ----- Method: ThreePhaseButtonMorph>>stepTime (in category 'stepping') ----- - ----- Method: ThreePhaseButtonMorph>>stepTime (in category 'stepping and presenter') ----- stepTime (self hasProperty: #doesButtonAction) ifTrue:[^1]. ^super stepTime! Item was changed: + ----- Method: ThreePhaseButtonMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: ThreePhaseButtonMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^(self hasProperty: #doesButtonAction) or:[super wantsSteps]! Item was changed: + ----- Method: TransformationMorph>>stepTime (in category 'stepping') ----- - ----- Method: TransformationMorph>>stepTime (in category 'stepping and presenter') ----- 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>>arrangeToStartSteppingIn: (in category 'stepping') ----- - ----- Method: UpdatingMenuItemMorph>>arrangeToStartSteppingIn: (in category 'stepping and presenter') ----- arrangeToStartSteppingIn: aWorld super arrangeToStartSteppingIn: aWorld. self updateContents.! Item was changed: + ----- Method: UpdatingMenuItemMorph>>step (in category 'stepping') ----- - ----- Method: UpdatingMenuItemMorph>>step (in category 'stepping and presenter') ----- step super step. self updateContents.! Item was changed: + ----- Method: UpdatingMenuItemMorph>>stepTime (in category 'stepping') ----- - ----- Method: UpdatingMenuItemMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ 1200! Item was changed: + ----- Method: UpdatingSimpleButtonMorph>>step (in category 'stepping') ----- - ----- Method: UpdatingSimpleButtonMorph>>step (in category 'stepping and presenter') ----- step "If appropriate update the receiver's label" | newString | super step. wordingProvider ifNotNil: [newString := wordingProvider perform: wordingSelector. newString = self label ifFalse: [self labelString: newString; changed]]! Item was changed: + ----- Method: UpdatingSimpleButtonMorph>>stepTime (in category 'stepping') ----- - ----- Method: UpdatingSimpleButtonMorph>>stepTime (in category 'stepping and presenter') ----- 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') ----- - ----- Method: UpdatingSimpleButtonMorph>>wantsSteps (in category 'stepping and presenter') ----- 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>>step (in category 'stepping') ----- - ----- Method: UpdatingStringMorph>>step (in category 'stepping and presenter') ----- step | s | super step. hasFocus ifFalse: ["update contents, but only if user isn't editing this string" s := self readFromTarget. s = contents ifFalse: [self updateContentsFrom: s]] ! Item was changed: + ----- Method: UpdatingStringMorph>>stepTime (in category 'stepping') ----- - ----- Method: UpdatingStringMorph>>stepTime (in category 'stepping and presenter') ----- stepTime ^ stepTime ifNil: [200] ! Item was changed: + ----- Method: UpdatingThreePhaseButtonMorph>>step (in category 'stepping') ----- - ----- Method: UpdatingThreePhaseButtonMorph>>step (in category 'stepping and presenter') ----- step | newBoolean | super step. state == #pressed ifTrue: [^ self]. newBoolean := target perform: getSelector. newBoolean == self isOn ifFalse: [self state: (newBoolean == true ifTrue: [#on] ifFalse: [#off])]! Item was changed: + ----- Method: UpdatingThreePhaseButtonMorph>>wantsSteps (in category 'stepping') ----- - ----- Method: UpdatingThreePhaseButtonMorph>>wantsSteps (in category 'stepping and presenter') ----- wantsSteps ^ true!

1 0

The Trunk: Kernel-dtl.1531.mcz
by commits＠source.squeak.org 05 Nov '23

05 Nov '23

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1531.mcz ==================== Summary ==================== Name: Kernel-dtl.1531 Author: dtl Time: 4 November 2023, 9:25:54.48388 pm UUID: 374b5200-d152-41f1-9b45-ab4aec154e77 Ancestors: Kernel-tpr.1530 Method category cleanups based on Marcel's unload-etoys.33.cs Etoys removal script. Reference squeak-dev 29-Aug-2023 Let's discuss the future of Etoys in Squeak 6.1 (and beyond) =============== Diff against Kernel-tpr.1530 =============== Item was changed: + ----- Method: Object>>haltIfNil (in category 'debugging-haltOnce') ----- - ----- Method: Object>>haltIfNil (in category 'testing') ----- haltIfNil!

1 0

The Trunk: EToys-dtl.505.mcz
by commits＠source.squeak.org 05 Nov '23

05 Nov '23

David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.505.mcz ==================== Summary ==================== Name: EToys-dtl.505 Author: dtl Time: 4 November 2023, 9:25:22.422109 pm UUID: fefadd9f-dd49-4f69-9c5e-b006efb47f7a Ancestors: EToys-dtl.504 Method category cleanups based on Marcel's unload-etoys.33.cs Etoys removal script. Reference squeak-dev 29-Aug-2023 Let's discuss the future of Etoys in Squeak 6.1 (and beyond) =============== Diff against EToys-mt.503 =============== Item was changed: SystemOrganization addCategory: #'Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-CustomEvents'! SystemOrganization addCategory: #'Etoys-Experimental'! SystemOrganization addCategory: #'Etoys-OLPC-Display'! SystemOrganization addCategory: #'Etoys-Outliner'! SystemOrganization addCategory: #'Etoys-Protocols'! SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'! SystemOrganization addCategory: #'Etoys-ReleaseBuilder'! SystemOrganization addCategory: #'Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-EToys-Kedama'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Buttons'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Calendar'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Debugger'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Help'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Input'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Scripting Tiles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-SpeechBubbles'! SystemOrganization addCategory: #'Etoys-Squeakland-Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Text'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Intersection'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Simplification'! SystemOrganization addCategory: #'Etoys-Squeakland-Graphics-Tools-Triangulation'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Basic'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Books'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Components'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Demo'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Experimental'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Games-Chess960'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-GeeMail'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Mentoring'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Navigators'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PDA'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-PartsBin'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Windows'! SystemOrganization addCategory: #'Etoys-Squeakland-Morphic-Worlds'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-AdditionalMorphs'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Charts'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Postscript Filters'! SystemOrganization addCategory: #'Etoys-Squeakland-MorphicExtras-Widgets'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Formatter'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Forms'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Parser Entities'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-HTML-Tokenizer'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-MIME'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-TelNet WordNet'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-UI'! SystemOrganization addCategory: #'Etoys-Squeakland-Network-Url'! SystemOrganization addCategory: #'Etoys-Squeakland-SISS-Serialization'! SystemOrganization addCategory: #'Etoys-Squeakland-ST80-Morphic'! SystemOrganization addCategory: #'Etoys-Squeakland-SUnit'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Interface'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Ogg'! SystemOrganization addCategory: #'Etoys-Squeakland-Sound-Scores'! SystemOrganization addCategory: #'Etoys-Squeakland-Sugar'! SystemOrganization addCategory: #'Etoys-Squeakland-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Clipboard-Extended'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Compiler'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Exceptions Kernel'! SystemOrganization addCategory: #'Etoys-Squeakland-System-Support'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Changes'! SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Explorer'! - SystemOrganization addCategory: #'Etoys-Squeakland-Tools-Process Browser'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ObjectVectors'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTree-AttributeDefinition'! SystemOrganization addCategory: #'Etoys-Squeakland-Tweak-Kedama-ParseTreeTransformer'! SystemOrganization addCategory: #'Etoys-Stacks'! SystemOrganization addCategory: #'Etoys-StarSqueak'! SystemOrganization addCategory: #'Etoys-Support'! SystemOrganization addCategory: #'Etoys-Tests'! SystemOrganization addCategory: #'Etoys-Tile Scriptors'! SystemOrganization addCategory: #'Etoys-UserInterfaceTheme'! SystemOrganization addCategory: #'Etoys-Widgets'! SystemOrganization addCategory: #'Etoys-Help'! Item was changed: + ----- Method: ChessMorph>>step (in category 'stepping') ----- - ----- Method: ChessMorph>>step (in category 'stepping and presenter') ----- step | move | board searchAgent isThinking ifTrue:[ move := board searchAgent thinkStep. move ifNotNil:[ animateMove := true. board movePieceFrom: move sourceSquare to: move destinationSquare]. ] ifFalse:[ autoPlay ifTrue:[board searchAgent startThinking]. ].! Item was removed: - StandardSystemController subclass: #DeferredActionStandardSystemController - instanceVariableNames: 'queue' - classVariableNames: '' - poolDictionaries: '' - category: 'Etoys-Squeakland-Tools-Process Browser'! - - !DeferredActionStandardSystemController commentStamp: '<historical>' prior: 0! - This is a StandardSystemController that can queue up objects to be evaluated before its control loop.! Item was removed: - ----- Method: DeferredActionStandardSystemController>>addDeferredUIMessage: (in category 'as yet unclassified') ----- - addDeferredUIMessage: valuableObject - queue nextPut: valuableObject! Item was removed: - ----- Method: DeferredActionStandardSystemController>>controlActivity (in category 'as yet unclassified') ----- - controlActivity - [queue isEmpty] - whileFalse: [queue next value]. - ^super controlActivity! Item was removed: - ----- Method: DeferredActionStandardSystemController>>initialize (in category 'as yet unclassified') ----- - initialize - super initialize. - queue := SharedQueue new.! Item was changed: + ----- Method: ImageMorphWithSpotlight>>step (in category 'stepping') ----- - ----- Method: ImageMorphWithSpotlight>>step (in category 'stepping and presenter') ----- step | cp | ((self bounds expandBy: spotBuffer extent // 2) containsPoint: (cp := self cursorPoint)) ifTrue: [(cp - (spotBuffer extent // 2)) = spotBuffer offset ifTrue: [^ self]. "No change" "Cursor has moved where its spotShape is visible" spotOn := true. self spotChanged. spotBuffer offset: cp - (spotBuffer extent // 2). self spotChanged. (BitBlt current toForm: spotBuffer) "clear the buffer" fill: spotBuffer boundingBox fillColor: (Bitmap with: 0) rule: Form over; "Clip anything outside the base form" clipRect: (spotBuffer boundingBox intersect: (self bounds translateBy: spotBuffer offset negated)); "Fill the spotBuffer with the spot image" copyForm: spotImage to: self position - spotBuffer offset rule: Form over; "Mask everything outside the spot shape to 0 (transparent)." copyForm: spotShape to: spotShape offset negated rule: Form and colorMap: (Bitmap with: 0 with: 16rFFFFFFFF)] ifFalse: [spotOn ifTrue: [self spotChanged. spotOn := false]]! Item was changed: + ----- Method: InfoStringMorph>>step (in category 'stepping') ----- - ----- Method: InfoStringMorph>>step (in category 'stepping and presenter') ----- step self contents: block value asString! Item was changed: + ----- Method: MinesBoard>>step (in category 'stepping') ----- - ----- Method: MinesBoard>>step (in category 'stepping and presenter') ----- step flashCount = 0 ifFalse: [ self submorphsDo: [:m | m color: m color negated.]. flashCount := flashCount - 1. ]. ! Item was changed: + ----- Method: MorphExample>>step (in category 'stepping') ----- - ----- Method: MorphExample>>step (in category 'stepping and presenter') ----- step phase := phase\\8 + 1. phase = 1 ifTrue: [^ ball delete]. phase < 4 ifTrue:[^self]. phase = 4 ifTrue: [self addMorph: ball]. ball align: ball center with: (star vertices at: (phase-3*2)).! Item was changed: + ----- Method: SameGameBoard>>step (in category 'stepping') ----- - ----- Method: SameGameBoard>>step (in category 'stepping and presenter') ----- step | newColor | selection ifNotNil: [newColor := flash ifTrue: [selectionColor] ifFalse: [flashColor]. selection do: [:loc | (self tileAt: loc) color: newColor]. flash := flash not] ! Item was changed: + ----- Method: SpectrumAnalyzerMorph>>start (in category 'stepping') ----- - ----- Method: SpectrumAnalyzerMorph>>start (in category 'stepping and presenter') ----- start "Start displaying sound data." displayType = 'signal' ifTrue: [soundInput bufferSize: graphMorph width - (2 * graphMorph borderWidth)] ifFalse: [soundInput bufferSize: fft n]. soundInput startRecording. ! Item was changed: + ----- Method: SpectrumAnalyzerMorph>>step (in category 'stepping') ----- - ----- Method: SpectrumAnalyzerMorph>>step (in category 'stepping and presenter') ----- step "Update the record light, level meter, and display." | w | "update the record light and level meter" statusLight color: (soundInput isRecording ifTrue: [Color yellow] ifFalse: [Color gray]). statusLight firstSubmorph in: [:stringMorph | stringMorph contents: (soundInput isRecording ifTrue: ['On' translated] ifFalse: ['Off' translated]). stringMorph position: statusLight center - (stringMorph extent // 2)]. w := ((121 px * soundInput meterLevel) // 100) max: 1. levelMeter width: w. "update the display if any data is available" self updateDisplay.! Item was changed: + ----- Method: SpectrumAnalyzerMorph>>stop (in category 'stepping') ----- - ----- Method: SpectrumAnalyzerMorph>>stop (in category 'stepping and presenter') ----- stop "Stop displaying sound data." soundInput stopRecording. ! Item was changed: + ----- Method: SpectrumAnalyzerMorph>>stopStepping (in category 'stepping') ----- - ----- Method: SpectrumAnalyzerMorph>>stopStepping (in category 'stepping and presenter') ----- stopStepping "Turn off recording." super stopStepping. soundInput stopRecording. ! Item was changed: + ----- Method: TetrisBoard>>step (in category 'stepping') ----- - ----- Method: TetrisBoard>>step (in category 'stepping and presenter') ----- step (self ownerThatIsA: HandMorph) ifNotNil: [^self]. paused ifTrue: [^ self]. currentBlock ifNil: [ currentBlock := TetrisBlock new. self addMorphFront: currentBlock. currentBlock board: self. ] ifNotNil: [ currentBlock dropByOne ifFalse: [self storePieceOnBoard] ]. ! Item was changed: + ----- Method: WatchMorph>>step (in category 'stepping') ----- - ----- Method: WatchMorph>>step (in category 'stepping and presenter') ----- step self changed.!

1 0

The Trunk: 61Deprecated-dtl.11.mcz
by commits＠source.squeak.org 04 Nov '23

04 Nov '23

David T. Lewis uploaded a new version of 61Deprecated to project The Trunk: http://source.squeak.org/trunk/61Deprecated-dtl.11.mcz ==================== Summary ==================== Name: 61Deprecated-dtl.11 Author: dtl Time: 4 November 2023, 6:47:32.019425 pm UUID: f5802231-376e-4c41-a0b6-caf4e009940e Ancestors: 61Deprecated-ul.10 DeferredActionStandardSystemController was used for deferred message delivery in MVC in early images but is no longer used or required. It reentered the image in a merge of code from the Etoys image (EToys-tfel.158). Deprecate it now. =============== Diff against 61Deprecated-ul.10 =============== Item was changed: SystemOrganization addCategory: #'61Deprecated-ST80-Support'! SystemOrganization addCategory: #'61Deprecated-Morphic-Support'! + SystemOrganization addCategory: #'61Deprecated-Etoys-Squeakland-Tools-Process Browser'! Item was added: + StandardSystemController subclass: #DeferredActionStandardSystemController + instanceVariableNames: 'queue' + classVariableNames: '' + poolDictionaries: '' + category: '61Deprecated-Etoys-Squeakland-Tools-Process Browser'! + + !DeferredActionStandardSystemController commentStamp: '<historical>' prior: 0! + This is a StandardSystemController that can queue up objects to be evaluated before its control loop.! Item was added: + ----- Method: DeferredActionStandardSystemController>>addDeferredUIMessage: (in category 'as yet unclassified') ----- + addDeferredUIMessage: valuableObject + queue nextPut: valuableObject! Item was added: + ----- Method: DeferredActionStandardSystemController>>controlActivity (in category 'as yet unclassified') ----- + controlActivity + [queue isEmpty] + whileFalse: [queue next value]. + ^super controlActivity! Item was added: + ----- Method: DeferredActionStandardSystemController>>initialize (in category 'as yet unclassified') ----- + initialize + super initialize. + queue := SharedQueue new.!

1 0

The Trunk: MorphicTests-mt.94.mcz
by commits＠source.squeak.org 04 Nov '23

04 Nov '23

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.94.mcz ==================== Summary ==================== Name: MorphicTests-mt.94 Author: mt Time: 4 November 2023, 10:32:07.96189 am UUID: a3704399-7774-9f43-8cab-ecad525b8623 Ancestors: MorphicTests-mt.93 Fixes trailing space in some message categories. =============== Diff against MorphicTests-mt.93 =============== Item was changed: + ----- Method: FileAbstractSelectionDialogTest class>>isAbstract (in category 'testing') ----- - ----- Method: FileAbstractSelectionDialogTest class>>isAbstract (in category 'testing ') ----- isAbstract ^ self = FileAbstractSelectionDialogTest! Item was changed: + ----- Method: FileDialogTest class>>isAbstract (in category 'testing') ----- - ----- Method: FileDialogTest class>>isAbstract (in category 'testing ') ----- isAbstract ^ self = FileDialogTest!

1 0

The Trunk: EToys-mt.503.mcz
by commits＠source.squeak.org 04 Nov '23

04 Nov '23

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.503.mcz ==================== Summary ==================== Name: EToys-mt.503 Author: mt Time: 4 November 2023, 10:31:14.11889 am UUID: 1ec3d1a1-a0ed-f748-9fe7-f60f03f4d785 Ancestors: EToys-mt.502 Fixes trailing space in some message categories. =============== Diff against EToys-mt.502 =============== Item was changed: + ----- Method: EventPlaybackButton>>addCustomMenuItems:hand: (in category 'menu') ----- - ----- Method: EventPlaybackButton>>addCustomMenuItems:hand: (in category 'menu ') ----- addCustomMenuItems: aCustomMenu hand: aHandMorph "Add custom menu items to the menu" super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu addLine. aCustomMenu addUpdating: #autoStartString target: self action: #toggleAutoStart. aCustomMenu addUpdating: #autoDismissString target: self action: #toggleAutoDismiss. aCustomMenu addLine. aCustomMenu addLine. aCustomMenu add: 'change caption' translated target: self action: #changeCaption. aCustomMenu add: 'open in recording theatre' translated target: self action: #openInRecordingSpace! Item was changed: + ----- Method: EventPlaybackButton>>autoDismissString (in category 'menu') ----- - ----- Method: EventPlaybackButton>>autoDismissString (in category 'menu ') ----- autoDismissString "Answer a string telling the status of my autoDismiss." ^ ((autoDismiss == true) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'auto dismiss' translated! Item was changed: + ----- Method: EventPlaybackButton>>autoStartString (in category 'menu') ----- - ----- Method: EventPlaybackButton>>autoStartString (in category 'menu ') ----- autoStartString "Answer a string telling the status of my autoStart." ^ ((autoStart == true) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'auto start' translated! Item was changed: + ----- Method: EventPlaybackButton>>changeCaption (in category 'menu') ----- - ----- Method: EventPlaybackButton>>changeCaption (in category 'menu ') ----- changeCaption "Allow the user to edit the caption name for this button. Create a new button with the new caption." | result interimSpace newButton | result := FillInTheBlank request: 'Please edit the caption' translated initialAnswer: caption. result isEmptyOrNil ifTrue: [^ self]. caption := result. interimSpace := EventRecordingSpace new. interimSpace initializeFromPlaybackButton: self. newButton := self class new initializeFrom: interimSpace. self labelGraphic: newButton imageForm! Item was changed: + ----- Method: EventPlaybackButton>>toggleAutoDismiss (in category 'menu') ----- - ----- Method: EventPlaybackButton>>toggleAutoDismiss (in category 'menu ') ----- toggleAutoDismiss "Toggle my autoDismiss state." autoDismiss := (autoDismiss == true) not! Item was changed: + ----- Method: EventPlaybackButton>>toggleAutoStart (in category 'menu') ----- - ----- Method: EventPlaybackButton>>toggleAutoStart (in category 'menu ') ----- toggleAutoStart "Toggle my autoStart state." autoStart := (autoStart == true) not! Item was changed: + ----- Method: PlaybackInvoker>>addCustomMenuItems:hand: (in category 'menu') ----- - ----- Method: PlaybackInvoker>>addCustomMenuItems:hand: (in category 'menu ') ----- addCustomMenuItems: aMenu hand: aHandMorph "Add custom menu items to the menu" super addCustomMenuItems: aMenu hand: aHandMorph. aMenu addLine. aMenu addUpdating: #autoStartString target: self action: #toggleAutoStart. aMenu addUpdating: #autoDismissString target: self action: #toggleAutoDismiss. aMenu addUpdating: #postPlaybackImageFeatureString target: self action: #togglePostPlaybackImageFeature. aMenu addLine. aMenu addUpdating: #appearAtScreenCenterString target: self action: #appearAtScreenCenter. aMenu addUpdating: #appearAtContainerOriginString target: self action: #appearAtContainerOrigin. aMenu addUpdating: #appearAtButtonPositionString target: self action: #appearAtButtonPosition. aMenu addTranslatedList: #( - ('imprint HINT' imprintHintOnForm) - ('show initial picture' adoptInitialPicture ) ('show final picture' adoptFinalPicture ) ('show caption' adoptTextualAppearance) - ('change caption' changeCaption) ('open for editing' openInRecordingSpace)) translatedNoop! Item was changed: + ----- Method: PlaybackInvoker>>appearAtButtonPosition (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtButtonPosition (in category 'menu ') ----- appearAtButtonPosition "Arrange for playback to appear at the button's position." whereToAppear := #buttonPosition ! Item was changed: + ----- Method: PlaybackInvoker>>appearAtButtonPositionString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtButtonPositionString (in category 'menu ') ----- appearAtButtonPositionString "Answer a string telling whether the playback window should appear at the button's position." ^ ((whereToAppear = #buttonPosition) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'playback at button position' translated! Item was changed: + ----- Method: PlaybackInvoker>>appearAtContainerOrigin (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtContainerOrigin (in category 'menu ') ----- appearAtContainerOrigin "Arrange for playback to appear at the the button's contain'er's origin" whereToAppear := #containerOrigin ! Item was changed: + ----- Method: PlaybackInvoker>>appearAtContainerOriginString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtContainerOriginString (in category 'menu ') ----- appearAtContainerOriginString "Answer a string telling whether the playback window should appear at the center of the screen." ^ ((whereToAppear = #containerOrigin) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'playback at container origin' translated! Item was changed: + ----- Method: PlaybackInvoker>>appearAtScreenCenter (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtScreenCenter (in category 'menu ') ----- appearAtScreenCenter "Arrange for playback to appear at the screen center." whereToAppear := #screenCenter ! Item was changed: + ----- Method: PlaybackInvoker>>appearAtScreenCenterString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>appearAtScreenCenterString (in category 'menu ') ----- appearAtScreenCenterString "Answer a string telling whether the playback window should appear at the center of the screen." ^ ((whereToAppear = #screenCenter) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'playback at screen center' translated! Item was changed: + ----- Method: PlaybackInvoker>>autoDismissString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>autoDismissString (in category 'menu ') ----- autoDismissString "Answer a string telling the status of my autoDismiss." ^ (autoDismiss ifTrue: ['<yes>'] ifFalse: ['<no>']), 'auto dismiss' translated! Item was changed: + ----- Method: PlaybackInvoker>>autoStartString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>autoStartString (in category 'menu ') ----- autoStartString "Answer a string telling the status of my autoStart." ^ (autoStart ifTrue: ['<yes>'] ifFalse: ['<no>']), 'auto start' translated! Item was changed: + ----- Method: PlaybackInvoker>>changeCaption (in category 'menu') ----- - ----- Method: PlaybackInvoker>>changeCaption (in category 'menu ') ----- changeCaption "Allow the user to edit the caption name for this button. Create a new button with the new caption." | result interimSpace newButton | result := FillInTheBlank request: 'Please edit the caption' translated initialAnswer: caption. result isEmptyOrNil ifTrue: [^ self]. caption := result. interimSpace := EventRecordingSpace new. interimSpace initializeFromPlaybackButton: self. newButton := PlaybackInvoker new initializeFrom: interimSpace. self form: newButton imageForm! Item was changed: + ----- Method: PlaybackInvoker>>defaultNameStemForInstances (in category 'menu') ----- - ----- Method: PlaybackInvoker>>defaultNameStemForInstances (in category 'menu ') ----- defaultNameStemForInstances "Answer a basis for names of default instances of the receiver." ^ caption! Item was changed: + ----- Method: PlaybackInvoker>>offeringHintString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>offeringHintString (in category 'menu ') ----- offeringHintString "Answer a string telling the status of my offeringHint." ^ (offeringHint ifTrue: ['<yes>'] ifFalse: ['<no>']), 'offering hint'! Item was changed: + ----- Method: PlaybackInvoker>>openInRecordingSpace (in category 'menu') ----- - ----- Method: PlaybackInvoker>>openInRecordingSpace (in category 'menu ') ----- openInRecordingSpace "Open a new EventRecordingSpace based on the receiver." EventRecordingSpace openFromPlaybackButton: self! Item was changed: + ----- Method: PlaybackInvoker>>postPlaybackImageFeatureString (in category 'menu') ----- - ----- Method: PlaybackInvoker>>postPlaybackImageFeatureString (in category 'menu ') ----- postPlaybackImageFeatureString "Answer a string telling whether the playback button should be a 50% rendition of the final bitmap after an invoked playback has ended" ^ ((postPlaybackImageFeature = true) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'post-playback feature' translated! Item was changed: + ----- Method: PlaybackInvoker>>toggleAutoDismiss (in category 'menu') ----- - ----- Method: PlaybackInvoker>>toggleAutoDismiss (in category 'menu ') ----- toggleAutoDismiss "Toggle my autoDismiss state." autoDismiss := autoDismiss not! Item was changed: + ----- Method: PlaybackInvoker>>toggleAutoStart (in category 'menu') ----- - ----- Method: PlaybackInvoker>>toggleAutoStart (in category 'menu ') ----- toggleAutoStart "Toggle my autoStart state." autoStart := autoStart not! Item was changed: + ----- Method: PlaybackInvoker>>togglePostPlaybackImageFeature (in category 'menu') ----- - ----- Method: PlaybackInvoker>>togglePostPlaybackImageFeature (in category 'menu ') ----- togglePostPlaybackImageFeature "Toggle the setting of the postPlaybackImage feature." postPlaybackImageFeature := (postPlaybackImageFeature = true) not!

1 0

The Trunk: System-mt.1430.mcz
by commits＠source.squeak.org 03 Nov '23

03 Nov '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1430.mcz ==================== Summary ==================== Name: System-mt.1430 Author: mt Time: 3 November 2023, 11:30:58.701489 am UUID: 1536c959-719d-9e42-a9f1-522902337a49 Ancestors: System-tpr.1429 In "Trim" UI theme, fixes colors for boolean keywords as well as 'nil', 'thisContext' and the return character. They were red and thus easily confused with invalid code. =============== Diff against System-tpr.1429 =============== Item was changed: ----- Method: TrimTheme class>>addSyntaxHighlighting: (in category 'instance creation') ----- addSyntaxHighlighting: theme "self createDark apply." theme set: #color for: #TextAction to: self blue; set: #default for: #SHTextStylerST80 to: {self white}; set: #invalid for: #SHTextStylerST80 to: {self red}; set: #excessCode for: #SHTextStylerST80 to: {self red}; set: #comment for: #SHTextStylerST80 to: {self cyan}; set: #unfinishedComment for: #SHTextStylerST80 to: {self red. TextEmphasis italic}; set: #'$' for: #SHTextStylerST80 to: {self yellow}; set: #character for: #SHTextStylerST80 to: {self yellow}; set: #integer for: #SHTextStylerST80 to: {self yellow}; set: #number for: #SHTextStylerST80 to: {self yellow}; set: #- for: #SHTextStylerST80 to: {self yellow}; set: #symbol for: #SHTextStylerST80 to: {self orange}; set: #stringSymbol for: #SHTextStylerST80 to: {self orange}; set: #literalArray for: #SHTextStylerST80 to: {self orange}; set: #string for: #SHTextStylerST80 to: {self magenta. TextEmphasis normal}; set: #unfinishedString for: #SHTextStylerST80 to: {self red. TextEmphasis normal}; set: #assignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #ansiAssignment for: #SHTextStylerST80 to: {nil. TextEmphasis bold}; set: #literal for: #SHTextStylerST80 to: {nil. TextEmphasis italic}; set: #keyword for: #SHTextStylerST80 to: {self blue}; set: #binary for: #SHTextStylerST80 to: {self blue}; set: #unary for: #SHTextStylerST80 to: {self blue}; set: #incompleteKeyword for: #SHTextStylerST80 to: {self white. TextEmphasis underlined}; set: #incompleteBinary for: #SHTextStylerST80 to: {self white. TextEmphasis underlined}; set: #incompleteUnary for: #SHTextStylerST80 to: {self white. TextEmphasis underlined}; set: #undefinedKeyword for: #SHTextStylerST80 to: {self red}; set: #undefinedBinary for: #SHTextStylerST80 to: {self red}; set: #undefinedUnary for: #SHTextStylerST80 to: {self red}; set: #patternKeyword for: #SHTextStylerST80 to: {nil}; set: #patternBinary for: #SHTextStylerST80 to: {nil}; set: #patternUnary for: #SHTextStylerST80 to: {nil}; set: #self for: #SHTextStylerST80 to: {self gray168}; set: #super for: #SHTextStylerST80 to: {self gray168}; + set: #true for: #SHTextStylerST80 to: {self yellow}; + set: #false for: #SHTextStylerST80 to: {self yellow}; + set: #nil for: #SHTextStylerST80 to: {self yellow}; + set: #thisContext for: #SHTextStylerST80 to: {self yellow}; + set: #return for: #SHTextStylerST80 to: {self yellow}; - set: #true for: #SHTextStylerST80 to: {self red}; - set: #false for: #SHTextStylerST80 to: {self red}; - set: #nil for: #SHTextStylerST80 to: {self red}; - set: #thisContext for: #SHTextStylerST80 to: {self red}; - set: #return for: #SHTextStylerST80 to: {self red}; set: #patternArg for: #SHTextStylerST80 to: {self gray168}; set: #methodArg for: #SHTextStylerST80 to: {self gray168}; set: #blockPatternArg for: #SHTextStylerST80 to: {self gray168}; set: #blockArg for: #SHTextStylerST80 to: {self gray168}; set: #argument for: #SHTextStylerST80 to: {self gray168}; set: #blockArgColon for: #SHTextStylerST80 to: {self white}; set: #leftParenthesis for: #SHTextStylerST80 to: {self white}; set: #rightParenthesis for: #SHTextStylerST80 to: {self white}; set: #leftParenthesis1 for: #SHTextStylerST80 to: {self gray168}; set: #rightParenthesis1 for: #SHTextStylerST80 to: {self gray168}; set: #leftParenthesis2 for: #SHTextStylerST80 to: {self gray128}; set: #rightParenthesis2 for: #SHTextStylerST80 to: {self gray128}; set: #leftParenthesis3 for: #SHTextStylerST80 to: {self gray102}; set: #rightParenthesis3 for: #SHTextStylerST80 to: {self gray102}; set: #leftParenthesis4 for: #SHTextStylerST80 to: {self gray76}; set: #rightParenthesis4 for: #SHTextStylerST80 to: {self gray76}; set: #leftParenthesis5 for: #SHTextStylerST80 to: {self gray102}; set: #rightParenthesis5 for: #SHTextStylerST80 to: {self gray102}; set: #leftParenthesis6 for: #SHTextStylerST80 to: {self gray128}; set: #rightParenthesis6 for: #SHTextStylerST80 to: {self gray128}; set: #leftParenthesis7 for: #SHTextStylerST80 to: {self gray168}; set: #rightParenthesis7 for: #SHTextStylerST80 to: {self gray168}; set: #blockStart for: #SHTextStylerST80 to: {self white}; set: #blockEnd for: #SHTextStylerST80 to: {self white}; set: #blockStart1 for: #SHTextStylerST80 to: {self gray168}; set: #blockEnd1 for: #SHTextStylerST80 to: {self gray168}; set: #blockStart2 for: #SHTextStylerST80 to: {self gray128}; set: #blockEnd2 for: #SHTextStylerST80 to: {self gray128}; set: #blockStart3 for: #SHTextStylerST80 to: {self gray102}; set: #blockEnd3 for: #SHTextStylerST80 to: {self gray102}; set: #blockStart4 for: #SHTextStylerST80 to: {self gray76}; set: #blockEnd4 for: #SHTextStylerST80 to: {self gray76}; set: #blockStart5 for: #SHTextStylerST80 to: {self gray102}; set: #blockEnd5 for: #SHTextStylerST80 to: {self gray102}; set: #blockStart6 for: #SHTextStylerST80 to: {self gray128}; set: #blockEnd6 for: #SHTextStylerST80 to: {self gray128}; set: #blockStart7 for: #SHTextStylerST80 to: {self gray168}; set: #blockEnd7 for: #SHTextStylerST80 to: {self gray168}; set: #arrayStart for: #SHTextStylerST80 to: {self white}; set: #arrayEnd for: #SHTextStylerST80 to: {self white}; set: #arrayStart1 for: #SHTextStylerST80 to: {self white}; set: #arrayEnd1 for: #SHTextStylerST80 to: {self white}; set: #byteArrayStart for: #SHTextStylerST80 to: {self white}; set: #byteArrayEnd for: #SHTextStylerST80 to: {self white}; set: #byteArrayStart1 for: #SHTextStylerST80 to: {self white}; set: #byteArrayEnd1 for: #SHTextStylerST80 to: {self white}; set: #leftBrace for: #SHTextStylerST80 to: {self white}; set: #rightBrace for: #SHTextStylerST80 to: {self white}; set: #cascadeSeparator for: #SHTextStylerST80 to: {self white}; set: #statementSeparator for: #SHTextStylerST80 to: {self white}; set: #externalCallType for: #SHTextStylerST80 to: {self white}; set: #externalCallTypePointerIndicator for: #SHTextStylerST80 to: {self white}; set: #primitiveOrExternalCallStart for: #SHTextStylerST80 to: {self white}; set: #primitiveOrExternalCallEnd for: #SHTextStylerST80 to: {self white}; set: #methodTempBar for: #SHTextStylerST80 to: {self white}; set: #blockTempBar for: #SHTextStylerST80 to: {self white}; set: #blockArgsBar for: #SHTextStylerST80 to: {self white}; set: #primitive for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaKeyword for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaUnary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #pragmaBinary for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #externalFunctionCallingConvention for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #module for: #SHTextStylerST80 to: {self green. TextEmphasis bold}; set: #blockTempVar for: #SHTextStylerST80 to: {self white}; set: #blockPatternTempVar for: #SHTextStylerST80 to: {self white}; set: #instVar for: #SHTextStylerST80 to: {self white}; set: #workspaceVar for: #SHTextStylerST80 to: {self white}; set: #undefinedIdentifier for: #SHTextStylerST80 to: {self red}; set: #incompleteIdentifier for: #SHTextStylerST80 to: {self white. {TextEmphasis italic. TextEmphasis underlined}}; set: #tempVar for: #SHTextStylerST80 to: {self white}; set: #patternTempVar for: #SHTextStylerST80 to: {self white}; set: #poolConstant for: #SHTextStylerST80 to: {self white}; set: #classVar for: #SHTextStylerST80 to: {self white}; set: #globalVar for: #SHTextStylerST80 to: {self white}. "And the text differ" theme set: #insertTextAttributes for: #TextDiffBuilder to: { TextColor color: self green }; set: #removeTextAttributes for: #TextDiffBuilder to: { TextEmphasis struckOut. TextColor color: self red }; set: #normalTextAttributes for: #TextDiffBuilder to: { TextEmphasis normal }.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2023