Packages November 2022

packages@lists.squeakfoundation.org

1 participants
35 discussions

The Trunk: Kernel-ct.1294.mcz
by commits＠source.squeak.org 07 Nov '22

07 Nov '22

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1294.mcz ==================== Summary ==================== Name: Kernel-ct.1294 Author: ct Time: 9 January 2020, 3:42:36.672555 pm UUID: 7409dcc3-160e-9d44-9712-f266e0f25973 Ancestors: Kernel-nice.1292 Proposal: Add #haltOnceIf: to Object, which combines the strengths of #haltOnce and #haltIf:. Especially useful in performance-critical situations: It HaltOnce is disabled, the condition will not be evaluated at all. =============== Diff against Kernel-nice.1292 =============== Item was changed: ----- Method: Object>>haltIf: (in category 'debugging') ----- + haltIf: aCondition + "This is the typical message to use for inserting breakpoints during debugging. Param can be a block or expression, halt if true. - haltIf: condition - "This is the typical message to use for inserting breakpoints during - debugging. Param can be a block or expression, halt if true. If the Block has one arg, the receiver is bound to that. + If the condition is a selector, we look up in the callchain. Halt if any method's selector equals selector." - If the condition is a selector, we look up in the callchain. Halt if - any method's selector equals selector." - | cntxt | + ^ (self meetsHaltCondition: aCondition) + ifTrue: [self halt]! - condition isSymbol ifTrue:[ - "only halt if a method with selector symbol is in callchain" - cntxt := thisContext. - [cntxt sender isNil] whileFalse: [ - cntxt := cntxt sender. - (cntxt selector = condition) ifTrue: [Halt signal]. - ]. - ^self. - ]. - (condition isBlock - ifTrue: [condition cull: self] - ifFalse: [condition] - ) ifTrue: [ - Halt signal - ].! Item was added: + ----- Method: Object>>haltOnceIf: (in category 'debugging') ----- + haltOnceIf: aCondition + "Check aCondition and halt, unless we have already done it once. See #meetsHaltCondition:." + + self haltOnceEnabled ifFalse: [^ self]. + ^ (self meetsHaltCondition: aCondition) + ifTrue: [ + self clearHaltOnce; halt].! Item was added: + ----- Method: Object>>meetsHaltCondition: (in category 'debugging') ----- + meetsHaltCondition: aCondition + "If the Block has one arg, the receiver is bound to that. + If the condition is a selector, we look up in the callchain. Halt if any method's selector equals selector." + + aCondition isSymbol ifTrue: [ | ctxt | + "only halt if a method with selector symbol is in callchain" + ctxt := thisContext. + [(ctxt := ctxt sender) isNil] whileFalse: [ + (ctxt selector = aCondition) ifTrue: [^ true] ]. + ^ false ]. + ^ aCondition isBlock + ifTrue: [aCondition cull: self] + ifFalse: [aCondition value]!

1 0

The Trunk: KernelTests-ct.437.mcz
by commits＠source.squeak.org 07 Nov '22

07 Nov '22

Christoph Thiede uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ct.437.mcz ==================== Summary ==================== Name: KernelTests-ct.437 Author: ct Time: 7 November 2022, 8:51:49.281226 pm UUID: fc0ce7a3-e562-e741-a923-d825e2ff3b4e Ancestors: KernelTests-jar.436, KernelTests-ct.374 Merges KernelTests-ct.374: Tests #haltOnce and #haltOnceIf:. Refactors tests for #haltIf:. Complements Kernel-ct.1294. Revision: Minor refactoring. =============== Diff against KernelTests-jar.436 =============== Item was added: + ----- Method: ObjectTest>>resetHaltOnceAfter: (in category 'running') ----- + resetHaltOnceAfter: aBlock + + | outerState | + outerState := self haltOnceEnabled. + ^ aBlock ensure: [ + outerState + ifTrue: [self setHaltOnce] + ifFalse: [self clearHaltOnce] ]! Item was added: + ----- Method: ObjectTest>>shouldHalt: (in category 'asserting') ----- + shouldHalt: aBlock + + ^ self + should: aBlock + raise: Halt! Item was added: + ----- Method: ObjectTest>>shouldntHalt: (in category 'asserting') ----- + shouldntHalt: aBlock + + ^ self + shouldnt: aBlock + raise: Halt! Item was changed: + ----- Method: ObjectTest>>testHaltIf (in category 'tests - debugging') ----- - ----- Method: ObjectTest>>testHaltIf (in category 'tests - testing') ----- testHaltIf + self shouldHalt: [self haltIf: true]. + self shouldntHalt: [self haltIf: false]. + + self shouldHalt: [self haltIf: [true]]. + self shouldntHalt: [self haltIf: [false]]. + + self shouldHalt: [self haltIf: #testHaltIf]. + self shouldntHalt: [self haltIf: #teadfasdfltIf]. + + self shouldHalt: [self a]. + self shouldntHalt: [self a1]. + + self shouldHalt: [self haltIf: [:o | o class = self class]]. + self shouldntHalt: [self haltIf: [:o | o class ~= self class]].! - self should: [self haltIf: true] raise: Halt. - self haltIf: false. - - self should: [self haltIf: [true]] raise: Halt. - self haltIf: [false]. - - self should: [self haltIf: #testHaltIf.] raise: Halt. - self haltIf: #teadfasdfltIf. - - self should: [self a] raise: Halt. - self a1. - - self should: [self haltIf: [:o | o class = self class]] raise: Halt. - self haltIf: [:o | o class ~= self class]. - ! Item was added: + ----- Method: ObjectTest>>testHaltOnce (in category 'tests - debugging') ----- + testHaltOnce + + self resetHaltOnceAfter: [ + self setHaltOnce. + self assert: [self haltOnceEnabled]. + self shouldHalt: [self haltOnce]. + self deny: [self haltOnceEnabled]. + self shouldntHalt: [self haltOnce]. + + self setHaltOnce. + self assert: [self haltOnceEnabled]. + self clearHaltOnce. + self deny: [self haltOnceEnabled]. + self shouldntHalt: [self haltOnce]].! Item was added: + ----- Method: ObjectTest>>testHaltOnceIf (in category 'tests - debugging') ----- + testHaltOnceIf + + self resetHaltOnceAfter: [ + | tested | + self setHaltOnce. + self shouldHalt: [self haltOnceIf: true]. + self shouldntHalt: [self haltOnceIf: true]. + + self setHaltOnce. + self shouldntHalt: [self haltOnceIf: false]. + self assert: [self haltOnceEnabled]. + + self setHaltOnce. + tested := false. + self shouldHalt: [self haltOnceIf: [tested := true]]. + self assert: tested. + tested := false. + self shouldntHalt: [self haltOnceIf: [tested := true]]. + self deny: tested. + + self setHaltOnce. + tested := false. + self shouldntHalt: [self haltOnceIf: [(tested := true) not]]. + self assert: [self haltOnceEnabled]. + self assert: tested. + tested := false. + self shouldntHalt: [self haltOnceIf: [(tested := true) not]]. + self assert: [self haltOnceEnabled]. + self assert: tested].! Item was changed: + ----- Method: ObjectTest>>testNotNil (in category 'tests - debugging') ----- - ----- Method: ObjectTest>>testNotNil (in category 'tests - testing') ----- testNotNil self assert: Object new notNil!

1 0

The Trunk: Kernel-ct.1491.mcz
by commits＠source.squeak.org 07 Nov '22

07 Nov '22

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1491.mcz ==================== Summary ==================== Name: Kernel-ct.1491 Author: ct Time: 7 November 2022, 8:51:11.997226 pm UUID: 78f3b27b-1a68-4d42-b796-c7edbe07870c Ancestors: Kernel-ct.1489, Kernel-ct.1294 Merges Kernel-ct.1294: Add #haltOnceIf: to Object, which combines the strengths of #haltOnce and #haltIf:. Especially useful in performance-critical situations: It HaltOnce is disabled, the condition will not be evaluated at all. Revision: Minor refactoring. Argument renaming, make use of #findContextSuchThat:. =============== Diff against Kernel-ct.1489 =============== Item was changed: ----- Method: Object>>haltIf: (in category 'debugging') ----- + haltIf: aBooleanOrBlockOrSelector + "This is the typical message to use for inserting breakpoints during debugging. Param can be a boolean block or value, halt if true. + If the block has one arg, the receiver is bound to that. + If the argument is a selector, we look up in the callchain. Halt if any method's selector equals selector." - haltIf: condition - "This is the typical message to use for inserting breakpoints during - debugging. Param can be a block or expression, halt if true. - If the Block has one arg, the receiver is bound to that. - If the condition is a selector, we look up in the callchain. Halt if - any method's selector equals selector." - | cntxt | + ^ (self meetsHaltCondition: aBooleanOrBlockOrSelector) + ifTrue: [self halt]! - condition isSymbol ifTrue:[ - "only halt if a method with selector symbol is in callchain" - cntxt := thisContext. - [cntxt sender isNil] whileFalse: [ - cntxt := cntxt sender. - (cntxt selector = condition) ifTrue: [Halt signal]. - ]. - ^self. - ]. - (condition isBlock - ifTrue: [condition cull: self] - ifFalse: [condition] - ) ifTrue: [ - Halt signal - ].! Item was added: + ----- Method: Object>>haltOnceIf: (in category 'debugging') ----- + haltOnceIf: aBooleanOrBlockOrSelector + "Check aBooleanOrBlockOrSelector and halt, unless we have already done it once. See #meetsHaltCondition:." + + self haltOnceEnabled ifFalse: [^ self]. + ^ (self meetsHaltCondition: aBooleanOrBlockOrSelector) + ifTrue: + [self clearHaltOnce; halt]! Item was added: + ----- Method: Object>>meetsHaltCondition: (in category 'debugging') ----- + meetsHaltCondition: aBooleanOrBlockOrSelector + "If the condition block has one arg, the receiver is bound to that. + If the condition is a selector, we look up in the callchain. Halt if any method's selector equals selector." + + aBooleanOrBlockOrSelector isSymbol ifTrue: + [^ (thisContext home sender findContextSuchThat: [:ctxt | + ctxt selector = aBooleanOrBlockOrSelector]) + notNil]. + ^ aBooleanOrBlockOrSelector isBlock + ifTrue: [aBooleanOrBlockOrSelector cull: self] + ifFalse: [aBooleanOrBlockOrSelector value]!

1 0

The Trunk: VersionNumber-eem.5.mcz
by commits＠source.squeak.org 05 Nov '22

05 Nov '22

Eliot Miranda uploaded a new version of VersionNumber to project The Trunk: http://source.squeak.org/trunk/VersionNumber-eem.5.mcz ==================== Summary ==================== Name: VersionNumber-eem.5 Author: eem Time: 5 November 2022, 1:36:25.499057 pm UUID: 8883b385-6d1b-4659-b488-c677c700707a Ancestors: VersionNumber-cmm.4 Fix VersionNumber>>< so that version numbers of different lengths can be compared. e.g. 1.8 is clearly less than 1.7.4. At the same time fix the comparison so that it terminates as soon as a difference is found. =============== Diff against VersionNumber-cmm.4 =============== Item was changed: ----- Method: VersionNumber>>< (in category 'comparing') ----- < another + "Answer whether the receiver is less than the argument, another VersionNumber." - "Answer whether the receiver is less than the argument." + | tmp thisSize thatSize this that | - | tmp | - (self inSameBranchAs: another) ifFalse: - [^self error: 'Receiver and argument in different branches']. - tmp := another numbers. + thisSize := numbers size. + thatSize := tmp size. + 1 to: (thisSize min: thatSize) do: + [:i| + (this := numbers at: i) = (that := tmp at: i) ifFalse: + [^this < that]]. + ^thisSize < thatSize! - (tmp size = numbers size) ifTrue: - [1 to: numbers size do: - [ :in | (numbers at: in) < (tmp at: in) ifTrue: [^true]]. - ^false]. - - ^numbers size < tmp size - !

1 0

The Trunk: Morphic-ct.2052.mcz
by commits＠source.squeak.org 04 Nov '22

04 Nov '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2052.mcz ==================== Summary ==================== Name: Morphic-ct.2052 Author: ct Time: 4 November 2022, 4:20:08.148791 pm UUID: b49f6fa4-1658-bf49-89ae-5dcb08e955af Ancestors: Morphic-mt.2051 Makes scratch pad scale-factor-aware and improves multilingual support. =============== Diff against Morphic-mt.2051 =============== Item was changed: ----- Method: SearchBar>>layoutScratchPad (in category 'private') ----- layoutScratchPad | world pos width | world := Project current world. world mainDockingBars do: [ : each | each searchBarMorph ifNotNil: [ : searchBar | pos := searchBar bottomLeft. width := searchBar width ] ]. + width ifNil: [ width := 250 px. pos := world topRight - (width @ 5 px) ]. - width ifNil: [ width := 250. pos := world topRight - (width @ 5) ]. scratchPad width: width ; position: pos ; startStepping: #deleteUnlessHasFocus at: Time millisecondClockValue arguments: nil stepTime: 3000! Item was changed: ----- Method: SearchBar>>printIt:result: (in category 'do-its') ----- printIt: code result: object | focusedWidget | focusedWidget := self currentHand keyboardFocus. self removeResultsWidget. ToolBuilder default in: [:builder | resultsWidget := (builder build: (StringHolder new contents: object asString; buildCodePaneWith: builder)). "This might cause the widget disappear to early. Especially if the textMorph is to small but the container needs to maintain a larger size because of its scroll bars." resultsWidget textMorph on: #mouseLeave send: #delete to: resultsWidget. resultsWidget + extent: 1000 px @ 1000 px; fullBounds; "give text a chance to layout good" + width: 250 px; fullBounds; + height: (resultsWidget extentToFit y min: 300 px); - extent: 1000@1000; fullBounds; "give text a chance to layout good" - width: 250; fullBounds; - height: (resultsWidget extentToFit y min: 300); position: (focusedWidget ifNotNil: [:w | w owner boundsInWorld bottomLeft] ifNil: [self currentHand position]); color: (BalloonMorph balloonColor alpha: 1.0). Preferences menuAppearance3d ifTrue: [resultsWidget addDropShadow]. resultsWidget openInWorld].! Item was changed: ----- Method: SearchBar>>scratchPad (in category 'accessing') ----- scratchPad ^ scratchPad ifNil: [ scratchPad := TextMorphForEditView new. "we should be able to use TextMorph here; fix later" scratchPad " on: #keyboardFocusChange send: #removeScratchPad to: self ;" on: #mouseLeave send: #removeScratchPad to: self ; on: #keyStroke send: #handleScratchPadKey: to: self ; + margins: (5 px @ 0 corner: 5 px @ 0); - margins: (5@0 corner: 5@0); backgroundColor: ((UserInterfaceTheme current get: #color for: #NewBalloonMorph) ifNil: [ BalloonMorph balloonColor ]) ; setEditView: PluggableTextMorph new ; "dummy" autoFit: true ; wrapFlag: true ; + newContents: '--scratch area--' translated; - newContents: '--scratch area--' ; font: ((UserInterfaceTheme current get: #font for: #PluggableTextMorph) ifNil: [TextStyle defaultFont]); textColor: ((UserInterfaceTheme current get: #textColor for: #PluggableTextMorph) ifNil: [Color black]); caretColor: ((UserInterfaceTheme current get: #caretColor for: #PluggableTextMorph) ifNil: [Color red]); selectionColor: ((UserInterfaceTheme current get: #selectionColor for: #PluggableTextMorph) ifNil: [Color blue muchDarker] ifNotNil: [ : col | col twiceLighter ]); yourself. self layoutScratchPad. Preferences menuAppearance3d ifTrue: [ scratchPad addDropShadow ]. scratchPad ]! Item was changed: ----- Method: SearchBar>>smartSearch:in: (in category 'searching') ----- smartSearch: text in: morph "Take the user input and perform an appropriate search" | input newContents | self removeResultsWidget. input := text asString ifEmpty:[^self]. self class useSmartSearch ifFalse: [^ ToolSet default browseMessageNames: input]. (Symbol lookup: input) ifNotNil: [:symbol| input := symbol]. "If it is a global or a full class name, browse that class." (Smalltalk bindingOf: input) ifNotNil: [:assoc| | class | class := (assoc value isBehavior ifTrue:[assoc value] ifFalse:[assoc value class]) theNonMetaClass. ^ToolSet browseClass: class]. "If it is a symbol and there are implementors of it, browse those implementors." input isSymbol ifTrue: [(SystemNavigation new allImplementorsOf: input) ifNotEmpty: [:list| ^SystemNavigation new browseMessageList: list + name: ('Implementors of {1}' translated format: {input})]]. - name: 'Implementors of ' , input]]. "If it starts uppercase, browse classes if any. Otherwise, just search for messages." input first isUppercase ifTrue: [(UIManager default classFromPattern: input withCaption: '') ifNotNil: [:aClass| ^ToolSet browse: aClass selector: nil]. + newContents := input, ' -- not found.' translated. - newContents := input, ' -- not found.'. self searchTerm: newContents. self selection: (input size+1 to: newContents size). self currentHand newKeyboardFocus: morph textMorph. ^ self]. "Default to browse message names..." ToolSet default browseMessageNames: input!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2022