Packages August 2019

packages@lists.squeakfoundation.org

1 participants
150 discussions

The Trunk: PreferenceBrowser-ct.88.mcz
by commits＠source.squeak.org 15 Aug '19

15 Aug '19

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-ct.88.mcz ==================== Summary ==================== Name: PreferenceBrowser-ct.88 Author: ct Time: 15 August 2019, 1:10:30.509584 am UUID: dd2e726b-1ef0-774c-8b31-9ecc8910866c Ancestors: PreferenceBrowser-mt.87 Add entries "browse implementation" and "inspect preference" to the Preference item menu =============== Diff against PreferenceBrowser-mt.87 =============== 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; + 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 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 }; + balloonTextForLastItem: 'This will open a method-list browser on all methods that the send the preference "' + , self preference name , '".'. + self preference provider ifNotNil: [ + aMenu + add: 'browse implementation' translated + target: Browser + selector: #fullOnClass:selector: + argumentList: { + self preference provider class. + self preference selectors first }; + balloonTextForLastItem: 'This will open a browser on the method that stores the preference "' , self preference name , '".']. + aMenu + add: 'inspect preference' translated + target: self preference + selector: #inspect; + balloonTextForLastItem: 'This will open an Inspector on the preference "' , self preference name , '".'. + aMenu + add: 'show category...' + target: aPreferenceBrowser + selector: #findCategoryFromPreference: + argument: self preference name; + balloonTextForLastItem: 'Allows you to find out which category, or categories, this preference belongs to.'. - 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 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; + balloonTextForLastItem: 'Will give you a button that governs this preference, which you may deposit wherever you wish']. - [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; + balloonTextForLastItem: 'Copy the name of the preference to the text clipboard, so that you can paste into code somewhere'. - 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: 51Deprecated-ct.54.mcz
by commits＠source.squeak.org 15 Aug '19

15 Aug '19

Marcel Taeumel uploaded a new version of 51Deprecated to project The Trunk: http://source.squeak.org/trunk/51Deprecated-ct.54.mcz ==================== Summary ==================== Name: 51Deprecated-ct.54 Author: ct Time: 15 August 2019, 3:03:33.625584 am UUID: c08bf8a9-4a98-b646-b30b-a0c0920ce116 Ancestors: 51Deprecated-mt.53 Mark deprecated methods with #deprecated =============== Diff against 51Deprecated-mt.53 =============== Item was changed: ----- Method: MenuMorph>>useRoundedCorners (in category '*51Deprecated') ----- useRoundedCorners + self deprecated. self cornerStyle: #rounded! Item was changed: ----- Method: MenuMorph>>useSquareCorners (in category '*51Deprecated') ----- useSquareCorners + self deprecated. self cornerStyle: #square! Item was changed: ----- Method: UIManager>>restoreDisplay (in category '*51Deprecated') ----- restoreDisplay + self deprecated. Display restore.!

1 0

The Trunk: 46Deprecated-ct.8.mcz
by commits＠source.squeak.org 15 Aug '19

15 Aug '19

Marcel Taeumel uploaded a new version of 46Deprecated to project The Trunk: http://source.squeak.org/trunk/46Deprecated-ct.8.mcz ==================== Summary ==================== Name: 46Deprecated-ct.8 Author: ct Time: 15 August 2019, 2:59:15.890584 am UUID: d1c020d3-3cf4-7047-9199-2e91f9fcd256 Ancestors: 46Deprecated-mt.7 Mark deprecated Browser methods with #deprecated: =============== Diff against 46Deprecated-mt.7 =============== Item was changed: ----- Method: Browser>>classComment:notifying: (in category '*46Deprecated') ----- classComment: aText notifying: aPluggableTextMorph "The user has just entered aText. It may be all red (a side-effect of replacing the default comment), so remove the color if it is." | theClass cleanedText redRange | + self deprecated: 'ct: Use #classComment: on selectedClass instead'. theClass := self selectedClassOrMetaClass. theClass ifNotNil: [cleanedText := aText asText. redRange := cleanedText rangeOf: TextColor red startingAt: 1. redRange size = cleanedText size ifTrue: [cleanedText removeAttribute: TextColor red from: 1 to: redRange last ]. theClass comment: aText stamp: Utilities changeStamp]. self changed: #classCommentText. ^ true! Item was changed: ----- Method: Browser>>messageListSingleton (in category '*46Deprecated') ----- messageListSingleton | name | + self deprecated. name := self selectedMessageName. ^ name ifNil: [Array new] ifNotNil: [Array with: name]! Item was changed: ----- Method: Browser>>optionalAnnotationHeight (in category '*46Deprecated') ----- optionalAnnotationHeight + self deprecated. ^ 10! Item was changed: ----- Method: Browser>>optionalButtonHeight (in category '*46Deprecated') ----- optionalButtonHeight + self deprecated. ^ 10! Item was changed: ----- Method: Browser>>potentialClassNames (in category '*46Deprecated') ----- potentialClassNames "Answer the names of all the classes that could be viewed in this browser. This hook is provided so that HierarchyBrowsers can indicate their restricted subset. For generic Browsers, the entire list of classes known to Smalltalk is provided, though of course that really only is accurate in the case of full system browsers." + self deprecated: 'ct: All classes can be viewed in browser without restrictions.'. ^ Smalltalk classNames! Item was changed: ----- Method: HierarchyBrowser>>potentialClassNames (in category '*46Deprecated') ----- potentialClassNames "Answer the names of all the classes that could be viewed in this browser" + self deprecated: 'ct: All classes can be viewed in browser without restrictions.'. ^ self classList collect: [:aName | aName copyWithout: $ ]!

1 0

The Trunk: 45Deprecated-ct.27.mcz
by commits＠source.squeak.org 15 Aug '19

15 Aug '19

Marcel Taeumel uploaded a new version of 45Deprecated to project The Trunk: http://source.squeak.org/trunk/45Deprecated-ct.27.mcz ==================== Summary ==================== Name: 45Deprecated-ct.27 Author: ct Time: 15 August 2019, 3:02:49.486584 am UUID: 069f1037-0192-fe41-a267-3058ef31dea8 Ancestors: 45Deprecated-eem.26 Mark deprecated Utilities>>#methodDiffFor:class:selector:prettyDiffs: with #deprecated: =============== Diff against 45Deprecated-eem.26 =============== Item was changed: ----- Method: Utilities class>>methodDiffFor:class:selector:prettyDiffs: (in category '*45Deprecated-miscellaneous') ----- methodDiffFor: aString class: aClass selector: aSelector prettyDiffs: prettyDiffBoolean "Return a string comprising a source-code diff between an existing method and the source-code in aString. DO prettyDiff if prettyDiffBoolean is true." + self deprecated: 'Use ' , ChangeList , #>> , #methodDiffFor:class:selector:prettyDiffs: , ' instead'. ^ (aClass notNil and: [aClass includesSelector: aSelector]) ifTrue: [TextDiffBuilder buildDisplayPatchFrom: (aClass sourceCodeAt: aSelector) to: aString inClass: aClass prettyDiffs: prettyDiffBoolean] ifFalse: [aString copy]!

1 0

The Trunk: Kernel-ct.1255.mcz
by commits＠source.squeak.org 14 Aug '19

14 Aug '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1255.mcz ==================== Summary ==================== Name: Kernel-ct.1255 Author: ct Time: 9 August 2019, 10:08:18.927412 pm UUID: 2355c96f-9cc4-2f45-aebe-385f6465737e Ancestors: Kernel-mt.1254 Propose convenience method for pragma analysis =============== Diff against Kernel-mt.1254 =============== Item was added: + ----- Method: CompiledMethod>>hasPragma: (in category 'accessing-pragmas & properties') ----- + hasPragma: aSymbol + + ^ (self pragmaAt: aSymbol) notNil!

1 0

The Trunk: Kernel-ct.1256.mcz
by commits＠source.squeak.org 14 Aug '19

14 Aug '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1256.mcz ==================== Summary ==================== Name: Kernel-ct.1256 Author: ct Time: 9 August 2019, 10:13:59.051412 pm UUID: 4b6baca9-0e16-ea4d-9913-b813ebf87863 Ancestors: Kernel-ct.1255 Deduplicate CompiledMethod>>#pragmasAt: =============== Diff against Kernel-mt.1254 =============== Item was added: + ----- Method: CompiledMethod>>hasPragma: (in category 'accessing-pragmas & properties') ----- + hasPragma: aSymbol + + ^ (self pragmaAt: aSymbol) notNil! Item was changed: ----- Method: CompiledMethod>>pragmasAt: (in category 'accessing-pragmas & properties') ----- pragmasAt: aSelector + ^self pragmas select: [:p| p keyword = aSelector]! - | selectorOrProperties | - ^(selectorOrProperties := self penultimateLiteral) isMethodProperties - ifTrue: [selectorOrProperties pragmas select: [:p| p keyword = aSelector]] - ifFalse: [#()]!

1 0

The Trunk: Kernel-mt.1257.mcz
by commits＠source.squeak.org 14 Aug '19

14 Aug '19

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1257.mcz ==================== Summary ==================== Name: Kernel-mt.1257 Author: mt Time: 14 August 2019, 5:11:58.166512 pm UUID: afbd54a7-0b4b-c945-a20d-a640d001d4e6 Ancestors: Kernel-mt.1256, Kernel-ct.1256 Merges Kernel-ct.1256. Note that there is also the Pragma class, which offers a querying interface for pragmas. =============== Diff against Kernel-mt.1256 =============== Item was added: + ----- Method: CompiledMethod>>hasPragma: (in category 'accessing-pragmas & properties') ----- + hasPragma: aSymbol + + ^ (self pragmaAt: aSymbol) notNil! Item was changed: ----- Method: CompiledMethod>>pragmasAt: (in category 'accessing-pragmas & properties') ----- pragmasAt: aSelector + ^self pragmas select: [:p| p keyword = aSelector]! - | selectorOrProperties | - ^(selectorOrProperties := self penultimateLiteral) isMethodProperties - ifTrue: [selectorOrProperties pragmas select: [:p| p keyword = aSelector]] - ifFalse: [#()]!

1 0

The Trunk: SUnitGUI-ct.70.mcz
by commits＠source.squeak.org 14 Aug '19

14 Aug '19

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-ct.70.mcz ==================== Summary ==================== Name: SUnitGUI-ct.70 Author: ct Time: 31 May 2019, 2:15:26.862053 pm UUID: 44154dfb-d0a5-e841-9b8e-826248842855 Ancestors: SUnitGUI-tpr.69 Add convenience method (#newForSuite:) for instance creation of TestRunner. =============== Diff against SUnitGUI-tpr.69 =============== Item was added: + ----- Method: TestRunner class>>newForSuite: (in category 'instance-creation') ----- + newForSuite: aSuite + + | runner classes categories | + runner := TestRunner new. + classes := aSuite tests asSet collect: #class. + categories := classes collect: #category. + ^ runner + filterCategoriesBy: ((categories collect: #asString) asStringByDelimiter: $;); + filterClassesBy: ((classes collect: #asString) asStringByDelimiter: $;); + yourself! Item was changed: ----- Method: TestRunner>>filterCategories (in category 'accessing-categories') ----- filterCategories | pattern | pattern := UIManager default request: 'Pattern(s) to select categories:\ (separate patterns with '';'')' withCRs initialAnswer: (categoryPattern ifNil: ['*']). (pattern isNil or: [pattern isEmpty]) ifTrue: [^self]. + self filterCategoriesBy: pattern! - categoriesSelected := ((categoryPattern := pattern) subStrings: ';') - inject: Set new - into: [:matches :subPattern| - matches - addAll: (categories select: [ :each | subPattern match: each]); - yourself]. - self changed: #allSelections; changed: #categorySelected; updateClasses! Item was added: + ----- Method: TestRunner>>filterCategoriesBy: (in category 'accessing-categories') ----- + filterCategoriesBy: aPattern + categoriesSelected := ((categoryPattern := aPattern) subStrings: ';') + inject: Set new + into: [:matches :subPattern| + matches + addAll: (categories select: [ :each | subPattern match: each]); + yourself]. + self changed: #allSelections; changed: #categorySelected; updateClasses! Item was changed: ----- Method: TestRunner>>filterClasses (in category 'accessing-classes') ----- filterClasses | pattern | pattern := UIManager default request: 'Pattern(s) to select tests:\ (separate patterns with '';'')' withCRs initialAnswer: (classPattern ifNil: '*'). (pattern isNil or: [pattern isEmpty]) ifTrue: [^self]. + self filterClassesBy: pattern! - classesSelected := ((classPattern := pattern) subStrings: ';') - inject: Set new - into: [:matches :subPattern| - matches - addAll: (classes select: [ :each | subPattern match: each name]); - yourself]. - self - changed: #allSelections; - changed: #classSelected; - changed: #hasRunnable! Item was added: + ----- Method: TestRunner>>filterClassesBy: (in category 'accessing-classes') ----- + filterClassesBy: aPattern + classesSelected := ((classPattern := aPattern) subStrings: ';') + inject: Set new + into: [:matches :subPattern| + matches + addAll: (classes select: [ :each | subPattern match: each name]); + yourself]. + self + changed: #allSelections; + changed: #classSelected; + changed: #hasRunnable!

1 0

The Trunk: SUnitGUI-mt.71.mcz
by commits＠source.squeak.org 14 Aug '19

14 Aug '19

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-mt.71.mcz ==================== Summary ==================== Name: SUnitGUI-mt.71 Author: mt Time: 14 August 2019, 4:55:53.613512 pm UUID: 566c13a6-5e67-1c4d-9087-942122f28586 Ancestors: SUnitGUI-mt.70, SUnitGUI-ct.70 Merges SUnitGUI-ct.70. Adds a convenient way to open a test runner with tests for a particular suite pre-selected. Try: TestRunner openForSuite: CollectionTest buildSuite. =============== Diff against SUnitGUI-mt.70 =============== Item was added: + ----- Method: TestRunner class>>buildForSuite: (in category 'instance-creation') ----- + buildForSuite: aTestSuite + ^ ToolBuilder build: (self newForSuite: aTestSuite).! Item was added: + ----- Method: TestRunner class>>newForSuite: (in category 'instance-creation') ----- + newForSuite: aSuite + + | runner classes categories | + runner := TestRunner new. + classes := aSuite tests asSet collect: #class. + categories := classes collect: #category. + ^ runner + filterCategoriesBy: ((categories collect: #asString) asArray joinSeparatedBy: $;); + filterClassesBy: ((classes collect: #asString) asArray joinSeparatedBy: $;); + yourself! Item was added: + ----- Method: TestRunner class>>openForSuite: (in category 'instance-creation') ----- + openForSuite: aTestSuite + ^ ToolBuilder open: (self newForSuite: aTestSuite).! Item was changed: ----- Method: TestRunner>>filterCategories (in category 'accessing-categories') ----- filterCategories | pattern | pattern := UIManager default request: 'Pattern(s) to select categories:\ (separate patterns with '';'')' withCRs initialAnswer: (categoryPattern ifNil: ['*']). (pattern isNil or: [pattern isEmpty]) ifTrue: [^self]. + self filterCategoriesBy: pattern! - categoriesSelected := ((categoryPattern := pattern) subStrings: ';') - inject: Set new - into: [:matches :subPattern| - matches - addAll: (categories select: [ :each | subPattern match: each]); - yourself]. - self changed: #allSelections; changed: #categorySelected; updateClasses! Item was added: + ----- Method: TestRunner>>filterCategoriesBy: (in category 'accessing-categories') ----- + filterCategoriesBy: aPattern + categoriesSelected := ((categoryPattern := aPattern) subStrings: ';') + inject: Set new + into: [:matches :subPattern| + matches + addAll: (categories select: [ :each | subPattern match: each]); + yourself]. + self changed: #allSelections; changed: #categorySelected; updateClasses! Item was changed: ----- Method: TestRunner>>filterClasses (in category 'accessing-classes') ----- filterClasses | pattern | pattern := UIManager default request: 'Pattern(s) to select tests:\ (separate patterns with '';'')' withCRs initialAnswer: (classPattern ifNil: '*'). (pattern isNil or: [pattern isEmpty]) ifTrue: [^self]. + self filterClassesBy: pattern! - classesSelected := ((classPattern := pattern) subStrings: ';') - inject: Set new - into: [:matches :subPattern| - matches - addAll: (classes select: [ :each | subPattern match: each name]); - yourself]. - self - changed: #allSelections; - changed: #classSelected; - changed: #hasRunnable! Item was added: + ----- Method: TestRunner>>filterClassesBy: (in category 'accessing-classes') ----- + filterClassesBy: aPattern + classesSelected := ((classPattern := aPattern) subStrings: ';') + inject: Set new + into: [:matches :subPattern| + matches + addAll: (classes select: [ :each | subPattern match: each name]); + yourself]. + self + changed: #allSelections; + changed: #classSelected; + changed: #hasRunnable!

1 0

The Trunk: Tools-mt.877.mcz
by commits＠source.squeak.org 14 Aug '19

14 Aug '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.877.mcz ==================== Summary ==================== Name: Tools-mt.877 Author: mt Time: 14 August 2019, 3:42:42.929512 pm UUID: c122e8e1-1a50-2b40-9abf-c2443ce59534 Ancestors: Tools-mt.876 Restore message icons in browsers. Same reason as the two commits before. I am *very* sorry for the noise. :-( =============== Diff against Tools-mt.876 =============== Item was changed: ----- Method: Browser>>messageHelpAt: (in category 'message list') ----- messageHelpAt: anIndex "Show the first n lines of the sources code of the selected message." | iconHelp selector method | Preferences balloonHelpInMessageLists ifFalse: [^ nil]. self messageList size < anIndex ifTrue: [^ nil]. "Items in the message list can be formatted texts." + self flag: #refactor. selector := Symbol lookup: (self messageList at: anIndex) asString. selector ifNil: [^ nil]. method := self selectedClassOrMetaClass compiledMethodAt: selector ifAbsent: [^ nil]. iconHelp := (self messageIconHelpFor: method selector) ifNotEmpty: [:t | t , Character cr, Character cr]. ^ iconHelp asText append: (self messageHelpForMethod: method); yourself! Item was changed: ----- Method: Browser>>messageIconAt: (in category 'message list') ----- messageIconAt: anIndex + | selector | self class showMessageIcons ifFalse: [^ nil]. + + self flag: #refactor. + selector := Symbol lookup: (self messageList at: anIndex ifAbsent: [^nil]) asString. + selector ifNil: [^ self]. + + ^ self messageIconFor: selector! - ^ self messageIconFor: (self messageList at: anIndex ifAbsent: [^nil]) asString!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
15
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2019