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@0.4 corner: 0.5@0.7).
(playButton := self playButton) center: 200@300. window addMorph: playButton frame: (0.5@0.4 corner: 1.0@0.7).
(myOpenConnectionButton := self connectButton) center: 250@300. window addMorph: myOpenConnectionButton frame: (0.5@0 corner: 1.0@0.4).
(myStopButton := self recordAndStopButton) center: 300@300. window addMorph: myStopButton frame: (0.5@0.7 corner: 1.0@1.0).
myUpdatingText := UpdatingStringMorph on: self selector: #objectsInQueue. window addMorph: myUpdatingText frame: (0.41@0.75 corner: 0.45@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 ].!
packages@lists.squeakfoundation.org