Squeak-dev August 2022

squeak-dev@lists.squeakfoundation.org

30 participants
157 discussions

The Inbox: Protocols-jr.90.mcz
by commits＠source.squeak.org 28 Aug '22

28 Aug '22

A new version of Protocols was added to project The Inbox: http://source.squeak.org/inbox/Protocols-jr.90.mcz ==================== Summary ==================== Name: Protocols-jr.90 Author: jr Time: 28 August 2022, 10:51:08.187406 pm UUID: d7bf715f-430d-594c-8866-15cebe2d8c7f Ancestors: Protocols-jr.89 Fix "-- active --" pseudo category and "recent" menu item. Convert MessageNavigation to a collection of selectors before initializing the message list from it. =============== Diff against Protocols-jr.89 =============== Item was changed: ----- Method: Lexicon>>categoryListIndex: (in category 'category list') ----- categoryListIndex: anIndex "Set the category list index as indicated" | categoryName aList found existingSelector | existingSelector := self selectedMessageName. categoryListIndex := anIndex. categoryName := anIndex > 0 ifTrue: [categoryList at: anIndex] ifFalse: [self class allCategoryName]. self changed: #categoryListIndex. found := false. #( (viewedCategoryName selectorsVisited) (queryCategoryName selectorsRetrieved)) do: [:pair | categoryName = (self class perform: pair first) ifTrue: + [aList := (self perform: pair second) asCollection. - [aList := self perform: pair second. found := true]]. found ifFalse: [aList := currentVocabulary allMethodsInCategory: categoryName forInstance: self targetObject ofClass: targetClass]. categoryName = self class queryCategoryName ifFalse: [autoSelectString := nil]. self initListFrom: aList highlighting: targetClass. messageListIndex := 0. self changed: #messageList. contents := nil. self contentsChanged. self selectWithinCurrentCategoryIfPossible: existingSelector. self adjustWindowTitle! Item was changed: ----- Method: Lexicon>>navigateToRecentMethod (in category 'history') ----- navigateToRecentMethod "Put up a menu of recent selectors visited and navigate to the one chosen" | visited aSelector | + (visited := self selectorsVisited asCollection) size > 1 ifTrue: - (visited := self selectorsVisited) size > 1 ifTrue: [visited := visited copyFrom: 1 to: (visited size min: 20). aSelector := UIManager default chooseFrom: visited values: visited title: 'Recent methods visited in this browser'. aSelector isEmptyOrNil ifFalse: [self displaySelector: aSelector]]! Item was changed: ----- Method: Lexicon>>selectorsVisited (in category 'history') ----- selectorsVisited + "Answer the navigation object of this tool" - "Answer the list of selectors visited in this tool" selectorsVisited ifNil: [selectorsVisited := MessageNavigation new]. (selectorsVisited isMemberOf: OrderedCollection) ifTrue: "migrate old instances" [| new | new := MessageNavigation new. selectorsVisited do: [:each | new current: each]. selectorsVisited := new]. ^ selectorsVisited!

1 0

The Inbox: Tools-jr.1174.mcz
by commits＠source.squeak.org 28 Aug '22

28 Aug '22

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-jr.1174.mcz ==================== Summary ==================== Name: Tools-jr.1174 Author: jr Time: 28 August 2022, 10:50:52.028406 pm UUID: 621ad914-6dc8-334f-8128-8c0e5d707ea2 Ancestors: Tools-jr.1173 Allow conversion of the navigation history to a collection with all the visited elements and to remove elements from the history. It is required for Lexicon's "-- active --" category list item and for its "-" button to remove messages from the active set. =============== Diff against Tools-jr.1173 =============== Item was added: + ----- Method: MessageNavigation>>asCollection (in category 'converting') ----- + asCollection + ^ backwardHistory, {current}, forwardHistory reversed! Item was added: + ----- Method: MessageNavigation>>remove:ifAbsent: (in category 'removing') ----- + remove: anObject ifAbsent: absentBlock + backwardHistory removeAllSuchThat: [:each | each = anObject]. + forwardHistory removeAllSuchThat: [:each | each = anObject]. + current = anObject ifTrue: [current := nil].!

1 0

The Trunk: EToys-ct.481.mcz
by commits＠source.squeak.org 28 Aug '22

28 Aug '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.481.mcz ==================== Summary ==================== Name: EToys-ct.481 Author: ct Time: 28 August 2022, 3:41:10.098075 pm UUID: d2de7089-de64-b74c-a3fa-bd61108e1315 Ancestors: EToys-ct.479 Fixes MidiInputMorph so that one can actually select a valid input port instead of an output port (#setMIDIPort). Fixes pan and vol sliders, adds high-dpi support, and uses a DropDownChoiceMorph for the instrument. Note that we might still change the styl the instrument selector later. =============== Diff against EToys-ct.479 =============== Item was changed: ----- Method: MidiInputMorph>>addChannelControlsFor: (in category 'accessing') ----- addChannelControlsFor: channelIndex | r divider col | r := self makeRow hResizing: #shrinkWrap; vResizing: #shrinkWrap. r addMorphBack: (self channelNumAndMuteButtonFor: channelIndex). + r addMorphBack: (Morph new extent: 10 px @ 5 px; color: color). "spacer" - r addMorphBack: (Morph new extent: 10@5; color: color). "spacer" r addMorphBack: (self panAndVolControlsFor: channelIndex). divider := AlignmentMorph new + extent: 10 px @ 1 px; - extent: 10@1; layoutInset: 0; + borderStyle: (BorderStyle raised width: 1 px); - borderStyle: (BorderStyle raised width: 1); color: color; hResizing: #spaceFill; vResizing: #rigid. col := self lastSubmorph. col addMorphBack: divider. + col addMorphBack: r.! - col addMorphBack: r. - ! Item was changed: ----- Method: MidiInputMorph>>channelNumAndMuteButtonFor: (in category 'accessing') ----- channelNumAndMuteButtonFor: channelIndex | muteButton instSelector r | muteButton := SimpleSwitchMorph new onColor: (Color r: 1.0 g: 0.6 b: 0.6); offColor: color; color: color; label: 'Mute' translated; target: midiSynth; actionSelector: #mutedForChannel:put:; arguments: (Array with: channelIndex). + instSelector := DropDownChoiceMorph new + extent: 120 px @ 18 px; - instSelector := PopUpChoiceMorph new - extent: 95@14; contentsClipped: 'oboe1'; target: self; actionSelector: #atChannel:from:selectInstrument:; getItemsSelector: #instrumentChoicesForChannel:; getItemsArgs: (Array with: channelIndex). instSelector arguments: (Array with: channelIndex with: instSelector). instrumentSelector at: channelIndex put: instSelector. r := self makeRow + hResizing: #spaceFill; - hResizing: #rigid; vResizing: #spaceFill; + extent: 70 px @ 10 px. - extent: 70@10. r addMorphBack: (StringMorph contents: channelIndex printString + font: (TextStyle defaultFont asPointSize: TextStyle defaultFont pointSize * 1.57)). - font: (TextStyle default fontOfSize: 24)). channelIndex < 10 + ifTrue: [r addMorphBack: (Morph new color: color; extent: 19 px @ 8 px)] "spacer" + ifFalse: [r addMorphBack: (Morph new color: color; extent: 8 px @ 8 px)]. "spacer" - ifTrue: [r addMorphBack: (Morph new color: color; extent: 19@8)] "spacer" - ifFalse: [r addMorphBack: (Morph new color: color; extent: 8@8)]. "spacer" r addMorphBack: instSelector. r addMorphBack: (AlignmentMorph newRow color: color). "spacer" r addMorphBack: muteButton. ^ r! Item was changed: ----- Method: MidiInputMorph>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 2 px! - ^ 2! Item was changed: ----- Method: MidiInputMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + layoutInset: 3 px. - hResizing: #spaceFill; - vResizing: #spaceFill; - layoutInset: 3. midiPortNumber := nil. midiSynth := MIDISynth new. instrumentSelector := Array new: 16. self removeAllMorphs. self addMorphBack: self makeControls. self addMorphBack: (AlignmentMorph newColumn color: color; layoutInset: 0). self addChannelControlsFor: 1. + self extent: 20 px @ 20 px! - self extent: 20 @ 20! Item was changed: ----- Method: MidiInputMorph>>makeControls (in category 'initialization') ----- makeControls | bb r reverbSwitch onOffSwitch | bb := SimpleButtonMorph new target: self; + borderStyle: (BorderStyle raised width: 2 px); - borderStyle: (BorderStyle raised width: 2); color: color. r := AlignmentMorph newRow. r color: bb color; borderWidth: 0; layoutInset: 0. + r hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5 px @ 5 px. - r hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5@5. r addMorphBack: ( bb label: '<>'; actWhen: #buttonDown; actionSelector: #invokeMenu). onOffSwitch := SimpleSwitchMorph new offColor: color; onColor: (Color r: 1.0 g: 0.6 b: 0.6); + borderWidth: 2 px; - borderWidth: 2; label: 'On' translated; actionSelector: #toggleOnOff; target: self; setSwitchState: false. r addMorphBack: onOffSwitch. reverbSwitch := SimpleSwitchMorph new offColor: color; onColor: (Color r: 1.0 g: 0.6 b: 0.6); + borderWidth: 2 px; - borderWidth: 2; label: 'Reverb Disable' translated; actionSelector: #disableReverb:; target: self; setSwitchState: SoundPlayer isReverbOn not. r addMorphBack: reverbSwitch. ^ r! Item was changed: ----- Method: MidiInputMorph>>panAndVolControlsFor: (in category 'initialization') ----- panAndVolControlsFor: channelIndex | volSlider panSlider c r middleLine | volSlider := SimpleSliderMorph new color: color; + extent: 101 px @ 6 px; + minWidth: 101 px; - extent: 101@2; target: midiSynth; arguments: (Array with: channelIndex); + orientation: #horizontal; actionSelector: #volumeForChannel:put:; minVal: 0.0; maxVal: 1.0; adjustToValue: (midiSynth volumeForChannel: channelIndex). panSlider := SimpleSliderMorph new color: color; + extent: 101 px @ 6 px; + minWidth: 101 px; - extent: 101@2; target: midiSynth; arguments: (Array with: channelIndex); actionSelector: #panForChannel:put:; minVal: 0.0; maxVal: 1.0; adjustToValue: (midiSynth panForChannel: channelIndex). c := AlignmentMorph newColumn color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #spaceFill; vResizing: #shrinkWrap. middleLine := Morph new "center indicator for pan slider" color: (Color r: 0.4 g: 0.4 b: 0.4); + extent: 1 px @ (panSlider height - 4 px); + position: panSlider center x @ (panSlider top + 2 px). - extent: 1@(panSlider height - 4); - position: panSlider center x@(panSlider top + 2). panSlider addMorphBack: middleLine. r := self makeRow. r addMorphBack: (StringMorph contents: '0'). r addMorphBack: volSlider. r addMorphBack: (StringMorph contents: '10'). c addMorphBack: r. r := self makeRow. r addMorphBack: (StringMorph contents: 'L'). r addMorphBack: panSlider. r addMorphBack: (StringMorph contents: 'R'). c addMorphBack: r. + ^ c! - ^ c - ! Item was changed: ----- Method: MidiInputMorph>>setMIDIPort (in category 'accessing') ----- setMIDIPort | portNum | + portNum := SimpleMIDIPort inputPortNumFromUser. - portNum := SimpleMIDIPort outputPortNumFromUser. portNum ifNil: [^ self]. midiPortNumber := portNum. !

1 0

OSProcess Question
by Eric Gade 27 Aug '22

27 Aug '22

Hello, I've been unable to find good documentation / examples of an OSProcess use case. How can I start an external process that remains running while I pipe data into its stdin and read data from its stdout? To be specific, I am starting to toy around with the JS/Typescript LSP server <https://github.com/typescript-language-server/typescript-language-server>, which seems to expect input on stdin (rather than using sockets or whatnot) Thanks! -- Eric

3 12

The Inbox: MorphicExtras-kfr.334.mcz
by commits＠source.squeak.org 27 Aug '22

27 Aug '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-kfr.334.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.334 Author: kfr Time: 27 August 2022, 10:55:12.504185 am UUID: 86cede09-3f69-da40-ae84-c9d2fd6f523b Ancestors: MorphicExtras-ct.331 Preset button to 'maj' Reupload based on right trunk version =============== Diff against MorphicExtras-ct.331 =============== Item was changed: ----- Method: KeyboardMorphForInput>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. + self initChordDictionary. - "" buildingChord := false. self addRecordingControls. self duration: 4 onOff: true. self durMod: #normal onOff: true. self articulation: #normal onOff: true. + self chords: #maj onOff: true. insertMode := false. + ! - self initChordDictionary!

1 0

The Inbox: MorphicExtras-kfr.333.mcz
by commits＠source.squeak.org 27 Aug '22

27 Aug '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-kfr.333.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.333 Author: kfr Time: 27 August 2022, 10:37:56.24479 am UUID: 7d5d485d-6fa0-1444-8c0a-a8d50a85de8d Ancestors: MorphicExtras-kfr.332 Preset button to 'maj' =============== Diff against MorphicExtras-kfr.332 =============== Item was changed: ----- Method: KeyboardMorphForInput>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. + self initChordDictionary. - "" buildingChord := false. self addRecordingControls. self duration: 4 onOff: true. self durMod: #normal onOff: true. self articulation: #normal onOff: true. + self chords: #maj onOff: true. insertMode := false. + ! - self initChordDictionary!

1 0

The Inbox: MorphicExtras-kfr.332.mcz
by commits＠source.squeak.org 27 Aug '22

27 Aug '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-kfr.332.mcz ==================== Summary ==================== Name: MorphicExtras-kfr.332 Author: kfr Time: 27 August 2022, 10:21:16.96379 am UUID: de15d415-f740-1e44-ab59-b1a8370e62a8 Ancestors: MorphicExtras-ct.331 Change the background color for the instrument to visually indicate that it is a changeable value =============== Diff against MorphicExtras-ct.331 =============== Item was changed: ----- Method: ScorePlayerMorph>>trackNumAndMuteButtonFor: (in category 'layout') ----- trackNumAndMuteButtonFor: trackIndex + | muteButton instSelector pianoRollColor r instBackground | - | muteButton instSelector pianoRollColor r | muteButton := SimpleSwitchMorph new onColor: (Color r: 1.0 g: 0.6 b: 0.6); offColor: color; color: color; label: 'Mute' translated; target: scorePlayer; actionSelector: #mutedForTrack:put:; arguments: (Array with: trackIndex). + instBackground := Morph new extent: 125 px@19 px; + color: color lighter; + borderColor: color muchDarker; + borderWidth: 1; + layoutPolicy: TableLayout new; + layoutInset: (1@0). instSelector := DropDownChoiceMorph new extent: 120 px @ 18 px; contentsClipped: 'oboe1'; target: self; actionSelector: #atTrack:from:selectInstrument:; getItemsSelector: #instrumentChoicesForTrack:; getItemsArgs: (Array with: trackIndex). instSelector arguments: (Array with: trackIndex with: instSelector). instrumentSelector at: trackIndex put: instSelector. + instBackground addMorphBack: instSelector. "select track color using same color list as PianoRollScoreMorph" pianoRollColor := (Color wheel: scorePlayer score tracks size) at: trackIndex. r := self makeRow hResizing: #spaceFill; vResizing: #spaceFill; extent: 70 px @ 10 px. r addMorphBack: ((StringMorph contents: trackIndex printString font: (TextStyle defaultFont asPointSize: TextStyle defaultFont pointSize * 1.57)) color: pianoRollColor). trackIndex < 10 ifTrue: [r addMorphBack: (Morph new color: color; extent: 19 px @ 8 px)] "spacer" ifFalse: [r addMorphBack: (Morph new color: color; extent: 8 px @ 8 px)]. "spacer" r addMorphBack: (StringMorph new + extent: 100 px @ 16 px; - extent: 140 px @ 16 px; contentsClipped: (scorePlayer infoForTrack: trackIndex)). r addMorphBack: (Morph new color: color; extent: 8 px @ 8 px). "spacer" + r addMorphBack: instBackground. - r addMorphBack: instSelector. r addMorphBack: (AlignmentMorph newRow color: color). "spacer" r addMorphBack: muteButton. ^ r!

1 0

The Inbox: EToys-lrnp.480.mcz
by commits＠source.squeak.org 27 Aug '22

27 Aug '22

A new version of EToys was added to project The Inbox: http://source.squeak.org/inbox/EToys-lrnp.480.mcz ==================== Summary ==================== Name: EToys-lrnp.480 Author: lrnp Time: 26 August 2022, 11:47:02.877549 pm UUID: e04524d0-88db-4a63-b14b-26df11f31df2 Ancestors: EToys-ct.479 fix code rot in StackMorph logic StackMorph works! The book controls also had their text fixed: section symbol instead of complement german uppercase double ess and the like. Also, because this makes a great recipe for a memory leak... #setNewInstVarNames: no longer deletes the uniclass from the global environment. Try a Browse Hierarchy with and without. The change to not use #subclass:... in #setNewInstVarNames: is not a stylistic choice! The new code updates the uniclass in-place, while the old code created an entirely new class... that was then never used. This is why the menu 'background field, individual values' was a no-op. For some reason, #variableDocks was stubbed but #variableDocks: still worked. It might make sense to move the variable docks method category into CardPlayer. =============== Diff against EToys-ct.479 =============== Item was changed: ----- Method: Morph>>assuredCardPlayer (in category '*Etoys-card in a stack') ----- assuredCardPlayer "Answer the receiver's player, creating a new one if none currently exists" | aPlayer | (aPlayer := self player) ifNotNil: [ (aPlayer isKindOf: CardPlayer) + ifTrue: [aPlayer] - ifTrue: [^ aPlayer] ifFalse: [self error: 'Must convert to a CardPlayer'] "later convert using as: and remove the error"]. self assureExternalName. "a default may be given if not named yet" + self player: CardPlayer newUserInstance. - self player: (aPlayer := UnscriptedPlayer newUserInstance). "Force it to be a CardPlayer. Morph class no longer dictates what kind of player" + self player costume: self. - aPlayer costume: self. self presenter ifNotNil: [self presenter flushPlayerListCache]. + ^ self player! - ^ aPlayer! Item was changed: ----- Method: Morph>>reassessBackgroundShape (in category '*Etoys-card in a stack') ----- reassessBackgroundShape "A change has been made which may affect the instance structure of the Card uniclass that holds the instance state, which can also be thought of as the 'card data'." - "Caution: still to be done: the mechanism so that when a new instance variable is added, it gets initialized in all subinstances of the receiver's player, which are the cards of this shape. One needs to take into account here the instance variable names coming in; those that are unchanged should keep their values, but those that have newly arrived should obtain their default values from the morphs on whose behalf they are being maintained in the model" - | requestedName | self isStackBackground ifFalse: [^Beeper beep]. "bulletproof against deconstruction" Cursor wait showWhile: [ | variableDocks takenNames sepDataMorphs existing |variableDocks := OrderedCollection new. "This will be stored in the uniclass's class-side inst var #variableDocks" takenNames := OrderedCollection new. sepDataMorphs := OrderedCollection new. "fields, holders of per-card data" self submorphs do: [:aMorph | aMorph renderedMorph holdsSeparateDataForEachInstance ifTrue: [sepDataMorphs add: aMorph renderedMorph] ifFalse: ["look for buried fields, inside a frame" aMorph renderedMorph isShared ifTrue: [aMorph allMorphs do: [:mm | mm renderedMorph holdsSeparateDataForEachInstance ifTrue: [sepDataMorphs add: mm renderedMorph]]]]]. sepDataMorphs sort: [:a :b | (a valueOfProperty: #cardInstance) notNil]; "puts existing ones first" do: [:aMorph | | docks | docks := aMorph variableDocks. "Each morph can request multiple variables. This complicates matters somewhat but creates a generality for Fabrk-like uses. Each spec is an instance of VariableDock, and it provides a point of departure for the negotiation between the PasteUp and its constitutent morphs" docks do: [:aVariableDock | | uniqueName | uniqueName := self player uniqueInstanceVariableNameLike: (requestedName := aVariableDock variableName) excluding: takenNames. uniqueName ~= requestedName ifTrue: [aVariableDock variableName: uniqueName. aMorph noteNegotiatedName: uniqueName for: requestedName]. takenNames add: uniqueName]. variableDocks addAll: docks]. existing := self player class instVarNames. variableDocks sort: [:dock1 :dock2 | | name2 name1 | name1 := dock1 variableName. name2 := dock2 variableName. (existing indexOf: name1) < (existing indexOf: name2 ifAbsent: [variableDocks size])]. self player class setNewInstVarNames: (variableDocks collect: [:info | info variableName asString]). "NB: sets up accessors, and removes obsolete ones" self player class newVariableDocks: variableDocks]! Item was changed: ----- Method: Player class>>setNewInstVarNames: (in category 'user-defined inst vars') ----- setNewInstVarNames: listOfStrings "Make listOfStrings be the new list of instance variable names for the receiver" + | disappearing firstAppearing instVarList | - | disappearing firstAppearing instVarString instVarList | instVarList := self instVarNames asOrderedCollection. disappearing := instVarList copy. disappearing removeAllFoundIn: listOfStrings. disappearing do: + [:oldName | self removeAccessorsFor: oldName. + self removeInstVarName: oldName]. - [:oldName | self removeAccessorsFor: oldName]. firstAppearing := listOfStrings copy. firstAppearing removeAllFoundIn: instVarList. + firstAppearing do: [:newName | + self addInstVarName: newName. + self compileAccessorsFor: newName].! - instVarString := String streamContents: - [:aStream | listOfStrings do: [:aString | aStream nextPutAll: aString; nextPut: $ ]]. - - superclass subclass: self name instanceVariableNames: instVarString - classVariableNames: '' poolDictionaries: '' category: self categoryForUniclasses. - self flag: #todo. self flag: #uniclasses. "Discuss if we really want to hide uniclasses again" - superclass environment forgetClass: self logged: false. - superclass removeSubclass: self. - firstAppearing do: - [:newName | self compileAccessorsFor: newName]. - ! Item was changed: ----- Method: Player class>>variableDocks (in category 'other') ----- variableDocks "Backward compatibility -- answer the formal list of VariableDocks associated with the class, assuming the class to be a CardPlayer subclass. Somewhere a long time ago evidently the players assigned to Worlds stopped being CardPlayers, so this method is now provided as a backstop." + ^ variableDocks ifNil: [#()] ifNotNil: [:it | it]! - ^ #()! Item was changed: ----- Method: StackMorph>>fullControlSpecs (in category 'page controls') ----- fullControlSpecs "Answer specifications for the long form of iconic stack/book controls" ^ { #spacer. #variableSpacer. {'-'. #deleteCard. 'Delete this card' translated}. #spacer. + { '«' . #goToFirstCardOfStack. 'First card' translated}. - { '¬Ž' . #goToFirstCardOfStack. 'First card' translated}. #spacer. { '<'. #goToPreviousCardInStack. 'Previous card' translated}. #spacer. + {'·'. #invokeBookMenu. 'Click here to get a menu of options for this stack.' translated}. - {'¬'. #invokeBookMenu. 'Click here to get a menu of options for this stack.' translated}. "#spacer. {'¬'. #reshapeBackground. 'Reshape' translated}. " #spacer. + {'§'. #showDesignationsOfObjects. 'Show designations' translated}. - {'¬ß'. #showDesignationsOfObjects. 'Show designations' translated}. #spacer. {'>' . #goToNextCardInStack. 'Next card' translated}. #spacer. + { '»'. #goToLastCardOfStack. 'Final card' translated}. - { '¬ª'. #goToLastCardOfStack. 'Final card' translated}. #spacer. {'+'. #insertCard. 'Add a new card after this one' translated}. #variableSpacer. + {'o'. #fewerPageControls. 'Fewer controls - {'¬'. #fewerPageControls. 'Fewer controls (if shift key pressed, deletes controls)' translated} }! Item was changed: ----- Method: StackMorph>>shortControlSpecs (in category 'page controls') ----- shortControlSpecs "Answer specficiations for the shorter form of stack controls" ^ { #spacer. #variableSpacer. + { #PrevPage. #goToPreviousCardInStack. 'Previous card' translated}. - { '<'. #goToPreviousCardInStack. 'Previous card' translated}. #spacer. + {#MenuIcon. #invokeBookMenu. 'Click here to get a menu for this stack.' translated}. - {'¬'. #invokeBookMenu. 'Click here to get a menu for this stack.' translated}. #spacer. + {#NextPage. #goToNextCardInStack. 'Next card' translated}. - {'>'. #goToNextCardInStack. 'Next card' translated}. #variableSpacer. + {'...'. #showMoreControls. 'More controls - {'¬'. #showMoreControls. 'More controls (if shift key pressed, deletes controls)' translated} }!

1 0

Some notes about porting muO to 6.0
by Stéphane Rollandin 26 Aug '22

26 Aug '22

Some notes about porting muO to 6.0 Context: I always develop on a stable release, that may be several versions behind the current trunk. This makes updating everything to work on a newer stable release a non-trivial task, always. muO started around 2002/2003, when Squeak was at 3. something (later and for a long time I worked on 3.8). I remember 3.8 to 3.9 being quite bad, but it was always nice to discover the new features and play with them. And now after twenty years muO has gone all the way to 6.0, which shows a real concern about backward compatibility from the trunk developers - so, thanks everybody! Now all is not smooth and this time, moving from 5.1/5.3 to 6.0, I had the feeling it was more bumpy because of a few actual non-compatible changes. Their nature also made the corresponding porting issues particularly difficult to pinpoint, leading at times to the wrong but unsettling impression that something was deeply broken. So here they are: 1)- becomeForward: A lot of the intricate live dependency of interactive objects in muO was just gone - living things were now dead; it seems things were broken all over the place. In fact it was just that #becomeForward: semantics had changed. All my #becomeForward: calls had to be replaced with #becomeForward:copyHash: with second argument true. This one is quite nasty. 2)- setProperty:toValue: Debuggers showed me all kind of objects receiving messages they had nothing to do with. It seemed that object composition was scrambled, but in fact... #setProperty:toValue: semantics had changed It now returns its second argument, so I had to add cascaded #yourself calls in many places. This one is nasty too. 3)- immutable arrays In a couple of places I did use arrays written in their now immutable form to store data that would later be updated. I had to use other ways to instanciate the arrays. This one is bad IMO. Not the fact that arrays can (and should most often) be immutable, but the fact the default way to write an #(array) or a 'string' now has a different semantics. Assuming as before that we get mutable objects leads to bugs that are easy to catch, but I am afraid there may be old code laying around in SqueakMap or other repositories that will now break. Well maybe I'm wrong about that. 4)- FloatArray FloatArray is now abstract; it must now be replaced with Float32Array. Because I want muO to load and work both in 5.3 and 6.0 (which it does), I had to to have the pre-installer create a dummy Float32Array class before loading the muO code in 5.3. No big deal, but again if some older forgotten packages are using FloatArray, they will break. 5)- beAllFont: This one is minor but still, #beAllFont: semantics changed. In 5.3 it used to update the font of an existing text morph, now it is the same as #font: and cannot be used that way - it must be sent before the text is set. I just reverted it to its 5.3 behavior for muO. 6)- font sizes In MuOTheme#addFonts: I had to give different font sizes numbers in 5.3 and 6.0 in order to get the same actual font sizes on screen. Not sure what happened there, I guess a bug was fixed (because the font support is much nicer now in 6.0) but still that's an incompatible change. 7)- RealEstateAgent scaleFactor The scale factor was by default initialized to 0.75 which made everything tiny; in 5.3 it was 1.0. 8) minor stuff now fixed There where other minor issues that were fixed in the update stream after I signaled them on squeak-dev. I'll just mention them for completeness sake: - rehash was needed in SmartRefStream>>#next - #encompassing:, #merging: did not accept a Set anymore - a one-character wide TextMorph would not resize properly All of this is now fine in 6.0, as of version 22110 All in all it was an interesting ride, and kudos to the developers for all the work that went into 6.0! Stef

4 8

running 32-bit Squeak in Ubuntu 22.04 64-bit
by Chris Muller 26 Aug '22

26 Aug '22

I need to open a 32-bit image on my new 64-bit laptop running Ubuntu 22.04 64-bit. I've relied on this great technique and script for the last few years to identify the required packages. https://milanvavra.wordpress.com/2017/02/27/squeak-5-1-32bit-installation-o… For my 22.04, it identifies: libc6-i386 libc6:i386 libgl1:i386 of which I installed all. Unfortunately, Squeak is still reporting the following error message when attempting to launch the image: ____ ./Squeak6.0-22104-32bit-202206021410-Linux-x86/bin/squeak ./Squeak6.0-22104-32bit-202206021410-Linux-x86/shared/Squeak6.0-22104-32bit.image vm-display-X11 tryLoading /home/cmm/Chris/dev/Squeak/Squeak6.0-22104-32bit-202206021410-Linux-x86/bin/vm-display-X11.so: dlopen: libXrender.so.1: cannot open shared object file: No such file or directory could not find display driver vm-display-X11; either: - check that /home/cmm/Chris/dev/Squeak/Squeak6.0-22104-32bit-202206021410-Linux-x86/bin//vm-display-X11.so exists, or - use the '-plugins <path>' option to tell me where it is, or - remove DISPLAY from your environment. Aborted (core dumped) ____ Any ideas? Has anyone else been able to get Squeak 6.0 32-bit running on an x86_64 machine? thanks.

2 1

← Newer
1
2
3
4
5
6
7
8
9
...
16
Older →

Jump to page: