Packages July 2019

packages@lists.squeakfoundation.org

1 participants
67 discussions

The Trunk: Morphic-mt.1493.mcz
by commits＠source.squeak.org 22 Jul '19

22 Jul '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1493.mcz ==================== Summary ==================== Name: Morphic-mt.1493 Author: mt Time: 20 July 2019, 9:59:23.026728 am UUID: 22c8cff7-de9c-8348-9a19-4cdd14621253 Ancestors: Morphic-mt.1492 Finally have a robust version for the #textEdited: callback in pluggable text morphs. Thanks to Christoph Thiede for the idea! =============== Diff against Morphic-mt.1492 =============== Item was changed: ScrollPane subclass: #PluggableTextMorph + instanceVariableNames: 'textMorph getTextSelector setTextSelector getSelectionSelector hasUnacceptedEdits hasUserEdited askBeforeDiscardingEdits selectionInterval hasEditingConflicts editTextSelector wantsWrapBorder' - instanceVariableNames: 'textMorph getTextSelector setTextSelector getSelectionSelector hasUnacceptedEdits askBeforeDiscardingEdits selectionInterval hasEditingConflicts editTextSelector wantsWrapBorder' classVariableNames: 'AdornmentCache SimpleFrameAdornments SoftLineWrap VisualWrapBorder VisualWrapBorderLimit' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! Item was changed: + ----- Method: PluggableTextMorph>>hasUnacceptedEdits (in category 'unaccepted edits') ----- - ----- Method: PluggableTextMorph>>hasUnacceptedEdits (in category 'dependents access') ----- hasUnacceptedEdits "Return true if this view has unaccepted edits." ^ hasUnacceptedEdits! Item was changed: ----- Method: PluggableTextMorph>>hasUnacceptedEdits: (in category 'unaccepted edits') ----- + hasUnacceptedEdits: wasJustEdited + + wasJustEdited = hasUnacceptedEdits ifFalse: [ + hasUnacceptedEdits := wasJustEdited. - hasUnacceptedEdits: aBoolean - "Set the hasUnacceptedEdits flag to the given value. " - aBoolean == hasUnacceptedEdits ifFalse: - [hasUnacceptedEdits := aBoolean. self changed]. + + wasJustEdited + ifTrue: [self hasUserEdited: true] + ifFalse: [self hasEditingConflicts: false].! - aBoolean ifFalse: [hasEditingConflicts := false]! Item was added: + ----- Method: PluggableTextMorph>>hasUserEdited (in category 'unaccepted edits') ----- + hasUserEdited + + ^ hasUserEdited! Item was added: + ----- Method: PluggableTextMorph>>hasUserEdited: (in category 'unaccepted edits') ----- + hasUserEdited: aBoolean + + hasUserEdited := aBoolean.! Item was changed: ----- Method: TextMorphForEditView>>keyStroke: (in category 'event handling') ----- keyStroke: evt | view | editView deleteBalloon. self editor model: editView model. "For evaluateSelection" view := editView. "Copy into temp for case of a self-mutating doit" (acceptOnCR and: [evt keyCharacter = Character cr]) ifTrue: [^ self editor accept]. + + view hasUserEdited: false. super keyStroke: evt. view scrollSelectionIntoView. + view hasUserEdited + ifTrue: [ view textEdited: self contents].! - "Make a cheap check and guess editing. (Alternative would be to copy the old contents and then compare them against the new ones. Maybe add a better hook in the TextEditor." - (self readOnly not and: [self eventCharacterModifiesText: evt keyCharacter]) - ifTrue: [view textEdited: self contents]!

1 0

The Trunk: Compiler-mt.404.mcz
by commits＠source.squeak.org 22 Jul '19

22 Jul '19

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-mt.404.mcz ==================== Summary ==================== Name: Compiler-mt.404 Author: mt Time: 22 July 2019, 8:40:19.7179 am UUID: a82bc364-41dc-4671-94b7-7b4b669f3bd4 Ancestors: Compiler-eem.403 (Extracted from Compiler-BD.408) Replace the code duplication from xLetter which was the same as the step method. This is done in order to allow customization of the step method without having to modify both places. All other methods already use the explicit step method. "open code step for speed" no longer applies anyways as a method call is fast enough nowadays. =============== Diff against Compiler-eem.403 =============== Item was changed: ----- Method: Scanner>>xLetter (in category 'multi-character scans') ----- xLetter "Form a word or keyword." | type | buffer reset. [(type := self typeTableAt: hereChar) == #xLetter or: [type == #xDigit or: [type == #xUnderscore and:[self allowUnderscoreSelectors]]]] whileTrue: + [buffer nextPut: self step]. - ["open code step for speed" - buffer nextPut: hereChar. - hereChar := aheadChar. - aheadChar := source atEnd - ifTrue: [DoItCharacter] - ifFalse: [source next]]. tokenType := (type == #xColon and: [aheadChar ~~ $=]) ifTrue: [buffer nextPut: self step. "Allow any number of embedded colons in literal symbols" [(self typeTableAt: hereChar) == #xColon] whileTrue: [buffer nextPut: self step]. #keyword] ifFalse: [#word]. token := buffer contents!

1 0

The Trunk: Kernel-ct.1240.mcz
by commits＠source.squeak.org 21 Jul '19

21 Jul '19

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1240.mcz ==================== Summary ==================== Name: Kernel-ct.1240 Author: ct Time: 21 July 2019, 6:27:06.60977 pm UUID: ce89bb6f-3e51-914e-81a0-bd8c01071b92 Ancestors: Kernel-mt.1239 Fix bug in simulation of primitive 188 Read error report here: http://forum.world.st/Bug-Debugger-storm-when-trying-to-stepping-into-withA… =============== Diff against Kernel-mt.1239 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ToolSet debugContext: self label:'Code simulation error' contents: nil]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [^self send: arguments first to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (self objectClass: receiver)]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (arguments at: 3)]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: CompiledMethod class>>receiver:withArguments:executeMethod: VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | ((n := arguments size) between: 2 and: 4) ifFalse: [^self class primitiveFailTokenFor: #'unsupported operation']. ((self objectClass: (args := arguments at: n - 1)) == Array and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. + thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. - thisReceiver := arguments at: n - 2. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. ^self doPrimitive: methodArg primitive method: meth receiver: thisReceiver args: args]. ^Context sender: self receiver: thisReceiver method: methodArg arguments: args]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

1 0

The Trunk: Kernel-ul.1247.mcz
by commits＠source.squeak.org 21 Jul '19

21 Jul '19

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1247.mcz ==================== Summary ==================== Name: Kernel-ul.1247 Author: ul Time: 21 July 2019, 6:31:22.329915 pm UUID: db780ecc-7e96-40e2-9f16-286a2857f3e7 Ancestors: Kernel-dtl.1246, Kernel-ct.1240 - merged =============== Diff against Kernel-dtl.1246 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ToolSet debugContext: self label:'Code simulation error' contents: nil]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [^self send: arguments first to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (self objectClass: receiver)]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [^self send: arguments first to: receiver with: (arguments at: 2) lookupIn: (arguments at: 3)]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: CompiledMethod class>>receiver:withArguments:executeMethod: VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | ((n := arguments size) between: 2 and: 4) ifFalse: [^self class primitiveFailTokenFor: #'unsupported operation']. ((self objectClass: (args := arguments at: n - 1)) == Array and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. + thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. - thisReceiver := arguments at: n - 2. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. ^self doPrimitive: methodArg primitive method: meth receiver: thisReceiver args: args]. ^Context sender: self receiver: thisReceiver method: methodArg arguments: args]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

1 0

The Trunk: ToolBuilder-Morphic-fn.230.mcz
by commits＠source.squeak.org 19 Jul '19

19 Jul '19

Fabio Niephaus uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-fn.230.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-fn.230 Author: fn Time: 19 July 2019, 1:11:25.724125 pm UUID: 45c117c6-25fc-438b-b00a-0219a6d5c1c5 Ancestors: ToolBuilder-Morphic-mt.229 Propagate the spec's color correctly in MorphicToolBuilder>>buildPluggableCheckBox:. Also, clean up the method a bit. Thanks for the help, Marcel. =============== Diff against ToolBuilder-Morphic-mt.229 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableCheckBox: (in category 'widgets optional') ----- buildPluggableCheckBox: spec | widget label state action | label := spec label. state := spec state. action := spec action. widget := self checkBoxClass on: spec model getState: (state isSymbol ifTrue:[state]) action: (action isSymbol ifTrue:[action]) label: (label isSymbol ifTrue:[label]). self register: widget id: spec name. widget installButton. + spec color ifNotNil: [:c | widget color: c]. + self setFrame: spec frame in: widget. - " widget getColorSelector: spec color. - widget offColor: Color white.. - self buildHelpFor: widget spec: spec. - (label isSymbol or:[label == nil]) ifFalse:[widget label: label]. - " self setFrame: spec frame in: widget. self setLayoutHintsFor: widget spec: spec. + parent ifNotNil: [:p | self add: widget to: p]. - parent ifNotNil:[self add: widget to: parent]. ^widget!

1 0

The Trunk: Collections-dtl.844.mcz
by commits＠source.squeak.org 19 Jul '19

19 Jul '19

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-dtl.844.mcz ==================== Summary ==================== Name: Collections-dtl.844 Author: dtl Time: 18 July 2019, 8:08:26.956143 pm UUID: 8b4fd324-ffc3-4805-acd5-196a6f120137 Ancestors: Collections-mt.843 Characters and small floats are immediate objects in Spur and should not implement #nextObject. =============== Diff against Collections-mt.843 =============== Item was added: + ----- Method: Character>>nextObject (in category 'system primitives') ----- + nextObject + "Characters are immediate objects, and, as such, do not have successors in object memory." + + self shouldNotImplement !

1 0

The Trunk: Kernel-dtl.1246.mcz
by commits＠source.squeak.org 19 Jul '19

19 Jul '19

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.1246.mcz ==================== Summary ==================== Name: Kernel-dtl.1246 Author: dtl Time: 18 July 2019, 8:07:43.108638 pm UUID: 0ac79852-6ed3-48c8-8b6e-d76b28bdbf18 Ancestors: Kernel-mt.1245 Characters and small floats are immediate objects in Spur and should not implement #nextObject. =============== Diff against Kernel-mt.1245 =============== Item was added: + ----- Method: SmallFloat64>>nextObject (in category 'system primitives') ----- + nextObject + "Small floats are immediate objects, and, as such, do not have successors in object memory." + + self shouldNotImplement !

1 0

The Trunk: ShoutTests-ul.28.mcz
by commits＠source.squeak.org 17 Jul '19

17 Jul '19

Levente Uzonyi uploaded a new version of ShoutTests to project The Trunk: http://source.squeak.org/trunk/ShoutTests-ul.28.mcz ==================== Summary ==================== Name: ShoutTests-ul.28 Author: ul Time: 17 July 2019, 10:08:28.846351 am UUID: 7203daa9-c4eb-448e-9688-64df19446f88 Ancestors: ShoutTests-nice.27 - some tests for parsing temporary variable lists =============== Diff against ShoutTests-nice.27 =============== Item was added: + ----- Method: SHParserST80Test>>testEmptyBlockTempList (in category 'tests') ----- + testEmptyBlockTempList + + | types tokens s | + s := 'x [ || ]'. + types := self tokenTypesIn: s. + tokens := self tokensIn: s. + self assert: types = #(patternUnary blockStart blockTempBar blockTempBar blockEnd). + self assert: tokens = #('x' '[' '|' '|' ']').! Item was added: + ----- Method: SHParserST80Test>>testEmptyMethodTempList (in category 'tests') ----- + testEmptyMethodTempList + + | types tokens s | + s := 'x ||'. + types := self tokenTypesIn: s. + tokens := self tokensIn: s. + self assert: types = #(patternUnary methodTempBar methodTempBar). + self assert: tokens = #('x' '|' '|').! Item was added: + ----- Method: SHParserST80Test>>testMissingVerticalBarAfterBlockArguments (in category 'tests') ----- + testMissingVerticalBarAfterBlockArguments + + | types tokens s | + s := 'x [ :x x ]'. + types := self tokenTypesIn: s. + tokens := self tokensIn: s. + self assert: types = #(patternUnary blockStart blockArgColon blockPatternArg excessCode). + self assert: tokens = #('x' '[' ':' 'x' ' x ]').!

1 0

The Trunk: ToolBuilder-Kernel-ul.128.mcz
by commits＠source.squeak.org 17 Jul '19

17 Jul '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-ul.128.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ul.128 Author: ul Time: 16 July 2019, 11:36:38.782463 pm UUID: 7153b8e4-a085-4af2-b2a8-3f14585475b0 Ancestors: ToolBuilder-Kernel-mt.127 Further improvements: - do not convert potentialNames from Array to OrderedCollection - removed unnecessary ifEmpty: check - use #indexOf:startingAt: to search for a single character in a string - applied JIT tricks - simplified/restructured wildcard/feature-based searches Ideas not implemented: - suggestedTypeNames could become suggestedTypeNamesDo: =============== Diff against ToolBuilder-Kernel-mt.127 =============== Item was changed: ----- Method: UIManager>>classOrTraitFrom:pattern:label: (in category 'system introspecting') ----- classOrTraitFrom: environment pattern: pattern label: label "Given a pattern and an environment, try to find a class or trait using several strategies: - EXACT: If there is a class or trait whose name exactly given by pattern, return it. - UPPER: If the pattern is upper-case only, find camel-case letters with that sequence. - WILD: Try the pattern as-is for regular wild-card search. - FEATURE: Split patterns at feature boundaries and insert wild cards between. - FUZZY: Split patterns at feature boundaries BUT treat each feature as a full class name. If there is only one class or trait in the given environment whose name matches pattern, return it. Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen. !!!! In any case, separator characters in the pattern are ignored." | toMatch potentialNames names selectedIndex | "If there's a class or trait named as pattern, then return it." (environment classOrTraitNamed: pattern) ifNotNil: [:classOrTrait | ^ classOrTrait]. "Validate pattern." toMatch := pattern copyWithoutAll: Character separators. toMatch := toMatch asLowercase copyWithout: $.. toMatch ifEmpty: [ ^nil ]. "Fetch search space." names := OrderedCollection new. + potentialNames := environment classAndTraitNames. - potentialNames := environment classAndTraitNames asOrderedCollection. "Try uppercase-only patterns for patterns such as 'WKD' to find 'WeakIdentityKeyDictionary' etc." + (pattern allSatisfy: [:char | char isUppercase]) ifTrue: [ + | patternSize | + patternSize := pattern size. + potentialNames do: [ :eachName | + | lookupIndex characterIndex | + lookupIndex := 0. + characterIndex := 1. + [ (lookupIndex := eachName + indexOf: (pattern at: characterIndex) + startingAt: lookupIndex + 1) > 0 + and: [ (characterIndex := characterIndex + 1) <= patternSize ] ] whileTrue. + lookupIndex > 0 ifTrue: [ names add: eachName ] ] ]. - names ifEmpty: [ - (pattern allSatisfy: [:char | char isUppercase]) ifTrue: [ - (potentialNames do: [:eachName | - | isMatch lookupIndex | - isMatch := true. - lookupIndex := 0. - 1 to: pattern size do: [:charIndex | | char | - char := pattern at: charIndex. - isMatch ifTrue: [ - lookupIndex := (eachName findString: char asString startingAt: lookupIndex+1 caseSensitive: true). - isMatch := lookupIndex > 0]]. - isMatch ifTrue: [names add: eachName] ])]]. "Try wildcard search for patterns such as 'Weak*Dict*' to find 'WeakIdentityKeyDictionary' etc." names ifEmpty: [ + potentialNames do: [ :each | (toMatch match: each) ifTrue: [ names add: each ] ]. + "Try feature-based search for patterns such as 'WeakDict' to find 'WeakIdentityKeyDictionary' etc." + names ifEmpty: [ - potentialNames do: [ :each | (toMatch match: each) ifTrue: [names add: each] ]]. - - "Try feature-based search for patterns such as 'WeakDict' to find 'WeakIdentityKeyDictionary' etc." - names ifEmpty: [ - toMatch := pattern copyWithoutAll: '.*#'. - toMatch findFeatures in: [:features | "1) Insert wildcards between features and at the end." + toMatch := ((pattern copyWithoutAll: '.*#') findFeatures joinSeparatedBy: '*'), '*'. + potentialNames do: [ :each | (toMatch match: each) ifTrue: [ names add: each ] ]. - toMatch := (features joinSeparatedBy: '*'), '*'. - names := potentialNames select: [ :each | toMatch match: each ]. names ifEmpty: [ "2) Insert wildcards before, between, and after features." + toMatch := '*', toMatch. + potentialNames do: [ :each | (toMatch match: each) ifTrue: [ names add: each ] ] ] ] ]. - toMatch := '*', (features joinSeparatedBy: '*'), '*'. - names := potentialNames select: [ :each | toMatch match: each ] ]] ]. "Try some fuzzy matching." + pattern suggestedTypeNames do: [ :each | + (potentialNames includes: each) ifTrue: [ names add: each ] ]. - names addAll: (pattern suggestedTypeNames select: [ :each | potentialNames includes: each ]). "Still no match?" + names ifEmpty: [ ^nil ]. - names ifEmpty: [ ^ nil ]. "Let the user select if there's more than one possible match. This may give surprising results." selectedIndex := names size = 1 ifTrue: [ 1 ] ifFalse: [ self chooseFrom: names title: label ]. selectedIndex = 0 ifTrue: [ ^nil ]. ^environment at: (names at: selectedIndex) asSymbol!

1 0

The Trunk: ShoutCore-ul.65.mcz
by commits＠source.squeak.org 16 Jul '19

16 Jul '19

Levente Uzonyi uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-ul.65.mcz ==================== Summary ==================== Name: ShoutCore-ul.65 Author: ul Time: 9 July 2019, 11:00:06.496443 pm UUID: 5b4b23fe-b7de-4498-a16b-80959cfb1e62 Ancestors: ShoutCore-mt.64 Further SHTextStyler refactorings: - replaced text instance variable with temporiaries - removed monitor. backgroundProcess consistency is ensured by atomic execution of certain instructions - assume that view is never nil. It makes no sense to style when there's no view, and view is always assigned once, when a styler instance is created =============== Diff against ShoutCore-mt.64 =============== Item was changed: Object subclass: #SHTextStyler + instanceVariableNames: 'backgroundProcess view stylingEnabled' - instanceVariableNames: 'backgroundProcess text monitor view stylingEnabled' classVariableNames: '' poolDictionaries: '' category: 'ShoutCore-Styling'! !SHTextStyler commentStamp: 'tween 8/27/2004 10:54' prior: 0! I am an Abstract class. Subclasses of me can create formatted, coloured, and styled copies of Text that is given to them. They may perform their styling asynchronously, in a background process which I create and manage. My public interface is... view: aViewOrMorph - set the view that will receive notifications when styling has completed. format: aText - modifies aText's string style: aText - modifies the TextAttributes of aText, but does not change the string, then sends #stylerStyled: to the view. styleInBackgroundProcess: aText - performs style: in a background process, then sends #stylerStylednBackground: to the view. styledTextFor: aText - answers a formatted and styled copy of aText unstyledTextFrom: aText - answers a copy of aText with all TextAttributes removed Subclasses of me should re-implement... privateFormat: aText - answer a formatted version of aText; the String may be changed privateStyle: aText - modify the TextAttributes of aText; but do not change the String ! Item was removed: - ----- Method: SHTextStyler>>monitor (in category 'private') ----- - monitor - ^monitor ifNil: [monitor := Monitor new]! Item was changed: ----- Method: SHTextStyler>>style: (in category 'styling') ----- style: aText + + | text | self terminateBackgroundStylingProcess. + stylingEnabled ifFalse: [ ^self ]. + text := aText copy. + self privateStyle: text. + view stylerStyled: text! - stylingEnabled ifTrue:[ - text := aText copy. - self privateStyle: text. - view ifNotNil:[view stylerStyled: text] ]! Item was changed: ----- Method: SHTextStyler>>styleInBackgroundProcess: (in category 'styling') ----- styleInBackgroundProcess: aText + | text newBackgroundProcess | self terminateBackgroundStylingProcess. + stylingEnabled ifFalse: [ ^self ]. + text := aText copy. + newBackgroundProcess := [ + self privateStyle: text. + Project current addDeferredUIMessage: [ + view stylerStyledInBackground: text ]. + Processor activeProcess == backgroundProcess ifTrue: [ + backgroundProcess := nil ] ] newProcess + priority: Processor userBackgroundPriority; + yourself. + backgroundProcess ifNil: [ + (backgroundProcess := newBackgroundProcess) resume ]! - - stylingEnabled ifTrue: [ - text := aText copy. - self monitor critical: [ - backgroundProcess := [ - self privateStyle: text. - view ifNotNil: [:v | Project current addDeferredUIMessage: [v stylerStyledInBackground: text]]. - ] forkAt: Processor userBackgroundPriority] ] - ! Item was changed: ----- Method: SHTextStyler>>terminateBackgroundStylingProcess (in category 'private') ----- terminateBackgroundStylingProcess + "Terminate the background styling process if it exists. Assume that the first two lines are executed atomically." + backgroundProcess ifNotNil: [ :backgroundProcessToTerminate | + backgroundProcess := nil. + backgroundProcessToTerminate terminate ]! - self monitor critical: [ - backgroundProcess - ifNotNil: [ - backgroundProcess terminate. - backgroundProcess := nil]].! Item was changed: ----- Method: SHTextStyler>>veryDeepInner: (in category 'copying') ----- veryDeepInner: aDeepCopier + super veryDeepInner: aDeepCopier. + backgroundProcess := nil. - backgroundProcess := monitor := nil. - text := text veryDeepCopyWith: aDeepCopier. view := view veryDeepCopyWith: aDeepCopier!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2019