Squeak-dev November 2023

squeak-dev@lists.squeakfoundation.org

30 participants
170 discussions

The Trunk: Nebraska-dtl.61.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.61.mcz ==================== Summary ==================== Name: Nebraska-dtl.61 Author: dtl Time: 4 November 2023, 9:46:58.636099 pm UUID: 255009a4-58ae-44dc-aa9b-5518d09c9d65 Ancestors: Nebraska-dtl.60 Retain some Etoys classes and methods in the base image, 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-dtl.60 =============== Item was changed: SystemOrganization addCategory: #'Nebraska-Morphs-Experimental'! SystemOrganization addCategory: #'Nebraska-Morphic-Remote'! SystemOrganization addCategory: #'Nebraska-Network-Communications'! SystemOrganization addCategory: #'Nebraska-Network-ObjectSocket'! SystemOrganization addCategory: #'Nebraska-Audio Chat'! SystemOrganization addCategory: #'Nebraska-Morphs'! + SystemOrganization addCategory: #'Nebraska-Network-Mail'! Item was added: + Model subclass: #FancyMailComposition + instanceVariableNames: 'messageText theLinkToInclude to subject' + classVariableNames: '' + poolDictionaries: '' + category: 'Nebraska-Network-Mail'! Item was added: + ----- Method: FancyMailComposition>>addAttachment (in category 'actions') ----- + addAttachment + + self changed: #acceptChanges. + + (FileChooserDialog openOn: FileDirectory default pattern: nil label: 'Choose attachment') ifNotNil: + [:fileName | + FileStream readOnlyFileNamed: fileName do: + [:file | + file binary. + self messageText: + ((MailMessage from: self messageText asString) + addAttachmentFrom: file withName: (FileDirectory localNameFor: fileName); + text)]]! Item was added: + ----- Method: FancyMailComposition>>breakLines:atWidth: (in category 'private') ----- + breakLines: aString atWidth: width + "break lines in the given string into shorter lines" + | result atAttachment | + + result := WriteStream on: (String new: (aString size * 50 // 49)). + + atAttachment := false. + aString asString linesDo: [ :line | | start end | + (line beginsWith: '====') ifTrue: [ atAttachment := true ]. + atAttachment ifTrue: [ + "at or after an attachment line; no more wrapping for the rest of the message" + result nextPutAll: line. result cr ] + ifFalse: [ + (line beginsWith: '>') ifTrue: [ + "it's quoted text; don't wrap it" + result nextPutAll: line. result cr. ] + ifFalse: [ + "regular old line. Wrap it to multiple lines" + start := 1. + "output one shorter line each time through this loop" + [ start + width <= line size ] whileTrue: [ + + "find the end of the line" + end := start + width - 1. + [end >= start and: [ (line at: (end+1)) isSeparator not ]] whileTrue: [ + end := end - 1 ]. + end < start ifTrue: [ + "a word spans the entire width!!" + end := start + width - 1 ]. + + "copy the line to the output" + result nextPutAll: (line copyFrom: start to: end). + result cr. + + "get ready for next iteration" + start := end+1. + (line at: start) isSeparator ifTrue: [ start := start + 1 ]. + ]. + + "write out the final part of the line" + result nextPutAll: (line copyFrom: start to: line size). + result cr. + ]. + ]. + ]. + + ^result contents! Item was added: + ----- Method: FancyMailComposition>>buildButtonsWith: (in category 'toolbuilder') ----- + buildButtonsWith: builder + + | panel | + panel := builder pluggablePanelSpec new. + panel + layout: #horizontal; + children: OrderedCollection new. + + panel children addLast: (builder pluggableButtonSpec new + model: self; + label: 'send later'; + help: 'add this to the queue of messages to be sent'; + action: #submit; + color: Color white; + yourself). + + panel children addLast: (builder pluggableButtonSpec new + model: self; + label: 'send now'; + help: 'send this message immediately'; + action: #sendNow; + color: Color white; + yourself). + + panel children addLast: (builder pluggableButtonSpec new + model: self; + label: 'add attachment'; + help: 'send a file with the message'; + action: #addAttachment; + color: Color white; + yourself). + + ^ panel! Item was added: + ----- Method: FancyMailComposition>>buildMessageTextWith: (in category 'toolbuilder') ----- + buildMessageTextWith: builder + + ^ builder pluggableTextSpec new + model: self; + getText: #messageText; + setText: #messageText:; + menu: #menuGet:shifted:; + yourself! Item was added: + ----- Method: FancyMailComposition>>buildTextFieldsWith: (in category 'toolbuilder') ----- + buildTextFieldsWith: builder + + | panel | + panel := builder pluggablePanelSpec new. + panel + layout: #vertical; + children: OrderedCollection new. + + panel children addLast: (builder pluggableInputFieldSpec new + model: self; + help: 'To'; + getText: #to; + setText: #to:; + yourself). + + panel children addLast: (builder pluggableInputFieldSpec new + model: self; + help: 'Subject'; + getText: #subject; + setText: #subject:; + yourself). + + ^ panel! Item was added: + ----- Method: FancyMailComposition>>buildWith: (in category 'toolbuilder') ----- + buildWith: builder + + ^ builder build: (self buildWindowWith: builder specs: { + (0 @ 0 corner: 1 @ 0.1) -> [self buildButtonsWith: builder]. + (0 @ 0.1 corner: 1 @ 0.3) -> [self buildTextFieldsWith: builder]. + (0 @ 0.3 corner: 1 @ 1) -> [self buildMessageTextWith: builder]. })! Item was added: + ----- Method: FancyMailComposition>>celeste:to:subject:initialText:theLinkToInclude: (in category 'initialization') ----- + celeste: aCeleste to: argTo subject: argSubject initialText: aText theLinkToInclude: linkText + "self new celeste: Celeste current to: 'danielv(a)netvision.net.il' subject: 'Mysubj' initialText: 'atext' theLinkToInclude: 'linkText'" + + to := argTo. + subject := argSubject. + messageText := aText. + theLinkToInclude := linkText.! Item was added: + ----- Method: FancyMailComposition>>completeTheMessage (in category 'actions') ----- + completeTheMessage + + | newText strm | + self changed: #acceptChanges. + + newText := String new: 200. + strm := WriteStream on: newText. + strm + nextPutAll: 'Content-Type: text/html'; cr; + nextPutAll: 'From: ', MailSender userName; cr; + nextPutAll: 'To: ',to; cr; + nextPutAll: 'Subject: ',subject; cr; + + cr; + nextPutAll: '<HTML><BODY><BR>'; + nextPutAll: messageText asStringToHtml; + nextPutAll: '<BR><BR>',theLinkToInclude,'<BR></BODY></HTML>'. + ^strm contents! Item was added: + ----- Method: FancyMailComposition>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + + ^ Color veryLightGray! Item was added: + ----- Method: FancyMailComposition>>forgetIt (in category 'user interface') ----- + forgetIt + + self changed: #close.! Item was added: + ----- Method: FancyMailComposition>>menuGet:shifted: (in category 'interface') ----- + menuGet: aMenu shifted: shifted + + aMenu addList: { + {'find...(f)' translated. #find}. + {'find selection again (g)' translated. #findAgain}. + #-. + {'accept (s)' translated. #accept}. + {'send message' translated. #submit}}. + + ^aMenu.! Item was added: + ----- Method: FancyMailComposition>>messageText (in category 'accessing') ----- + messageText + "return the current text" + ^messageText. + ! Item was added: + ----- Method: FancyMailComposition>>messageText: (in category 'accessing') ----- + messageText: aText + "change the current text" + messageText := aText. + self changed: #messageText. + ^true! Item was added: + ----- Method: FancyMailComposition>>open (in category 'user interface') ----- + open + + self flag: #refactor. "FancyMailComposition should probably be removed in favour of MailComposition." + ^ ToolBuilder open: self! Item was added: + ----- Method: FancyMailComposition>>sendMailMessage: (in category 'MailSender interface') ----- + sendMailMessage: aMailMessage + self messageText: aMailMessage text! Item was added: + ----- Method: FancyMailComposition>>sendNow (in category 'actions') ----- + sendNow + + self submit: true + ! Item was added: + ----- Method: FancyMailComposition>>smtpServer (in category 'MailSender interface') ----- + smtpServer + ^MailSender smtpServer! Item was added: + ----- Method: FancyMailComposition>>subject (in category 'accessing') ----- + subject + + ^ subject + + ! Item was added: + ----- Method: FancyMailComposition>>subject: (in category 'accessing') ----- + subject: x + + subject := x. + self changed: #subject. + ^true! Item was added: + ----- Method: FancyMailComposition>>submit (in category 'actions') ----- + submit + + self submit: false! Item was added: + ----- Method: FancyMailComposition>>submit: (in category 'actions') ----- + submit: sendNow + + | message | + + messageText := self breakLines: self completeTheMessage atWidth: 999. + message := MailMessage from: messageText. + SMTPClient + deliverMailFrom: message from + to: (Array with: message to) + text: message text + usingServer: self smtpServer. + self forgetIt. + ! Item was added: + ----- Method: FancyMailComposition>>to (in category 'accessing') ----- + to + + ^to! Item was added: + ----- Method: FancyMailComposition>>to: (in category 'accessing') ----- + to: x + + to := x. + self changed: #to. + ^true + ! Item was added: + ----- Method: FancyMailComposition>>windowTitle (in category 'user interface') ----- + windowTitle + + ^ 'Mister Postman'!

1 0

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

05 Nov '23

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.1431.mcz ==================== Summary ==================== Name: System-dtl.1431 Author: dtl Time: 4 November 2023, 9:48:27.029423 pm UUID: ad56e8b7-e55b-4adc-8ab6-b42ec8c516b0 Ancestors: System-mt.1430 Retain some Etoys classes and methods in the base image, 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 System-mt.1430 =============== Item was added: + ----- Method: ProjectLoading class>>checkSecurity:preStream:projStream: (in category 'loading - support') ----- + checkSecurity: aFileName preStream: preStream projStream: projStream + "Answer true if passed" + | trusted enterRestricted | + trusted := SecurityManager default positionToSecureContentsOf: + projStream. + trusted ifFalse: + [enterRestricted := (preStream isTypeHTTP or: + [aFileName isNil]) + ifTrue: [Preferences securityChecksEnabled] + ifFalse: [Preferences standaloneSecurityChecksEnabled]. + enterRestricted + ifTrue: [SecurityManager default enterRestrictedMode + ifFalse: + [preStream close. + ^ false]]]. + ^ true + ! Item was added: + ----- Method: ProjectLoading class>>makeExistingView:project:projectsToBeDeleted: (in category 'loading - support') ----- + makeExistingView: existingView project: proj projectsToBeDeleted: projectsToBeDeleted + existingView ifNil: [ + Smalltalk isMorphic ifTrue: [ + proj createViewIfAppropriate. + ] ifFalse: [ + ChangeSet allChangeSets add: proj changeSet. + Project current openProject: proj. + "Note: in MVC we get no further than the above" + ]. + ] ifNotNil: [ + (existingView project isKindOf: DiskProxy) ifFalse: [ + existingView project changeSet name: + ChangeSet defaultName. + projectsToBeDeleted add: existingView project. + ]. + (existingView owner isSystemWindow) ifTrue: [ + existingView owner model: proj + ]. + existingView project: proj. + ]. + ! Item was added: + ----- Method: ProjectLoading class>>morphOrList:stream:fromDirectory:archive: (in category 'loading - support') ----- + morphOrList: aFileName stream: preStream fromDirectory: aDirectoryOrNil archive: archive + "Answer morphOrList or nil if problem happened" + | projStream localDir morphOrList | + projStream := archive + ifNil: [preStream] + ifNotNil: [self projectStreamFromArchive: archive]. + (self checkSecurity: aFileName preStream: preStream projStream: projStream) + ifFalse: [^nil]. + localDir := Project squeakletDirectory. + aFileName ifNotNil: [ + (aDirectoryOrNil isNil or: [aDirectoryOrNil pathName + ~= localDir pathName]) ifTrue: [ + localDir deleteFileNamed: aFileName. + (localDir fileNamed: aFileName) binary + nextPutAll: preStream remainingContents; + close. + ]. + ]. + morphOrList := projStream asUnZippedStream. + preStream sleep. "if ftp, let the connection close" + ^ morphOrList + ! Item was added: + ----- Method: ProjectLoading class>>parseManifest: (in category 'loading - support') ----- + parseManifest: aString + + | dict line index key value aStream | + aStream := aString readStream. + dict := Dictionary new. + [(line := aStream nextLine) notNil] whileTrue: [ + index := line indexOf: $:. + index > 0 ifTrue: [ + key := line copyFrom: 1 to: index - 1. + value := (line copyFrom: index + 1 to: line size) withBlanksTrimmed. + dict at: key put: value. + ]. + ]. + ^ dict.!

1 0

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 Inbox: EToys-dtl.504.mcz
by commits＠source.squeak.org 04 Nov '23

04 Nov '23

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-dtl.504.mcz ==================== Summary ==================== Name: EToys-dtl.504 Author: dtl Time: 4 November 2023, 6:46:35.645467 pm UUID: 78d2c97c-327d-4846-b742-4a8c3af51179 Ancestors: EToys-mt.503 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 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 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.!

1 0

Odd difference in method categories saved with trailing space in the method category symbol
by lewis＠mail.msen.com 04 Nov '23

04 Nov '23

In a fully updated trunk image, we have packages that are marked dirty, but the only differences are in method categories, and the method categories themselves appear to be the same. It turns out that the category symbols are actually different, and the difference is that some have a trailing space in the symbol ( #'foo ' where #foo is expected). For example, with package Etoys from EToys-mt.502, one of the "different" methods is EventPlaybackButtons>>autoStartString. In the image we have: (MethodReference class: EventPlaybackButton selector: #autoStartString) category ==> 'menu' But if I look at the MCPatchBrowser for Etoys package differences, and drill in to the MCModification for this method, the obsoletion category is #menu and the modification category is #'menu '. I think that the methods in question have 'ct' author initials and the MC packages have 'mt' initials, so this appears to be stuff getting merged, but I can't figure out where those space characters are coming from. I am guessing that this is something to do with the information stored in the MCZ package, as opposed to anything in the actual source code in the image. Saving the questionable packages seems to make the problem go away, but I can't spot where things are going wrong so I hesitate to "fix" it without understanding the problem. Any clues? Dave

2 3

Jump to page: