Packages July 2019

packages@lists.squeakfoundation.org

1 participants
67 discussions

The Trunk: ToolBuilder-Kernel-mt.127.mcz
by commits＠source.squeak.org 16 Jul '19

16 Jul '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.127.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.127 Author: mt Time: 16 July 2019, 1:58:39.352383 pm UUID: 20626faf-8ab2-a649-b47e-6b56239d156f Ancestors: ToolBuilder-Kernel-mt.126 500% faster implementation of uppercase-only search for classes. Thanks to Kjell Godo for the ideas! =============== Diff against ToolBuilder-Kernel-mt.126 =============== 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 asOrderedCollection. "Try uppercase-only patterns for patterns such as 'WKD' to find 'WeakIdentityKeyDictionary' etc." 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] ])]]. + - (pattern allSatisfy: [:char | char isUppercase]) ifTrue: [ - | patternStream | - patternStream := pattern readStream. - potentialNames do: [:each | - patternStream reset. - each detect: [:char | - (patternStream atEnd not and: [patternStream peek = char]) - ifTrue: [ - patternStream next. - patternStream atEnd - ifTrue: [names add: each. true "Match!!"] - ifFalse: [false "Not yet..."]] - ifFalse: [false "No match..."] ] ifNone: [] ] ]]. - "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] ]]. - names := potentialNames select: [ :each | toMatch match: 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 := (features joinSeparatedBy: '*'), '*'. names := potentialNames select: [ :each | toMatch match: each ]. names ifEmpty: [ "2) Insert wildcards before, between, and after features." toMatch := '*', (features joinSeparatedBy: '*'), '*'. names := potentialNames select: [ :each | toMatch match: each ] ]] ]. "Try some fuzzy matching." names addAll: (pattern suggestedTypeNames select: [ :each | potentialNames includes: each ]). "Still no match?" 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: ToolBuilder-Kernel-mt.126.mcz
by commits＠source.squeak.org 15 Jul '19

15 Jul '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.126.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.126 Author: mt Time: 15 July 2019, 6:00:39.98495 pm UUID: d492e86b-b9f0-3b46-84c4-1a0d18da0d4d Ancestors: ToolBuilder-Kernel-mt.125 Minor improvement of the latest class-search changes. Thanks to Kjell Godo. =============== Diff against ToolBuilder-Kernel-mt.125 =============== 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 asOrderedCollection. "Try uppercase-only patterns for patterns such as 'WKD' to find 'WeakIdentityKeyDictionary' etc." names ifEmpty: [ (pattern allSatisfy: [:char | char isUppercase]) ifTrue: [ + | patternStream | + patternStream := pattern readStream. potentialNames do: [:each | + patternStream reset. - | patternStream | - patternStream := pattern readStream. each detect: [:char | (patternStream atEnd not and: [patternStream peek = char]) ifTrue: [ patternStream next. patternStream atEnd ifTrue: [names add: each. true "Match!!"] ifFalse: [false "Not yet..."]] ifFalse: [false "No match..."] ] ifNone: [] ] ]]. "Try wildcard search for patterns such as 'Weak*Dict*' to find 'WeakIdentityKeyDictionary' etc." names ifEmpty: [ names := potentialNames select: [ :each | toMatch match: 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 := (features joinSeparatedBy: '*'), '*'. names := potentialNames select: [ :each | toMatch match: each ]. names ifEmpty: [ "2) Insert wildcards before, between, and after features." toMatch := '*', (features joinSeparatedBy: '*'), '*'. names := potentialNames select: [ :each | toMatch match: each ] ]] ]. "Try some fuzzy matching." names addAll: (pattern suggestedTypeNames select: [ :each | potentialNames includes: each ]). "Still no match?" 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: ToolBuilder-Kernel-mt.125.mcz
by commits＠source.squeak.org 15 Jul '19

15 Jul '19

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.125.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.125 Author: mt Time: 11 July 2019, 8:50:30.487838 am UUID: 3f3a21f8-a141-734f-8aed-f0c21aff22b9 Ancestors: ToolBuilder-Kernel-mt.124 Updates the search for class names using the new find-features feature on strings. Find WeakIdentityKeyDictionary (in a small list of results) with any of the following patterns: WKD Weak*Dict* WeakDict WeakIdentityKeyDictionary =============== Diff against ToolBuilder-Kernel-mt.124 =============== 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. - "If there is a class or trait whose name exactly given by pattern, return it. - 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. - This method ignores separator characters in the pattern" + !!!! 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 potentialNames names exactMatch lines reducedIdentifiers selectedIndex | toMatch := pattern copyWithoutAll: Character separators. + toMatch := toMatch asLowercase copyWithout: $.. toMatch ifEmpty: [ ^nil ]. + + "Fetch search space." + names := OrderedCollection new. + potentialNames := environment classAndTraitNames asOrderedCollection. + + "Try uppercase-only patterns for patterns such as 'WKD' to find 'WeakIdentityKeyDictionary' etc." + names ifEmpty: [ + (pattern allSatisfy: [:char | char isUppercase]) ifTrue: [ + potentialNames do: [:each | + | patternStream | + patternStream := pattern readStream. + each detect: [:char | + (patternStream atEnd not and: [patternStream peek = char]) + ifTrue: [ + patternStream next. + patternStream atEnd + ifTrue: [names add: each. true "Match!!"] + ifFalse: [false "Not yet..."]] + ifFalse: [false "No match..."] ] ifNone: [] ] ]]. + + "Try wildcard search for patterns such as 'Weak*Dict*' to find 'WeakIdentityKeyDictionary' etc." + names ifEmpty: [ + names := potentialNames select: [ :each | toMatch match: each ]]. - "If there's a class or trait named as pattern, then return it." - Symbol hasInterned: pattern ifTrue: [ :symbol | - environment at: symbol ifPresent: [ :maybeClassOrTrait | - ((maybeClassOrTrait isKindOf: Class) or: [ - maybeClassOrTrait isTrait ]) - ifTrue: [ ^maybeClassOrTrait ] ] ]. - "No exact match, look for potential matches." - toMatch := pattern asLowercase copyWithout: $.. - potentialNames := (environment classAndTraitNames) asOrderedCollection. - names := pattern last = $. "This is some old hack, using String>>#match: may be better." - ifTrue: [ potentialNames select: [ :each | each asLowercase = toMatch ] ] - ifFalse: [ - potentialNames select: [ :each | - each includesSubstring: toMatch caseSensitive: false ] ]. - exactMatch := names detect: [ :each | each asLowercase = toMatch ] ifNone: [ nil ]. - lines := OrderedCollection new. - exactMatch ifNotNil: [ lines add: 1 ]. - "Also try some fuzzy matching." - reducedIdentifiers := pattern suggestedTypeNames select: [ :each | - potentialNames includes: each ]. - reducedIdentifiers ifNotEmpty: [ - names addAll: reducedIdentifiers. - lines add: 1 + names size + reducedIdentifiers size ]. - "Let the user select if there's more than one possible match. This may give surprising results." - names size = 0 ifTrue: [^ nil "nothing matches"]. + "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 := (features joinSeparatedBy: '*'), '*'. + names := potentialNames select: [ :each | toMatch match: each ]. + names ifEmpty: [ + "2) Insert wildcards before, between, and after features." + toMatch := '*', (features joinSeparatedBy: '*'), '*'. + names := potentialNames select: [ :each | toMatch match: each ] ]] ]. + + "Try some fuzzy matching." + names addAll: (pattern suggestedTypeNames select: [ :each | potentialNames includes: each ]). + + "Still no match?" + 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 ]. - ifFalse: [ - exactMatch ifNotNil: [ names addFirst: exactMatch ]. - self chooseFrom: names lines: lines title: label ]. selectedIndex = 0 ifTrue: [ ^nil ]. ^environment at: (names at: selectedIndex) asSymbol!

1 0

The Trunk: ReleaseBuilder-mt.196.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.196.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.196 Author: mt Time: 12 July 2019, 11:17:19.581405 am UUID: 25c90e0f-d7c9-2448-96b4-058219cefcce Ancestors: ReleaseBuilder-mt.195 Removes deprecated send to make Trunk builds work again. =============== Diff against ReleaseBuilder-mt.195 =============== Item was changed: ----- Method: ReleaseBuilder class>>setPreferences (in category 'scripts') ----- setPreferences "Preferences class defaultValueTableForCurrentRelease" " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." "General User interaction" Preferences enable: #generalizedYellowButtonMenu ; enable: #swapMouseButtons; disable: #mouseOverForKeyboardFocus. Morph indicateKeyboardFocus: true. Project uiManager openToolsAttachedToMouseCursor: false. SearchBar useScratchPad: false. HandMorph sendMouseWheelToKeyboardFocus: false. HandMorph synthesizeMouseWheelEvents: true. "Text input." TextEditor autoEnclose: true ; autoIndent: true ; encloseSelection: false ; destructiveBackWord: false ; blinkingCursor: true ; dumbbellCursor: false. PluggableTextMorph simpleFrameAdornments: false. TextMorphForEditView draggableTextSelection: true. "Windows" SystemWindow reuseWindows: false. SystemWindow windowsRaiseOnClick: true. SystemWindow windowTitleActiveOnFirstClick: true. Model windowActiveOnFirstClick: false. "Not good for little screen real estate." Model useColorfulWindows: false. Preferences disable: #fastDragWindowForMorphic. AbstractResizerMorph gripThickness: 4; handleLength: 25. CornerGripMorph drawCornerResizeHandles: false; drawEdgeResizeHandles: false. ProportionalSplitterMorph showSplitterHandles: false; smartHorizontalSplitters: false; smartVerticalSplitters: false. "Scroll bars." Preferences enable: #scrollBarsNarrow; enable: #scrollBarsOnRight; enable: #alwaysHideHScrollbar; disable: #alwaysShowHScrollbar; disable: #alwaysShowVScrollbar. ScrollBar scrollBarsWithoutArrowButtons: true; scrollBarsWithoutMenuButton: true. ScrollPane useRetractableScrollBars: false. "Rounded corners." Morph preferredCornerRadius: 8. SystemWindow roundedWindowCorners: false. DialogWindow roundedDialogCorners: false. MenuMorph roundedMenuCorners: false. PluggableButtonMorph roundedButtonCorners: false. ScrollBar roundedScrollBarLook: false. "Gradients." SystemWindow gradientWindow: false. DialogWindow gradientDialog: false. MenuMorph gradientMenu: false. PluggableButtonMorph gradientButton: false. ScrollBar gradientScrollBar: false. "Shadows" Preferences enable: #menuAppearance3d. Morph useSoftDropShadow: true. "Lists and Trees" PluggableListMorph filterableLists: true; clearFilterAutomatically: false; highlightHoveredRow: true; menuRequestUpdatesSelection: true. PluggableTreeMorph filterByLabelsOnly: false; maximumSearchDepth: 1. "Standard Tools" TheWorldMainDockingBar showWorldMainDockingBar: true; showSecondsInClock: true; twentyFourHourClock: true. SearchBar useSmartSearch: true. Workspace shouldStyle: false. TranscriptStream forceUpdate: true; redirectToStdOut: false; characterLimit: 20000. Browser listClassesHierarchically: true; showClassIcons: true; showMessageIcons: true; sortMessageCategoriesAlphabetically: true. MessageSet useUnifiedMessageLabels: true. Preferences enable: #annotationPanes; enable: #optionalButtons; disable: #diffsWithPrettyPrint; enable: #traceMessages; enable: #alternativeBrowseIt; enable: #menuWithIcons; enable: #visualExplorer. - SystemNavigation thoroughSenders: true. Preferences disable: #debugLogTimestamp. "Halo" Preferences enable: #showBoundsInHalo ; disable: #alternateHandlesLook; disable: #showDirectionHandles. Morph haloForAll: true; metaMenuForAll: true. "System" NetNameResolver enableIPv6: false. Scanner allowUnderscoreAsAssignment: true; prefAllowUnderscoreSelectors: true. Deprecation showDeprecationWarnings: true "that's all, folks"!

1 0

The Trunk: 60Deprecated-mt.40.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.40.mcz ==================== Summary ==================== Name: 60Deprecated-mt.40 Author: mt Time: 12 July 2019, 10:05:15.833568 am UUID: 26bbfaf7-4982-c34d-a02b-4dbfe0dcc607 Ancestors: 60Deprecated-mt.39 Refactoring of #literalsDo: - Step 3 of 3. For more information, see http://forum.world.st/Please-Review-Refactoring-for-literalsDo-etc-tp509975…. =============== Diff against 60Deprecated-mt.39 =============== Item was added: + ----- Method: AdditionalMethodState>>hasLiteralThorough: (in category '*60Deprecated-literals') ----- + hasLiteralThorough: literal + + self deprecated: 'Use #hasLiteral: instead. It is always thorough.'. + ^ self hasLiteral: literal! Item was changed: ----- Method: Behavior>>whichSelectorsReferTo:special:byte:thorough: (in category '*60Deprecated-testing method dictionary') ----- whichSelectorsReferTo: literal special: specialFlag byte: specialByte thorough: thorough - "Answer a set of selectors whose methods access the argument as a literal. If thorough is true, then dives into the compact literal notation, making it slow but thorough " + self deprecated: 'Use #whichSelectorsReferTo: instead'. + ^ self whichSelectorsReferTo: literal! - | who | - self deprecated: 'Use whichSelectorsReferTo:thorough: instead'. - who := IdentitySet new. - self selectorsAndMethodsDo: [ :selector :method | - (((thorough - ifFalse: [ method hasLiteral: literal ] - ifTrue: [ method hasLiteralThorough: literal ]) or: [ - specialFlag and: [ method scanFor: specialByte ] ]) and: [ - literal isVariableBinding not or: [ - "N.B. (method indexOfLiteral: literal) < method numLiterals copes with l;ooking for - Float bindingOf: #NaN, since (Float bindingOf: #NaN) ~= (Float bindingOf: #NaN)." - (method indexOfLiteral: literal) ~= 0] ]) ifTrue: [ - who add: selector ] ]. - ^who! Item was added: + ----- Method: Behavior>>whichSelectorsReferTo:thorough: (in category '*60Deprecated-testing method dictionary') ----- + whichSelectorsReferTo: aLiteral thorough: thorough + + self deprecated: 'Literal test is thorough by default. Use #whichSelectorsReferTo: instead.'. + ^ self whichSelectorsReferTo: aLiteral! Item was changed: ----- Method: CompiledBlock>>allSubLiterals (in category '*60Deprecated-literals') ----- allSubLiterals + + self deprecated: 'Use #allLiterals.'. + ^ self allLiterals! - | literalsExceptOuter unfoldedSubLiterals | - literalsExceptOuter := self literals allButLast. - unfoldedSubLiterals := literalsExceptOuter - select: [:lit| lit isCompiledCode] - thenCollect: [:blockMethod| blockMethod allSubLiterals]. - unfoldedSubLiterals ifEmpty: - [^literalsExceptOuter]. - ^literalsExceptOuter, (unfoldedSubLiterals fold: [:a :b| a, b])! Item was changed: ----- Method: CompiledCode>>messagesDo:encoderClass:visitedSet: (in category '*60Deprecated-private') ----- messagesDo: aBlock encoderClass: encoderClass visitedSet: visitedSet - "The inner engine for messagesDo:" + self deprecated: 'Use #messagesDo:.'. + self messagesDo: aBlock.! - | scanner | - scanner := InstructionStream on: self. - scanner scanFor: [ :x | - | selector | - (selector := encoderClass selectorToSendOrItselfFor: scanner in: self at: scanner pc) == scanner - ifFalse: - [(visitedSet ifAbsentAdd: selector) ifTrue: - [aBlock value: selector]] - ifTrue: - [(encoderClass blockMethodOrNilFor: scanner in: self at: scanner pc) ifNotNil: - [:blockMethod| - blockMethod messagesDo: aBlock encoderClass: encoderClass visitedSet: visitedSet]]. - false "keep scanning" ]! Item was changed: ----- Method: CompiledCode>>refersTo:bytecodeScanner:thorough: (in category '*60Deprecated-literals') ----- refersTo: literal bytecodeScanner: scanBlockOrNil thorough: thorough + + self deprecated: 'Use #hasLiteral:.'. + ^ self hasLiteral: literal! - "Answer if the receiver refers to the literal. If the scan block is non-nil, then - use it to find the literal in bytecode. If thorough is true, dive down into - literal arrays and method properties to locate references to the literal there-in." - 2 to: (self isCompiledBlock - ifTrue: [self numLiterals] "exclude outerCode or methodClass" - ifFalse: [self numLiterals - 1]) "exclude selector/properties and methodClass" - do: [:i| | lit | - lit := self objectAt: i. - (literal == lit or: [literal literalEqual: lit]) ifTrue: [^true]. "== for Float bindingOf: #NaN since NaN ~= NaN" - lit isCompiledCode - ifTrue: - [(lit refersTo: literal bytecodeScanner: scanBlockOrNil thorough: thorough) ifTrue: - [^true]] - ifFalse: - [thorough ifTrue: - [lit isVariableBinding - ifTrue: - [literal == lit key ifTrue: [^true]] - ifFalse: - [(lit isArray - and: [(lit hasLiteral: literal) - or: [literal isVariableBinding - and: [literal key isSymbol - and: [lit hasLiteral: literal key]]]]) ifTrue: - [^true]]]]]. - scanBlockOrNil ifNotNil: - [(self scanFor: scanBlockOrNil) ifTrue: - [^true]]. - ^false! Item was changed: ----- Method: CompiledCode>>refersTo:primaryBytecodeScanner:secondaryBytecodeScanner:thorough: (in category '*60Deprecated-literals') ----- refersTo: literal primaryBytecodeScanner: primaryScanBlockOrNil secondaryBytecodeScanner: secondaryScanBlockOrNil thorough: thorough + + self deprecated: 'Use #hasLiteral:.'. + ^ self hasLiteral: literal! - "Answer if the receiver refers to the literal. If the scan blocks are non-nil, then - use them to find the literal in bytecode. If thorough is true, dive down into - literal arrays and method properties to locate references to the literal there-in." - ^self - refersTo: literal - bytecodeScanner: (self signFlag - ifTrue: [secondaryScanBlockOrNil] - ifFalse: [primaryScanBlockOrNil]) - thorough: thorough! Item was changed: ----- Method: CompiledMethod>>hasLiteralThorough: (in category '*60Deprecated-literals') ----- hasLiteralThorough: literal - "Answer true if any literal in this method is literal, - even if embedded in array structure." + self deprecated: 'Use #hasLiteral: instead. It is always thorough.'. + ^ self hasLiteral: literal! - (self penultimateLiteral isMethodProperties - and: [self penultimateLiteral hasLiteralThorough: literal]) ifTrue:[^true]. - 2 to: self numLiterals - 1 "exclude superclass + selector/properties" - do:[:index | | lit | - (((lit := self objectAt: index) literalEqual: literal) - or: [(lit isVariableBinding and: [lit key == literal]) - or: [lit isArray and: [lit hasLiteral: literal]]]) ifTrue: - [^ true]]. - ^ false ! Item was changed: ----- Method: CompiledMethod>>refersToLiteral: (in category '*60Deprecated-literals') ----- refersToLiteral:aLiteral + self deprecated: 'Use #hasLiteral: instead.'. + ^self hasLiteral: aLiteral! - ^self hasLiteral: aLiteral.! Item was added: + ----- Method: SystemNavigation class>>thoroughSenders (in category '*60Deprecated-preferences') ----- + thoroughSenders + + self deprecated: 'Senders browsing is always thorough. See #allLiterals vs. #literals.'. + ^ true! Item was added: + ----- Method: SystemNavigation class>>thoroughSenders: (in category '*60Deprecated-preferences') ----- + thoroughSenders: aBoolean + + self deprecated: 'Senders browsing is always thorough. See #allLiterals vs. #literals.'.!

1 0

The Trunk: SUnitGUI-mt.70.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-mt.70.mcz ==================== Summary ==================== Name: SUnitGUI-mt.70 Author: mt Time: 12 July 2019, 10:04:59.772568 am UUID: e8e5586c-52c1-f040-baab-80b15b269ccf Ancestors: SUnitGUI-tpr.69 Refactoring of #literalsDo: - Step 3 of 3. For more information, see http://forum.world.st/Please-Review-Refactoring-for-literalsDo-etc-tp509975…. =============== Diff against SUnitGUI-tpr.69 =============== Item was changed: ----- Method: TestRunner>>addMethodsUnderTestIn:to: (in category 'actions') ----- addMethodsUnderTestIn: packages to: methods packages do: [:package | package isNil ifFalse: [package methods do: [:method | ((#(#packageNamesUnderTest #classNamesNotUnderTest ) includes: method methodSymbol) or: [method compiledMethod isAbstract + or: [method compiledMethod hasLiteral: #ignoreForCoverage]]) - or: [method compiledMethod refersToLiteral: #ignoreForCoverage]]) ifFalse: [methods add: method]]]]!

1 0

The Trunk: PreferenceBrowser-mt.86.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.86.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.86 Author: mt Time: 12 July 2019, 10:04:40.745568 am UUID: 6b577578-3b13-054a-9ad4-d24d1294ec3c Ancestors: PreferenceBrowser-mt.85 Refactoring of #literalsDo: - Step 3 of 3. For more information, see http://forum.world.st/Please-Review-Refactoring-for-literalsDo-etc-tp509975…. =============== Diff against PreferenceBrowser-mt.85 =============== Item was changed: ----- Method: PBPreferenceView>>offerPreferenceNameMenu: (in category 'user interface') ----- offerPreferenceNameMenu: aPreferenceBrowser "the user clicked on a preference name -- put up a menu" | aMenu | aMenu := MenuMorph new defaultTarget: self preference; addTitle: self preference name. (Preferences okayToChangeProjectLocalnessOf: self preference name) ifTrue: [aMenu addUpdating: #isProjectLocalString target: self preference action: #toggleProjectLocalness. aMenu balloonTextForLastItem: 'Some preferences are best applied uniformly to all projects, and others are best set by each individual project. If this item is checked, then this preference will be printed in bold and will have a separate value for each project']. + aMenu add: 'browse senders' translated target: self systemNavigation selector: #browseAllSelect:name:autoSelect: argumentList: {[:m | self preference selectors anySatisfy: [:sel | m hasLiteral: sel]]. 'Preference senders: {1}' translated format: {self preference name}. self preference selectors first}. - aMenu add: 'browse senders' translated target: self systemNavigation selector: #browseAllSelect:name:autoSelect: argumentList: {[:m | self preference selectors anySatisfy: [:sel | m hasLiteralThorough: sel]]. 'Preference senders: {1}' translated format: {self preference name}. self preference selectors first}. aMenu balloonTextForLastItem: 'This will open a method-list browser on all methods that the send the preference "', self preference name, '".'. aMenu add: 'show category...' target: aPreferenceBrowser selector: #findCategoryFromPreference: argument: self preference name. aMenu balloonTextForLastItem: 'Allows you to find out which category, or categories, this preference belongs to.'. Smalltalk isMorphic ifTrue: [aMenu add: 'hand me a button for this preference' target: self selector: #tearOffButton. aMenu balloonTextForLastItem: 'Will give you a button that governs this preference, which you may deposit wherever you wish']. aMenu add: 'copy this name to clipboard' target: self preference selector: #copyName. aMenu balloonTextForLastItem: 'Copy the name of the preference to the text clipboard, so that you can paste into code somewhere'. aMenu popUpInWorld!

1 0

The Trunk: EToys-mt.344.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.344.mcz ==================== Summary ==================== Name: EToys-mt.344 Author: mt Time: 12 July 2019, 10:04:01.672568 am UUID: 363aaeaf-0e33-e14e-8ad7-a90d2485ffca Ancestors: EToys-nice.343 Refactoring of #literalsDo: - Step 3 of 3. For more information, see http://forum.world.st/Please-Review-Refactoring-for-literalsDo-etc-tp509975…. =============== Diff against EToys-nice.343 =============== Item was changed: ----- Method: Preferences class>>cambridge (in category '*Etoys-Squeakland-themes') ----- cambridge "A theme for Squeakland and OLPC project" "Preferences cambridge" "This method has three parts. Don't forget to look at the stuff at the bottom." self setPreferencesFrom: #( (allowCelesteTell false) (alternativeScrollbarLook true) (alternativeWindowLook true) (annotationPanes true) (automaticKeyGeneration true) (biggerHandles true) (blinkParen false) (browseWithDragNDrop true) (canRecordWhilePlaying true) (classicNavigatorEnabled false) (compactViewerFlaps true) (enableLocalSave false) (escapeKeyProducesMenu false) (eToyFriendly true) (eToyLoginEnabled true) (extraDebuggerButtons false) (gradientMenu false) (haloTransitions false) (honorDesktopCmdKeys true) (includeSoundControlInNavigator true) (magicHalos false) (menuAppearance3d false) (menuKeyboardControl false) (modalColorPickers true) (mouseOverHalos false) (mvcProjectsAllowed false) (preserveTrash true) (projectViewsInWindows false) (promptForUpdateServer false) (propertySheetFromHalo false) (roundedMenuCorners false) (roundedWindowCorners false) (securityChecksEnabled true) (standaloneSecurityChecksEnabled true) (duplicateControlAndAltKeys true) (showDirectionHandles false) (showDirectionForSketches true) (showProjectNavigator false) (showSecurityStatus false) (soundQuickStart true) "see setPlatformPreferences" (soundReverb false) (soundStopWhenDone true) "see setPlatformPreferences" (startInUntrustedDirectory true) (sugarAutoSave false) (swapControlAndAltKeys false) "see setPlatformPreferences" (uniqueNamesInHalos true) (unlimitedPaintArea false) (useArtificialSweetenerBar true) (useBiggerPaintingBox true) (useFormsInPaintBox false) (useLocale true) (usePangoRenderer false) (usePlatformFonts false) (usePopUpArrows true) (warnAboutInsecureContent false) "The following is to make sure the default is set properly." (abbreviatedBrowserButtons false) (allowEtoyUserCustomEvents false) (alphabeticalProjectMenu false) (alternativeBrowseIt false) (alternativeButtonsInScrollBars false) (alternativeWindowBoxesLook true) (alwaysHideHScrollbar false) (alwaysShowConnectionVocabulary false) (alwaysShowHScrollbar false) (alwaysShowVScrollbar true) (ansiAssignmentOperatorWhenPrettyPrinting true) (areaFillsAreTolerant false) (areaFillsAreVeryTolerant false) (autoAccessors false) (automaticFlapLayout true) (automaticPlatformSettings true) "enables setPlatformPreferences" (automaticViewerPlacement true) (balloonHelpEnabled true) (balloonHelpInMessageLists false) (batchPenTrails false) (biggerCursors true) (browserNagIfNoClassComment true) (browserShowsPackagePane false) (browseWithPrettyPrint false) (capitalizedReferences true) (caseSensitiveFinds false) (cautionBeforeClosing false) (celesteHasStatusPane false) (celesteShowsAttachmentsFlag false) (changeSetVersionNumbers true) (checkForSlips true) (checkForUnsavedProjects true) (classicNewMorphMenu false) (clickOnLabelToEdit false) (cmdDotEnabled true) (collapseWindowsInPlace false) (colorWhenPrettyPrinting false) (compressFlashImages false) (confirmFirstUseOfStyle true) (conversionMethodsAtFileOut false) (cpuWatcherEnabled false) (debugHaloHandle false) (debugPrintSpaceLog false) (debugShowDamage false) (decorateBrowserButtons true) (defaultFileOutFormatMacRoman false) (diffsInChangeList true) (diffsWithPrettyPrint false) (dismissAllOnOptionClose false) (dismissEventTheatreUponPublish true) (dragNDropWithAnimation false) (dropProducesWatcher true) (duplicateControlAndAltKeys false) (easySelection false) (enableInternetConfig false) (enablePortraitMode false) (enableVirtualOLPCDisplay false) (expandedPublishing true) (extractFlashInHighestQuality false) (extractFlashInHighQuality true) (fastDragWindowForMorphic true) (fenceEnabled true) (fenceSoundEnabled false) (fullScreenLeavesDeskMargins true) (gradientScrollBars true) (haloEnclosesFullBounds false) (higherPerformance false) (ignoreStyleIfOnlyBold true) (implicitSelfInTiles false) (inboardScrollbars true) (infiniteUndo false) (keepTickingWhilePainting false) (logDebuggerStackToFile true) (menuButtonInToolPane false) (menuColorFromWorld false) (menuWithIcons true) (morphicProgressStyle true) (mouseOverForKeyboardFocus false) (navigatorOnLeftEdge true) (noviceMode false) (okToReinitializeFlaps true) (oliveHandleForScriptedObjects false) (optionalButtons true) (passwordsOnPublish false) (personalizedWorldMenu true) (postscriptStoredAsEPS false) (printAlternateSyntax false) (projectsSentToDisk false) (projectZoom true) (readDocumentAtStartup true) (restartAlsoProceeds false) (reverseWindowStagger true) (rotationAndScaleHandlesInPaintBox false) (scrollBarsNarrow false) (scrollBarsOnRight true) (scrollBarsWithoutMenuButton false) (selectionsMayShrink true) (selectiveHalos true) (showAdvancedNavigatorButtons false) (showBoundsInHalo false) (showDeprecationWarnings false) (showFlapsWhenPublishing false) (showLinesInHierarchyViews true) (showSharedFlaps true) (signProjectFiles true) (simpleMenus false) (slideDismissalsToTrash true) (smartUpdating true) (soundsEnabled true) (swapMouseButtons false) (systemWindowEmbedOK false) (tabAmongFields true) (testRunnerShowAbstractClasses false) - (thoroughSenders true) (tileTranslucentDrag true) (timeStampsInMenuTitles true) (translationWithBabel false) (turnOffPowerManager false) (twentyFourHourFileStamps true) (twoSidedPoohTextures true) (typeCheckingInTileScripting true) (unifyNestedProgressBars true) (uniTilesClassic true) (universalTiles false) (updateFromServerAtStartup false) (updateSavesFile false) (useButtonPropertiesToFire false) (useFileList2 true) (useSmartLabels false) (useUndo true) (useVectorVocabulary false) (viewersInFlaps true) (warnIfNoChangesFile false) (warnIfNoSourcesFile false) (warningForMacOSFileNameLength false) (wordStyleCursorMovement true) ). Preferences setPreference: #haloTheme toValue: #iconicHaloSpecifications. !

1 0

The Trunk: KernelTests-mt.367.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-mt.367.mcz ==================== Summary ==================== Name: KernelTests-mt.367 Author: mt Time: 12 July 2019, 10:03:38.274568 am UUID: a9bb0047-2d49-904c-b91b-a920c1bbc314 Ancestors: KernelTests-ul.366 Refactoring of #literalsDo: - Step 3 of 3. For more information, see http://forum.world.st/Please-Review-Refactoring-for-literalsDo-etc-tp509975…. =============== Diff against KernelTests-ul.366 =============== Item was changed: ----- Method: LiteralRefLocatorTest>>testFindLiteralsInBytecode (in category 'tests') ----- testFindLiteralsInBytecode "Create a method referencing integers, characters, special selectors and nil, true & false. Compile it and check that the objects are found." | source primary secondary binarySpecials integers characters | binarySpecials := Smalltalk specialSelectors select: [:s| s isSymbol and: [s isBinary]]. "-65536 to 65535 in powers of two" integers := ((16 to: 1 by: -1) collect: [:power| (2 raisedTo: power) negated]), ((0 to: 16) collect: [:power| (2 raisedTo: power) - 1]). "some printable characters; alas none have code > 255" characters := (0 to: 65535) select: [:n| (n between: 132 and: 160) not "these have no glyph in typical fonts" and: [(Character value: n) shouldBePrintedAsLiteral]] thenCollect: [:n| Character value: n]. [characters size > 32] whileTrue: [characters := (1 to: characters size by: 2) collect: [:i| characters at: i]]. #(('' '') ('^[' ']')) do: "And the locators should work whether in a block or not" [:pFixes| source := ByteString streamContents: [:s| | binaries | binaries := binarySpecials readStream. s nextPutAll: 'exampleMethod'; crtab; nextPutAll: pFixes first. integers do: [:n| s print: n] separatedBy: [binaries atEnd ifTrue: [binaries reset]. s space; nextPutAll: binaries next; space]. s nextPut: $.; crtab. s nextPut: ${; space. characters do: [:c| s print: c] separatedBy: [s nextPut: $.; space]. s space; nextPut: $}; nextPut: $.; crtab. s nextPutAll: 'true ifTrue: [^nil] ifFalse: [^false]'; nextPutAll: pFixes last]. primary := CompiledCode classPool at: #PrimaryBytecodeSetEncoderClass. secondary := CompiledCode classPool at: #SecondaryBytecodeSetEncoderClass. { primary. secondary } do: [:encoderClass| | method | method := (Parser new encoderClass: encoderClass; parse: source class: self class) generate: CompiledMethodTrailer empty. + binarySpecials, integers, characters, #(nil false true) do: + [:literal | self assert: (method hasLiteral: literal)]. - binarySpecials, integers, characters, #(nil false true) do: - [:literal| - self assert: (method - refersTo: literal - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: false). - (encoderClass scanBlockOrNilForLiteral: literal) - ifNil: [self assert: (method hasLiteral: literal)] - ifNotNil: [:scanBlock| - self assert: ((method scanFor: scanBlock) - or: [method literals anySatisfy: [:l| l isCompiledCode and: [l scanFor: scanBlock]]])]]. "Now test for false positives..." integers, characters, #(nil false true) do: [:literal| | simpleSource simpleMethod | simpleSource := ByteString streamContents: [:s| s nextPutAll: 'exampleMethod'; crtab; nextPutAll: pFixes first; print: literal; nextPutAll: ' class'; nextPutAll: pFixes last]. simpleMethod := (Parser new encoderClass: encoderClass; parse: simpleSource class: self class) generate: CompiledMethodTrailer empty. + binarySpecials, integers, characters, #(nil false true) do: [:anyLiteral | - binarySpecials, integers, characters, #(nil false true) do: - [:anyLiteral| anyLiteral == literal + ifTrue: [self assert: (simpleMethod hasLiteral: anyLiteral)] + ifFalse: [self deny: (simpleMethod hasLiteral: anyLiteral)]]]]]! - ifTrue: - [self assert: (simpleMethod - refersTo: anyLiteral - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: anyLiteral) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: anyLiteral) - thorough: false). - (encoderClass scanBlockOrNilForLiteral: anyLiteral) - ifNil: [self assert: (simpleMethod hasLiteral: anyLiteral)] - ifNotNil: [:scanBlock| - self assert: ((simpleMethod scanFor: scanBlock) - or: [simpleMethod literals anySatisfy: [:l| l isCompiledCode and: [l scanFor: scanBlock]]])]] - ifFalse: - [self deny: (simpleMethod - refersTo: anyLiteral - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: anyLiteral) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: anyLiteral) - thorough: false). - (encoderClass scanBlockOrNilForLiteral: anyLiteral) - ifNil: [self deny: (simpleMethod hasLiteral: anyLiteral)] - ifNotNil: [:scanBlock| - self deny: ((simpleMethod scanFor: scanBlock) - or: [simpleMethod literals anySatisfy: [:l| l isCompiledCode and: [l scanFor: scanBlock]]])]]]]]]! Item was changed: ----- Method: LiteralRefLocatorTest>>testThoroughFindLiteralsInBytecode (in category 'tests') ----- testThoroughFindLiteralsInBytecode "Create a method referencing integers, characters, special selectors and nil, true & false. Compile it and check that the objects are found." | literals problem primary secondary | literals := #(-1 0 1 $0 $1 1.0 #[1 2 3 4] 'one' #one nil true false NaN). problem := Float bindingOf: #NaN. primary := CompiledCode classPool at: #PrimaryBytecodeSetEncoderClass. secondary := CompiledCode classPool at: #SecondaryBytecodeSetEncoderClass. { primary. secondary } do: [:encoderClass| | method | #(('' '') ('^[' ']')) do: "And the locators should work whether in a block or not" [:pFixes| "NaN's binding should still be found even though (Float bindingOf: #NaN) ~= (Float bindingOf: #NaN)" method := (Parser new encoderClass: encoderClass; parse: 'foo ', pFixes first, '^NaN', pFixes last class: Float) generate: CompiledMethodTrailer empty. + + "Check our problematic case first." + self assert: (method hasLiteral: problem). - [:literal| - self assert: (method - refersTo: literal - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: false). - self assert: (method - refersTo: literal - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: true). "The selector of a method should never be found (unless it occurs as a literal or in a pragma)" + self deny: (method hasLiteral: method selector). - self deny: (method - refersTo: method selector - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: false). - self deny: (method - refersTo: method selector - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: true)] value: problem. "All the literals should be found in a thorough search, but not otherwise" method := (Parser new encoderClass: encoderClass; parse: 'foo ', pFixes first, '^', literals storeString, pFixes last class: Float) generate: CompiledMethodTrailer empty. + literals, {problem key} do: + [:literal | self assert: (method hasLiteral: literal)]]. - literals, {problem. problem key} do: - [:literal| - self deny: (method - refersTo: literal - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: false). - self assert: (method - refersTo: literal - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: true)]]. "Likewise if in a pragma" method := (Parser new encoderClass: encoderClass; parse: 'foo <pragma: ', literals storeString, ' with: ', problem key storeString, '>' class: Float) generate: CompiledMethodTrailer empty. + literals, {problem key} do: + [:literal | self assert: (method hasLiteral: literal)]]! - literals, {problem. problem key} do: - [:literal| - self deny: (method - refersTo: literal - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: false). - self assert: (method - refersTo: literal - primaryBytecodeScanner: (primary scanBlockOrNilForLiteral: literal) - secondaryBytecodeScanner: (secondary scanBlockOrNilForLiteral: literal) - thorough: true)]]!

1 0

The Trunk: Tools-mt.853.mcz
by commits＠source.squeak.org 12 Jul '19

12 Jul '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.853.mcz ==================== Summary ==================== Name: Tools-mt.853 Author: mt Time: 12 July 2019, 10:03:14.831568 am UUID: 6166ceba-b1a9-6e48-97bc-f3b4c09a508c Ancestors: Tools-mt.852 Refactoring of #literalsDo: - Step 3 of 3. For more information, see http://forum.world.st/Please-Review-Refactoring-for-literalsDo-etc-tp509975…. =============== Diff against Tools-mt.852 =============== Item was changed: ----- Method: Behavior>>toolIconSelector: (in category '*Tools-icons') ----- toolIconSelector: aSymbol "Tools can annotate the method identified by aSymbol with an icon identified by the symbol this method returns. We customize this for, eg, overriden methods or methods with breaks. Defaults to no icon" self methodDictionary at: aSymbol ifPresent: [ :method | method hasBreakpoint ifTrue: [^ #breakpoint]. + method messagesDo: [:messageSelector | + (#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount: break) includes: messageSelector) - method literalsDo: [:literal | - (#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount: break) includes: literal) ifTrue: [^ #breakpoint]. + (#(flag: needsWork notYetImplemented) includes: messageSelector) - (#(flag: needsWork notYetImplemented) includes: literal) ifTrue: [^ #flag]. + (#(shouldBeImplemented subclassResponsibility) includes: messageSelector) - (#(shouldBeImplemented subclassResponsibility) includes: literal) ifTrue: [ (self isSelectorOverridden: aSymbol) ifTrue: [^ #abstract] ifFalse: [^ #notOverridden]]. + messageSelector == #shouldNotImplement - literal == #shouldNotImplement ifTrue: [^ #no]]. method hasReportableSlip ifTrue: [^ #breakpoint]]. (self isSelectorOverride: aSymbol) ifTrue: [ (self isSelectorOverridden: aSymbol) ifTrue: [ ^ #arrowUpAndDown ] ifFalse: [ ^ #arrowUp ] ] ifFalse: [ (self isSelectorOverridden: aSymbol) ifTrue: [^ #arrowDown ]]. self methodDictionary at: aSymbol ifPresent: [ :method | (method primitive ~= 0 and: [method isQuick not]) ifTrue: [^ #primitive]]. ^ #blank! Item was changed: ----- Method: MessageSet>>filterToNotSendersOf (in category 'filtering') ----- filterToNotSendersOf "Filter the receiver's list down to only those items which do not send a given selector" | aFragment inputWithBlanksTrimmed | aFragment := self request: 'type selector:' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | | aMethod | (aMethod := aClass compiledMethodAt: aSelector) isNil or: + [(aMethod hasLiteral: aSymbol) not]]]! - [(aMethod hasLiteralThorough: aSymbol) not]]]! Item was changed: ----- Method: MessageSet>>filterToSendersOf (in category 'filtering') ----- filterToSendersOf "Filter the receiver's list down to only those items which send a given selector" | aFragment inputWithBlanksTrimmed | aFragment := self request: 'type selector:' initialAnswer: ''. aFragment isEmptyOrNil ifTrue: [^ self]. inputWithBlanksTrimmed := aFragment withBlanksTrimmed. Symbol hasInterned: inputWithBlanksTrimmed ifTrue: [:aSymbol | self filterFrom: [:aClass :aSelector | | aMethod | (aMethod := aClass compiledMethodAt: aSelector) notNil and: + [aMethod hasLiteral: aSymbol]]] - [aMethod hasLiteralThorough: aSymbol]]] ! Item was changed: ----- Method: StringHolder>>withSelectorAndMessagesIn:evaluate: (in category '*Tools') ----- withSelectorAndMessagesIn: aCompiledMethod evaluate: aBlock "Allow the user to choose one selector, chosen from the currently selected message's selector, as well as those of all messages sent by it, and evaluate aBlock on behalf of chosen selector. If there is only one possible choice, simply make it; if there are multiple choices, put up a menu, and evaluate aBlock on behalf of the the chosen selector, doing nothing if the user declines to choose any" | selectorOrNil messages | selectorOrNil := aCompiledMethod selector. messages := aCompiledMethod messages. - SystemNavigation thoroughSenders ifTrue: - [| litGetter | - litGetter := [:l| - (l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue: - [messages add: l]. - l isArray ifTrue: - [l do: litGetter]]. - aCompiledMethod allLiterals do: litGetter. - aCompiledMethod pragmas do: - [:pragma| - litGetter - value: pragma keyword; - value: pragma arguments]]. messages remove: selectorOrNil ifAbsent: ["do nothing"]. messages ifEmpty: "If only one item, there is no choice" [^selectorOrNil ifNotNil: [aBlock value: selectorOrNil]]. self systemNavigation showMenuOf: messages withFirstItem: selectorOrNil ifChosenDo: aBlock!

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