Packages January 2023

packages@lists.squeakfoundation.org

1 participants
145 discussions

The Trunk: Morphic-ct.2051.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2051.mcz ==================== Summary ==================== Name: Morphic-ct.2051 Author: ct Time: 19 November 2022, 8:35:59.299387 pm UUID: 6d037f4d-9ad4-8f48-8a0b-b40df261c00c Ancestors: Morphic-mt.2049 Makes keyboard exerciser scale-factor-aware. Fixes layout of instruction text, which was previously not wrapped within the morph, overlapped the check buttons, and caused invalidations when moving or closing the exerciser. For this, uses a classical row-based tabel layout. =============== Diff against Morphic-mt.2049 =============== Item was changed: Morph subclass: #KeyboardExerciser + instanceVariableNames: 'checkButtons eventPane' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Demo'! Item was added: + ----- Method: KeyboardExerciser>>addCheckButtons (in category 'initialization') ----- + addCheckButtons + + | buttonPane | + buttonPane := Morph new + beTransparent; + changeTableLayout; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + listDirection: #leftToRight; + wrapDirection: #topToBottom; + cellGap: 10 px; + yourself. + + checkButtons := OrderedCollection new. + #(processKeyStroke 'Test key stroke' + processKeyDown 'Test key down' + processKeyUp 'Test key up') + groupsDo: [:selector :label | + | button | + button := ThreePhaseButtonMorph checkBox + target: self; + actionSelector: selector; + label: label; + yourself. + checkButtons addLast: button. + buttonPane addMorphBack: button]. + + self addMorphBack: buttonPane. + ^ buttonPane! Item was added: + ----- Method: KeyboardExerciser>>addEventPane (in category 'initialization') ----- + addEventPane + + eventPane := Morph new + beTransparent; + changeTableLayout; + listDirection: #leftToRight; + wrapDirection: #topToBottom; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + cellGap: 10 px; + height: 0; + yourself. + + self addMorphBack: eventPane. + ^ eventPane! Item was added: + ----- Method: KeyboardExerciser>>addTitle (in category 'initialization') ----- + addTitle + + | title | + title := TextMorph new + contents: 'Move your mouse cursor to here and start typing. Try modifiers, too.' translated; + font: Preferences standardButtonFont; + color: Color gray; + hResizing: #spaceFill; + lock; + yourself. + + self addMorphBack: title. + ^ title! Item was changed: ----- Method: KeyboardExerciser>>checkButton: (in category 'initialization') ----- checkButton: checkIndex + self checkButtons do: [:button | + button state: #off]. - 1 to: 3 do: [:index | - (self submorphs at: index) - state: #off]. + (self checkButtons at: checkIndex) state: #on.! - (self submorphs at: checkIndex) state: #on.! Item was added: + ----- Method: KeyboardExerciser>>checkButtons (in category 'accessing') ----- + checkButtons + + ^ checkButtons! Item was changed: ----- Method: KeyboardExerciser>>clear (in category 'initialization') ----- clear + eventPane removeAllMorphs. + eventPane height: 0.! - (self submorphs allButFirst: 3) do: [:m | m delete].! Item was removed: - ----- Method: KeyboardExerciser>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - - super drawOn: aCanvas. - - aCanvas - drawString: 'Move your mouse cursor to here and start typing. Try modifiers, too.' translated - at: self topLeft - font: Preferences standardButtonFont - color: Color gray.! Item was added: + ----- Method: KeyboardExerciser>>eventMorphs (in category 'accessing') ----- + eventMorphs + + ^ eventPane submorphs! Item was changed: ----- Method: KeyboardExerciser>>handleEvent:inspect: (in category 'actions') ----- handleEvent: mouseEvent inspect: morph + mouseEvent shiftPressed - mouseEvent shiftPressed ifTrue: [(morph valueOfProperty: #event) explore] ifFalse: [(morph valueOfProperty: #event) inspect].! Item was changed: ----- Method: KeyboardExerciser>>initialize (in category 'initialization') ----- initialize super initialize. self + color: ((self userInterfaceTheme get: #color for: #ScrollPane) ifNil: [Color white]); + borderStyle: ((self userInterfaceTheme get: #borderStyle for: #ScrollPane) ifNil: [BorderStyle simple]) copy; + borderColor: ((self userInterfaceTheme get: #borderColor for: #ScrollPane) ifNil: [Color gray: 0.6]); + borderWidth: (((self userInterfaceTheme get: #borderWidth for: #ScrollPane) ifNil: [1]) * RealEstateAgent scaleFactor) truncated; + extent: 300 px @ 50 px; - color: (self userInterfaceTheme get: #color for: #ScrollPane); - extent: 300@50; layoutPolicy: TableLayout new; + listDirection: #topToBottom; - listDirection: #leftToRight; - wrapDirection: #topToBottom; hResizing: #rigid; vResizing: #shrinkWrap; + cellGap: 10 px; + layoutInset: 20 px; - cellGap: 10; - layoutInset: 20; yourself. + self addTitle. + self addCheckButtons. + self addEventPane. - #(processKeyStroke 'Test key stroke' - processKeyDown 'Test key down' - processKeyUp 'Test key up') - groupsDo: [:selector :label | - self addMorphBack: (ThreePhaseButtonMorph checkBox - target: self; - actionSelector: selector; - label: label; - yourself)]. self processKeyStroke.! Item was added: + ----- Method: KeyboardExerciser>>instructionMorph (in category 'accessing') ----- + instructionMorph + + ^ self hasSubmorphs ifTrue: [self firstSubmorph]! Item was changed: ----- Method: KeyboardExerciser>>lastEvent (in category 'accessing') ----- lastEvent | view event | + view := (self eventMorphs ifEmpty: [^ nil]) last. - view := self submorphs last. (view hasProperty: #event) ifFalse: [^ nil]. event := view valueOfProperty: #event. event isCollection ifTrue: [event := event last]. ^ event! Item was changed: ----- Method: KeyboardExerciser>>logEvent: (in category 'event handling') ----- logEvent: evt | eventMorph | evt = self lastEvent ifTrue: [^ self logEventRepetition: evt]. eventMorph := evt asMorph. eventMorph setProperty: #event toValue: evt copy; balloonText: ('Click to inspect. Shift+click to explore.\\Virtual key: {8}\Virtual modifiers: {5}\\Physical key: {9}\Physical modifiers: {6}\\Key value: 0x{1} ({2}) \Key character: {3}\Key string: {4}\\{7}' translated withCRs format: { evt keyValue printPaddedWith: $0 to: 2 base: 16. evt keyValue. evt isKeystroke ifTrue: [evt keyCharacter printString] ifFalse: ['-']. evt isKeystroke ifTrue: [evt keyString printString] ifFalse: ['-']. (evt virtualModifiers joinSeparatedBy: ' ') asUppercase. (evt physicalModifiers joinSeparatedBy: ' ') asUppercase. evt printString. evt virtualKey printString. evt physicalKey asString printString}). eventMorph on: #mouseEnter send: #handleEvent:emphasize: to: self; on: #mouseLeave send: #handleEvent:deemphasize: to: self; on: #mouseDown send: #handleEvent:inspect: to: self. + eventPane addMorphBack: eventMorph.! - self addMorphBack: eventMorph.! Item was changed: ----- Method: KeyboardExerciser>>logEventRepetition: (in category 'event handling') ----- logEventRepetition: evt | label lastEvents box | + (self eventMorphs last hasProperty: #repetition) + ifTrue: [box := self eventMorphs last. label := box submorphs first] - (self submorphs last hasProperty: #repetition) - ifTrue: [box := self submorphs last. label := box submorphs first] ifFalse: [ box := Morph new setProperty: #repetition toValue: true; color: Color transparent; layoutPolicy: TableLayout new; hResizing: #shrinkWrap; vResizing:#shrinkWrap; yourself. label := '' asText asMorph lock. box addMorph: label. box setProperty: #event toValue: (OrderedCollection with: self lastEvent). + eventPane addMorphBack: box]. - self addMorphBack: box]. lastEvents := box valueOfProperty: #event. lastEvents add: evt copy. box setProperty: #event toValue: lastEvents. label newContents: (('x ', (lastEvents size)) asText addAttribute: (TextFontReference toFont: Preferences standardButtonFont); yourself). box balloonText: ('{1}{2}' format: { lastEvents size > 10 ifTrue: ['... {1} older events and:\' translated withCRs format: {lastEvents size - 10}] ifFalse: ['']. (lastEvents last: (10 min: lastEvents size)) joinSeparatedBy: String cr. }). box on: #mouseEnter send: #handleEvent:emphasize: to: self; on: #mouseLeave send: #handleEvent:deemphasize: to: self; on: #mouseDown send: #handleEvent:inspect: to: self.!

1 0

The Trunk: Morphic-ct.2057.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2057.mcz ==================== Summary ==================== Name: Morphic-ct.2057 Author: ct Time: 26 November 2022, 1:50:40.467518 pm UUID: 0bc53b37-9fd5-9643-8be1-722f0c6fd475 Ancestors: Morphic-ct.2056 Prevents pluggable buttons without a menu from acting on yellow-click. Why did we never notice this earlier? Yellow-click is for menus only ... =============== Diff against Morphic-ct.2056 =============== Item was changed: ----- Method: PluggableButtonMorph>>mouseUp: (in category 'event handling') ----- mouseUp: evt + evt yellowButtonChanged ifTrue: [^ super mouseUp: evt]. self updateFillStyle: evt. (self containsPoint: evt cursorPoint) ifTrue: [self performAction].!

1 0

The Trunk: Morphic-ct.2058.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2058.mcz ==================== Summary ==================== Name: Morphic-ct.2058 Author: ct Time: 1 January 2023, 9:21:31.503211 pm UUID: 02727fdc-2e41-be4a-92b1-7758d88ca11a Ancestors: Morphic-ct.2056 Fixes dangling formatting of IndentingListItemMorph labels when the previous label was a text and is now replaced with a string. You can reproduce this behavior by inserting the following before the last line in FontImporterTool>>#labelOf:: (label runs anySatisfy: #notEmpty) ifFalse: [label := label asString]. =============== Diff against Morphic-ct.2056 =============== Item was added: + ----- Method: IndentingListItemMorph>>contents: (in category 'initialization') ----- + contents: newContents + + (newContents isText not and: [self hasAnyAttributeFromText]) ifTrue: [ + "Make sure to reset attributes from previous label text." + ^ self contents: newContents asText]. + ^ super contents: newContents! Item was added: + ----- Method: IndentingListItemMorph>>hasAnyAttributeFromText (in category 'testing') ----- + hasAnyAttributeFromText + + ^ (self valueOfProperty: #hasFontFromText ifAbsent: [false]) + or: [self valueOfProperty: #hasEmphasisFromText ifAbsent: [false]] + or: [self valueOfProperty: #hasColorFromText ifAbsent: [false]]! Item was changed: ----- Method: IndentingListItemMorph>>initializeFromText: (in category 'initialization') ----- initializeFromText: aText "Overridden to keep track of text-based attributes." | priorFont priorEmphasis priorColor | priorFont := self font. priorEmphasis := self emphasis. priorColor := self color. super initializeFromText: aText. + self setProperty: #hasFontFromText toValue: priorFont ~~ self font. + self setProperty: #hasEmphasisFromText toValue: priorFont ~~ self emphasis. + self setProperty: #hasColorFromText toValue: priorColor ~~ self color.! - priorFont == self font - ifFalse: [self setProperty: #hasFontFromText toValue: true]. - priorFont == self emphasis - ifFalse: [self setProperty: #hasEmphasisFromText toValue: true]. - priorColor == self color - ifFalse: [self setProperty: #hasColorFromText toValue: true].!

1 0

The Trunk: Morphic-ct.2060.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2060.mcz ==================== Summary ==================== Name: Morphic-ct.2060 Author: ct Time: 10 January 2023, 7:54:33.802506 pm UUID: d1d3453c-34cf-444e-b978-93b4e70fcd56 Ancestors: Morphic-ct.2059 Preserves selection in TextMorph when changing the text style. =============== Diff against Morphic-ct.2059 =============== Item was changed: ----- Method: TextMorph>>textStyle: (in category 'accessing') ----- textStyle: aTextStyle "Change the receiver's set of fonts to aTextStyle. You can access those fonts via the TextFontChange text attribute. If you want to enfore a specific font face or point size, use #font: instead. NOTE THAT you must provide either a freshly created instance of TextStyle or a copy of an existing one. NEVER use, for example, TextStyle class >> #default directly. Also see senders and implementors of #asNewTextStyle." + | previousSelection | textStyle := aTextStyle. + previousSelection := self selectionInterval. + self releaseParagraph; changed. + previousSelection ifNotNil: [self selectionInterval: previousSelection].! - self releaseParagraph; changed.!

1 0

The Trunk: Morphic-mt.2061.mcz
by commits＠source.squeak.org 11 Jan '23

11 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2061.mcz ==================== Summary ==================== Name: Morphic-mt.2061 Author: mt Time: 11 January 2023, 1:49:35.875506 pm UUID: c8c81280-47e9-bf46-8852-577a736a8c90 Ancestors: Morphic-ct.2058, Morphic-ct.2060, Morphic-ct.2057, Morphic-ct.2051 Merges Morphic-ct.2058, Morphic-ct.2060, Morphic-ct.2057, Morphic-ct.2051. Morphic-ct.2058: Fixes dangling formatting of IndentingListItemMorph labels when the previous label was a text and is now replaced with a string. You can reproduce this behavior by inserting the following before the last line in FontImporterTool>>#labelOf:: (label runs anySatisfy: #notEmpty) ifFalse: [label := label asString]. Morphic-ct.2060: Preserves selection in TextMorph when changing the text style. Morphic-ct.2057: Prevents pluggable buttons without a menu from acting on yellow-click. Why did we never notice this earlier? Yellow-click is for menus only ... Morphic-ct.2051: Makes keyboard exerciser scale-factor-aware. Fixes layout of instruction text, which was previously not wrapped within the morph, overlapped the check buttons, and caused invalidations when moving or closing the exerciser. For this, uses a classical row-based tabel layout. =============== Diff against Morphic-ct.2056 =============== Item was changed: ----- Method: FillInTheBlankMorph class>>requestPassword:initialAnswer:centerAt:inWorld:onCancelReturn:acceptOnCR: (in category 'instance creation') ----- requestPassword: queryString initialAnswer: defaultAnswer centerAt: aPoint inWorld: aWorld onCancelReturn: returnOnCancel acceptOnCR: acceptBoolean "Create an instance of me whose question is queryString with the given initial answer. Invoke it centered at the given point, and answer the string the user accepts. If the user cancels, answer returnOnCancel." "FillInTheBlankMorph + requestPassword: 'Type something, then type CR.' - request: 'Type something, then type CR.' initialAnswer: 'yo ho ho!!' + centerAt: Display center + inWorld: self currentWorld + onCancelReturn: nil + acceptOnCR: true" - centerAt: Display center" | aFillInTheBlankMorph | aFillInTheBlankMorph := self new setPasswordQuery: queryString initialAnswer: defaultAnswer answerHeight: 50 acceptOnCR: acceptBoolean. aFillInTheBlankMorph createAcceptButton action: [aFillInTheBlankMorph textPane accept]. aFillInTheBlankMorph createCancelButton action: [aFillInTheBlankMorph closeDialog: returnOnCancel]. aFillInTheBlankMorph preferredPosition: aPoint. ^ aFillInTheBlankMorph getUserResponse! Item was added: + ----- Method: IndentingListItemMorph>>contents: (in category 'accessing') ----- + contents: newContents + + (newContents isText not and: [self hasAnyAttributeFromText]) ifTrue: [ + "Make sure to reset attributes from previous label text." + ^ self contents: newContents asText]. + ^ super contents: newContents! Item was added: + ----- Method: IndentingListItemMorph>>hasAnyAttributeFromText (in category 'testing') ----- + hasAnyAttributeFromText + + ^ (self hasProperty: #hasFontFromText) + or: [self hasProperty: #hasEmphasisFromText] + or: [self hasProperty: #hasColorFromText]! Item was changed: ----- Method: IndentingListItemMorph>>initWithColor:andFont: (in category 'initialization') ----- initWithColor: aColor andFont: aFont + "Configure the receiver with aColor and aFont as prescribed by the owning tree morph. Ignore a property if overridden from text label. See #initializeFromText:. + That is, a tree morph prescribes a certain appearance for all its items, which it will constantly create and destroy as users collapse and expand items in the tree. During construction of each item, any text label will be set *before* calling this method. So we can check #hasColorFromText and other flags that will help us decide whether to keep a property or not." (self hasProperty: #hasColorFromText) ifFalse: [self color: aColor]. (self hasProperty: #hasEmphasisFromText) ifTrue: [ (self hasProperty: #hasFontFromText) ifFalse: [self font: aFont "Keeps emphasis from text."]] ifFalse: [ (self hasProperty: #hasFontFromText) ifTrue: [self emphasis: aFont emphasis "Keeps font from text."] ifFalse: [self font: aFont emphasis: aFont emphasis]] ! Item was changed: ----- Method: IndentingListItemMorph>>initializeFromText: (in category 'initialization') ----- initializeFromText: aText "Overridden to keep track of text-based attributes." | priorFont priorEmphasis priorColor | priorFont := self font. priorEmphasis := self emphasis. priorColor := self color. super initializeFromText: aText. + self setProperty: #hasFontFromText toValue: priorFont ~~ self font. + self setProperty: #hasEmphasisFromText toValue: priorFont ~~ self emphasis. + self setProperty: #hasColorFromText toValue: priorColor ~~ self color.! - priorFont == self font - ifFalse: [self setProperty: #hasFontFromText toValue: true]. - priorFont == self emphasis - ifFalse: [self setProperty: #hasEmphasisFromText toValue: true]. - priorColor == self color - ifFalse: [self setProperty: #hasColorFromText toValue: true].! Item was changed: ----- Method: IndentingListItemMorph>>refresh (in category 'initialization') ----- refresh + "Query model data to update the visual appearance of the receiver, which includes icons and text emphasis. Invoked when a model sends #objectChanged via #changed:with:. See PluggableTreeMorph >> #updateMorph:." self contents: self getLabel. self refreshIcon. (self valueOfProperty: #wasRefreshed ifAbsent: [false]) ifFalse: [ self setProperty: #wasRefreshed toValue: true].! Item was changed: Morph subclass: #KeyboardExerciser + instanceVariableNames: 'checkButtons eventPane' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Demo'! Item was added: + ----- Method: KeyboardExerciser>>addCheckButtons (in category 'initialization') ----- + addCheckButtons + + | buttonPane | + buttonPane := Morph new + beTransparent; + changeTableLayout; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + listDirection: #leftToRight; + wrapDirection: #topToBottom; + cellGap: 10 px; + yourself. + + checkButtons := OrderedCollection new. + #(processKeyStroke 'Test key stroke' + processKeyDown 'Test key down' + processKeyUp 'Test key up') + groupsDo: [:selector :label | + | button | + button := ThreePhaseButtonMorph checkBox + target: self; + actionSelector: selector; + label: label; + yourself. + checkButtons addLast: button. + buttonPane addMorphBack: button]. + + self addMorphBack: buttonPane. + ^ buttonPane! Item was added: + ----- Method: KeyboardExerciser>>addEventPane (in category 'initialization') ----- + addEventPane + + eventPane := Morph new + beTransparent; + changeTableLayout; + listDirection: #leftToRight; + wrapDirection: #topToBottom; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + cellGap: 5 px; + height: 0; + yourself. + + self addMorphBack: eventPane. + ^ eventPane! Item was added: + ----- Method: KeyboardExerciser>>addTitle (in category 'initialization') ----- + addTitle + + | title | + title := TextMorph new + contents: 'Move your mouse cursor to here and start typing. Try modifiers, too.' translated; + font: Preferences standardButtonFont; + color: Color gray; + hResizing: #spaceFill; + lock; + yourself. + + self addMorphBack: title. + ^ title! Item was changed: ----- Method: KeyboardExerciser>>checkButton: (in category 'initialization') ----- checkButton: checkIndex + self checkButtons do: [:button | + button state: #off]. - 1 to: 3 do: [:index | - (self submorphs at: index) - state: #off]. + (self checkButtons at: checkIndex) state: #on.! - (self submorphs at: checkIndex) state: #on.! Item was added: + ----- Method: KeyboardExerciser>>checkButtons (in category 'accessing') ----- + checkButtons + + ^ checkButtons! Item was changed: ----- Method: KeyboardExerciser>>clear (in category 'initialization') ----- clear + eventPane removeAllMorphs. + eventPane height: 0.! - (self submorphs allButFirst: 3) do: [:m | m delete].! Item was removed: - ----- Method: KeyboardExerciser>>drawOn: (in category 'drawing') ----- - drawOn: aCanvas - - super drawOn: aCanvas. - - aCanvas - drawString: 'Move your mouse cursor to here and start typing. Try modifiers, too.' translated - at: self topLeft - font: Preferences standardButtonFont - color: Color gray.! Item was added: + ----- Method: KeyboardExerciser>>eventMorphs (in category 'accessing') ----- + eventMorphs + + ^ eventPane submorphs! Item was changed: ----- Method: KeyboardExerciser>>handleEvent:inspect: (in category 'actions') ----- handleEvent: mouseEvent inspect: morph + mouseEvent shiftPressed - mouseEvent shiftPressed ifTrue: [(morph valueOfProperty: #event) explore] ifFalse: [(morph valueOfProperty: #event) inspect].! Item was changed: ----- Method: KeyboardExerciser>>initialize (in category 'initialization') ----- initialize super initialize. self + color: ((self userInterfaceTheme get: #color for: #ScrollPane) ifNil: [Color white]); + borderStyle: ((self userInterfaceTheme get: #borderStyle for: #ScrollPane) ifNil: [BorderStyle simple]) copy; + borderColor: ((self userInterfaceTheme get: #borderColor for: #ScrollPane) ifNil: [Color gray: 0.6]); + borderWidth: (((self userInterfaceTheme get: #borderWidth for: #ScrollPane) ifNil: [1]) * RealEstateAgent scaleFactor) truncated; + extent: 350 px @ 50 px; - color: (self userInterfaceTheme get: #color for: #ScrollPane); - extent: 300@50; layoutPolicy: TableLayout new; + listDirection: #topToBottom; - listDirection: #leftToRight; - wrapDirection: #topToBottom; hResizing: #rigid; vResizing: #shrinkWrap; + cellGap: 10 px; + layoutInset: 13 px @ 10 px; - cellGap: 10; - layoutInset: 20; yourself. + self addTitle. + self addCheckButtons. + self addEventPane. - #(processKeyStroke 'Test key stroke' - processKeyDown 'Test key down' - processKeyUp 'Test key up') - groupsDo: [:selector :label | - self addMorphBack: (ThreePhaseButtonMorph checkBox - target: self; - actionSelector: selector; - label: label; - yourself)]. self processKeyStroke.! Item was added: + ----- Method: KeyboardExerciser>>instructionMorph (in category 'accessing') ----- + instructionMorph + + ^ self hasSubmorphs ifTrue: [self firstSubmorph]! Item was changed: ----- Method: KeyboardExerciser>>lastEvent (in category 'accessing') ----- lastEvent | view event | + view := (self eventMorphs ifEmpty: [^ nil]) last. - view := self submorphs last. (view hasProperty: #event) ifFalse: [^ nil]. event := view valueOfProperty: #event. event isCollection ifTrue: [event := event last]. ^ event! Item was changed: ----- Method: KeyboardExerciser>>logEvent: (in category 'event handling') ----- logEvent: evt | eventMorph | evt = self lastEvent ifTrue: [^ self logEventRepetition: evt]. eventMorph := evt asMorph. eventMorph setProperty: #event toValue: evt copy; balloonText: ('Click to inspect. Shift+click to explore.\\Virtual key: {8}\Virtual modifiers: {5}\\Physical key: {9}\Physical modifiers: {6}\\Key value: 0x{1} ({2}) \Key character: {3}\Key string: {4}\\{7}' translated withCRs format: { evt keyValue printPaddedWith: $0 to: 2 base: 16. evt keyValue. evt isKeystroke ifTrue: [evt keyCharacter printString] ifFalse: ['-']. evt isKeystroke ifTrue: [evt keyString printString] ifFalse: ['-']. (evt virtualModifiers joinSeparatedBy: ' ') asUppercase. (evt physicalModifiers joinSeparatedBy: ' ') asUppercase. evt printString. evt virtualKey printString. evt physicalKey asString printString}). eventMorph on: #mouseEnter send: #handleEvent:emphasize: to: self; on: #mouseLeave send: #handleEvent:deemphasize: to: self; on: #mouseDown send: #handleEvent:inspect: to: self. + eventPane addMorphBack: eventMorph.! - self addMorphBack: eventMorph.! Item was changed: ----- Method: KeyboardExerciser>>logEventRepetition: (in category 'event handling') ----- logEventRepetition: evt | label lastEvents box | + (self eventMorphs last hasProperty: #repetition) + ifTrue: [box := self eventMorphs last. label := box submorphs first] - (self submorphs last hasProperty: #repetition) - ifTrue: [box := self submorphs last. label := box submorphs first] ifFalse: [ box := Morph new setProperty: #repetition toValue: true; color: Color transparent; layoutPolicy: TableLayout new; hResizing: #shrinkWrap; vResizing:#shrinkWrap; yourself. label := '' asText asMorph lock. box addMorph: label. box setProperty: #event toValue: (OrderedCollection with: self lastEvent). + eventPane addMorphBack: box]. - self addMorphBack: box]. lastEvents := box valueOfProperty: #event. lastEvents add: evt copy. box setProperty: #event toValue: lastEvents. label newContents: (('x ', (lastEvents size)) asText addAttribute: (TextFontReference toFont: Preferences standardButtonFont); yourself). box balloonText: ('{1}{2}' format: { lastEvents size > 10 ifTrue: ['... {1} older events and:\' translated withCRs format: {lastEvents size - 10}] ifFalse: ['']. (lastEvents last: (10 min: lastEvents size)) joinSeparatedBy: String cr. }). box on: #mouseEnter send: #handleEvent:emphasize: to: self; on: #mouseLeave send: #handleEvent:deemphasize: to: self; on: #mouseDown send: #handleEvent:inspect: to: self.! Item was changed: ----- Method: PluggableButtonMorph>>mouseUp: (in category 'event handling') ----- mouseUp: evt + evt yellowButtonChanged ifTrue: [^ super mouseUp: evt]. self updateFillStyle: evt. (self containsPoint: evt cursorPoint) ifTrue: [self performAction].! Item was changed: ----- Method: TextMorph>>textStyle: (in category 'accessing') ----- textStyle: aTextStyle "Change the receiver's set of fonts to aTextStyle. You can access those fonts via the TextFontChange text attribute. If you want to enfore a specific font face or point size, use #font: instead. NOTE THAT you must provide either a freshly created instance of TextStyle or a copy of an existing one. NEVER use, for example, TextStyle class >> #default directly. Also see senders and implementors of #asNewTextStyle." + | previousSelection | textStyle := aTextStyle. + previousSelection := self selectionInterval. + self releaseParagraph; changed. + previousSelection ifNotNil: [self selectionInterval: previousSelection].! - self releaseParagraph; changed.! Item was changed: ----- Method: TheWorldMainDockingBar>>transcriptMenuItemOn: (in category 'submenu - tools') ----- transcriptMenuItemOn: menu menu addItem: [ :item | item contents: 'Transcript' translated; help: 'Open the Transcript' translated; icon: (self colorIcon: Transcript windowColorToUse); + target: [ (Smalltalk at: #Transcript) open ]; + selector: #value ].! - target: Transcript; - selector: #open ]! Item was changed: ----- Method: TheWorldMenu>>openTranscript (in category 'commands') ----- openTranscript + Transcript open.! - Transcript openLabel: 'Transcript'! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Fix ''Tools > Transcript'' to make it late-bound."'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Updates menu for Help > Contributing to Squeak"'!

1 0

The Trunk: Compiler-eem.484.mcz
by commits＠source.squeak.org 10 Jan '23

10 Jan '23

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.484.mcz ==================== Summary ==================== Name: Compiler-eem.484 Author: eem Time: 10 January 2023, 12:42:03.339564 pm UUID: f98aa13d-19cf-4f6a-8bd6-31a0429c0d15 Ancestors: Compiler-eem.483 Fix an aliasing bug in the Decompiler that could cause it to enter an infinite loop decompiling conditionals. The copy used to decompile a full block must partially reinitialize to avoid aliasing lastJumpPc. =============== Diff against Compiler-eem.483 =============== Item was added: + ----- Method: Decompiler>>initializeCopy (in category 'control') ----- + initializeCopy + lastJumpPc := lastReturnPc := exit := limit := nil. + stack := OrderedCollection new. + caseExits := OrderedCollection new. + lastJumpIfPcStack := OrderedCollection new. + ! Item was changed: ----- Method: Decompiler>>interpretNextInstructionFor: (in category 'private') ----- interpretNextInstructionFor: client + | varNames | + "Change false here (& edit statementsTo:) to trace all state in Transcript, printing pcs as relative to method initialPC." - | code varNames | - - "Change false here will trace all state in Transcript." true ifTrue: [^super interpretNextInstructionFor: client]. varNames := self class allInstVarNames. + Transcript crtab. self printPCRelative: pc on: Transcript. + Transcript space; nextPut: $<. + (self method at: pc) printOn: Transcript base: 16. + Transcript nextPut: $>; cr. - code := (self method at: pc) radix: 16. - Transcript cr; cr; print: pc; space; nextPutAll: '<' , code, '>'. (varNames indexOf: 'stack') to: varNames size do: + [:i | | name | + name := varNames at: i. + self printInstVarNamed: name + at: i + on: Transcript + asPc: (#('pc' 'lastPc' 'exit' 'caseExits' 'lastJumpPc' 'lastReturnPc' 'limit' 'lastJumpIfPcStack') includes: name)]. - [:i | - i <= 10 ifTrue: [Transcript cr] ifFalse: [Transcript space; space]. - Transcript nextPutAll: (varNames at: i); nextPutAll: ': '; print: (self instVarAt: i)]. Transcript flush. ^super interpretNextInstructionFor: client! Item was added: + ----- Method: Decompiler>>printInstVarNamed:at:on:asPc: (in category 'private') ----- + printInstVarNamed: ivName at: index on: aStream asPc: isPC + + | value | + aStream tab; nextPutAll: ivName; nextPutAll: ': '. + value := self instVarAt: index. + isPC + ifTrue: + [value isCollection + ifTrue: [value do: [:v| self printPCRelative: v on: aStream. aStream space]] + ifFalse: [self printPCRelative: value on: aStream. aStream space]] + ifFalse: + [value printOn: aStream]. + aStream cr! Item was added: + ----- Method: Decompiler>>printPCRelative:on: (in category 'private') ----- + printPCRelative: value on: aStream + value + ifNil: [value printOn: aStream] + ifNotNil: + [value < method initialPC + ifTrue: [value printOn: aStream] + ifFalse: [aStream nextPut: $+; print: value - method initialPC]]! Item was changed: ----- Method: Decompiler>>pushFullClosure:numCopied: (in category 'instruction decoding') ----- pushFullClosure: aCompiledBlock numCopied: numCopied | copiedValues | copiedValues := ((1 to: numCopied) collect: [:ign| stack removeLast]) reversed. + stack addLast: (self shallowCopy initializeCopy doClosureCopy: aCompiledBlock copiedValues: copiedValues)! - stack addLast: (self shallowCopy doClosureCopy: aCompiledBlock copiedValues: copiedValues)! Item was changed: ----- Method: Decompiler>>statementsTo: (in category 'control') ----- statementsTo: end "Decompile the method from pc up to end and return an array of expressions. If at run time this block will leave a value on the stack, set hasValue to true. If the block ends with a jump or return, set exit to the destination of the jump, or the end of the method; otherwise, set exit = end. Leave pc = end." + | encoderClass blockPos stackPos localLastPC initialPC | + initialPC := pc. - | encoderClass blockPos stackPos localLastPC | encoderClass := method encoderClass. blockPos := statements size. stackPos := stack size. [pc < end] whileTrue: + [lastPc := localLastPC := pc. limit := end. "for performs" + "for logging use the first form" + false + ifTrue: [self interpretNextInstructionFor: self] + ifFalse: [encoderClass interpretNextInstructionFor: self in: self]]. + "If there is an additional item on the stack, it will be the value of this block." - [lastPc := localLastPC := pc. limit := end. "for performs" - "If you want instrumentation replace the following statement with this one, - and edit the implementation: - self interpretNextInstructionFor: self" - encoderClass interpretNextInstructionFor: self in: self]. - "If there is an additional item on the stack, it will be the value - of this block." (hasValue := stack size > stackPos) ifTrue: [statements addLast: stack removeLast]. lastJumpPc = lastPc ifFalse: [exit := pc]. ^self popTo: blockPos!

1 0

The Trunk: Morphic-ct.2059.mcz
by commits＠source.squeak.org 10 Jan '23

10 Jan '23

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2059.mcz ==================== Summary ==================== Name: Morphic-ct.2059 Author: ct Time: 10 January 2023, 7:53:24.619506 pm UUID: 1290c367-ee35-e941-8b6f-293da41799d7 Ancestors: Morphic-mt.2057 Fixes documentation example for FillInTheBlankMorph class>>#requestPassword:initialAnswer:centerAt:inWorld:onCancelReturn:acceptOnCR:. =============== Diff against Morphic-mt.2057 =============== Item was changed: ----- Method: FillInTheBlankMorph class>>requestPassword:initialAnswer:centerAt:inWorld:onCancelReturn:acceptOnCR: (in category 'instance creation') ----- requestPassword: queryString initialAnswer: defaultAnswer centerAt: aPoint inWorld: aWorld onCancelReturn: returnOnCancel acceptOnCR: acceptBoolean "Create an instance of me whose question is queryString with the given initial answer. Invoke it centered at the given point, and answer the string the user accepts. If the user cancels, answer returnOnCancel." "FillInTheBlankMorph + requestPassword: 'Type something, then type CR.' - request: 'Type something, then type CR.' initialAnswer: 'yo ho ho!!' + centerAt: Display center + inWorld: self currentWorld + onCancelReturn: nil + acceptOnCR: true" - centerAt: Display center" | aFillInTheBlankMorph | aFillInTheBlankMorph := self new setPasswordQuery: queryString initialAnswer: defaultAnswer answerHeight: 50 acceptOnCR: acceptBoolean. aFillInTheBlankMorph createAcceptButton action: [aFillInTheBlankMorph textPane accept]. aFillInTheBlankMorph createCancelButton action: [aFillInTheBlankMorph closeDialog: returnOnCancel]. aFillInTheBlankMorph preferredPosition: aPoint. ^ aFillInTheBlankMorph getUserResponse!

1 0

The Trunk: Kernel-eem.1496.mcz
by commits＠source.squeak.org 09 Jan '23

09 Jan '23

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1496.mcz ==================== Summary ==================== Name: Kernel-eem.1496 Author: eem Time: 9 January 2023, 10:14:53.48949 am UUID: 34ebd1bb-6af6-43f7-b335-abf5dc61d555 Ancestors: Kernel-eem.1495 Fix interpretJump (Decompiler) for SistaV1 short jumps. (how on earth has this gone undetected for 8+ years??) =============== Diff against Kernel-eem.1495 =============== Item was changed: ----- Method: InstructionStream>>interpretSistaV1Jump (in category 'decoding - private - sista v1') ----- interpretSistaV1Jump "If the instruction at pc is an unconditional jump, interpret it, advancing the pc, and answering the jump distance. Otherwise answer nil." " 176-183 10110 iii Jump iii + 1 (i.e., 1 through 8) * 225/16rE1 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B) * 237 11101101 iiiiiiii Jump #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)" | method byte nextpc extB | method := self method. "consume and compute any extension first." extB := 0. nextpc := pc. "must not advance pc unless this is a jump." [byte := self method at: nextpc. nextpc := nextpc + 1. byte = 16rE1] whileTrue: [| extByte | extByte := self method at: nextpc. nextpc := nextpc + 1. extB := (extB = 0 and: [extByte > 127]) ifTrue: [extByte - 256] ifFalse: [(extB bitShift: 8) + extByte]]. (byte between: 176 and: 183) ifTrue: [pc := nextpc. + ^byte - 175]. - ^byte - 191]. byte = 237 ifTrue: [byte := method at: nextpc. pc := nextpc + 1. ^(extB bitShift: 8) + byte]. ^nil!

1 0

The Trunk: Morphic-mt.2057.mcz
by commits＠source.squeak.org 09 Jan '23

09 Jan '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2057.mcz ==================== Summary ==================== Name: Morphic-mt.2057 Author: mt Time: 9 January 2023, 11:00:54.890325 am UUID: f093a34d-1306-2f44-89ca-f90c796f94c4 Ancestors: Morphic-ct.2056 Fixes two issues with Trascript: 1. "World Menu > Open... > transcript" should always count open transcripts 2. Menu item "Tools > Transcript" must not bind Transcript global but use Smalltalk>>#at: lookup. The second bug occurred the moment we executed initialization code for new morphic projects to immediately render a preview thumbnail. Note that I am still not in favor of executing code of a new project in the scope of the current project due to process management, globals, and other stuff. Let's keep an eye on this. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-December/222795… I will backport this to Squeak 6.0. =============== Diff against Morphic-ct.2056 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>transcriptMenuItemOn: (in category 'submenu - tools') ----- transcriptMenuItemOn: menu menu addItem: [ :item | item contents: 'Transcript' translated; help: 'Open the Transcript' translated; icon: (self colorIcon: Transcript windowColorToUse); + target: [ (Smalltalk at: #Transcript) open ]; + selector: #value ].! - target: Transcript; - selector: #open ]! Item was changed: ----- Method: TheWorldMenu>>openTranscript (in category 'commands') ----- openTranscript + Transcript open.! - Transcript openLabel: 'Transcript'! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Fix ''Tools > Transcript'' to make it late-bound."'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "Updates menu for Help > Contributing to Squeak"'!

1 0

The Trunk: Tools-ct.1180.mcz
by commits＠source.squeak.org 07 Jan '23

07 Jan '23

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1180.mcz ==================== Summary ==================== Name: Tools-ct.1180 Author: ct Time: 7 January 2023, 4:39:58.499428 pm UUID: b684cc9c-3284-5346-9a19-931d8f2f9b96 Ancestors: Tools-ct.1179 Eliminates incorrectly displayed tabs from a PopUpMenu label in a message trace. When escaping from the menu, do not browse any implementors instead of the first selector. =============== Diff against Tools-ct.1179 =============== Item was changed: ----- Method: MessageTrace>>browseAllImplementorsOf:requestor: (in category 'actions') ----- browseAllImplementorsOf: selectorSymbol requestor: anObject "Overwritten to modify the trace if the request origins from a model-menu command such as the message-list menu (shortcut)." | selectorToBrowse | selectorToBrowse := self selection ifNil: [ selectorSymbol ] + ifNotNil: [ + (self getImplementorNamed: selectorSymbol asSymbol "since we can get passed literals") + ifNil: [^ self]]. - ifNotNil: [ self getImplementorNamed: selectorSymbol asSymbol "since we can get passed literals"]. (Preferences traceMessages and: [ self hasUnacceptedEdits not ]) ifTrue: [ self addChildMethodsNamed: selectorToBrowse ] ifFalse: [ super browseAllImplementorsOf: selectorToBrowse requestor: anObject ].! Item was changed: ----- Method: MessageTrace>>getImplementorNamed: (in category 'private accessing') ----- getImplementorNamed: selectorSymbol | allPossibilities | allPossibilities := (((self selection compiledMethod messages select: [ :eachSelector | eachSelector beginsWith: selectorSymbol ]) copyWith: selectorSymbol) select: [ :each | (Symbol lookup: each) notNil ]) asSet asOrderedCollection sort. (allPossibilities includes: selectorSymbol) ifTrue: [ allPossibilities addFirst: (allPossibilities remove: selectorSymbol) ]. ^allPossibilities size > 1 ifTrue: [ | selectionIndex | selectionIndex := (PopUpMenu labelArray: allPossibilities lines: #(1)) + startUpWithCaption: 'Browse implementors of which message?' translated. + selectionIndex = 0 ifFalse: [ allPossibilities at: selectionIndex ] ] - startUpWithCaption: - 'Browse implementors of - which message?'. - selectionIndex = 0 ifTrue: [ selectorSymbol ] ifFalse: [ allPossibilities at: selectionIndex ] ] ifFalse: [ allPossibilities isEmpty ifTrue: [ selectorSymbol ] + ifFalse: [ allPossibilities first ] ]! - ifFalse: [ allPossibilities first ] ] - !

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2023