Squeak-dev January 2023

squeak-dev@lists.squeakfoundation.org

31 participants
224 discussions

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

Transcript not working in Morphic projects ?
by karl ramberg 10 Jan '23

10 Jan '23

I have an issue with Morphic projects and Transcript. This is in latest Trunk image. Transcript works in HomeProject Transcript does not work in Unnamed1 ( This is a Morphic Project, it will show same transcript stream as HomeProject) Transcript work in Unnamed2 ( This is a MVC project) [image: bild.png] Best, Karl

6 16

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

x86 linux/ubuntu and security limit squeak.conf
by tim Rowledge 10 Jan '23

10 Jan '23

This has been annoying me for some time but since I'm waiting for yet another TestRunner run I have a moment to whine about it. On my Pi I have no problems with the /etc/security/limits.d/squeak.conf file. Well, none that I know of. If I run a system from commandline there is no complaint about it. On my x86 ubuntu machine I created the file. It has the same permissions as on the pi, and the same content, and the owner in both cases is root. If I run a system from a commandline the first thing I see is a complaint about needing the damn file! What can I do to solve this? Is it simply the VM code being mistaken? Is there some other ubuntu related security dance we have to do? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: FSM: Fold, Spindle and Mutilate

4 13

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

10 Jan '23

Christoph Thiede uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/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-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

linux armv8 VM builds from GitHub have weird date-naming
by tim Rowledge 09 Jan '23

09 Jan '23

The latest downloadable ARMv8 build - https://github.com/OpenSmalltalk/opensmalltalk-vm/releases/download/latest-… - has a weird looking directory structure. Normally I'd expect an sqcogspur64ARMv8linuxht directory I can drag out of the archive app and into my main Squeak directory, whereupon the contents get overlaid onto what was already there. Amongst other things I'd expect to find a new lib/squeak/5.0-20230103xxxxxxxx-64bit directory or similar. Instead it has lib/squeak/5.0-197001010000-64bit and I'm fairly sure we didn't have spur & cog in 1970. Who done broke the clock? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Long computations that yield zero are probably all for naught.

2 3

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

Jump to page: