[Pkg] The Trunk: SMLoader-ul.83.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Aug 14 20:33:53 UTC 2015
Levente Uzonyi uploaded a new version of SMLoader to project The Trunk:
http://source.squeak.org/trunk/SMLoader-ul.83.mcz
==================== Summary ====================
Name: SMLoader-ul.83
Author: ul
Time: 14 August 2015, 7:02:58.782 pm
UUID: 4898c13c-15f3-4ed8-867a-df8d79905124
Ancestors: SMLoader-mt.82
#includesSubString: -> #includesSubstring:
=============== Diff against SMLoader-mt.82 ===============
Item was changed:
----- Method: SMLoader class>>initialize (in category 'class initialization') -----
initialize
"Hook us up in the world menu."
"self initialize"
Smalltalk
at: #ToolBuilder
ifAbsent: [self registerInFlapsRegistry.
(Preferences windowColorFor: #SMLoader) = Color white
ifTrue: ["not set"
Preferences
setWindowColorFor: #SMLoader
to: (Color colorFrom: self windowColorSpecification brightColor)].
(TheWorldMenu respondsTo: #registerOpenCommand:)
ifTrue: [| oldCmds |
+ oldCmds := TheWorldMenu registry select: [:cmd | cmd first includesSubstring: 'Package Loader'].
- oldCmds := TheWorldMenu registry select: [:cmd | cmd first includesSubString: 'Package Loader'].
oldCmds do: [:cmd | TheWorldMenu unregisterOpenCommand: cmd first].
TheWorldMenu registerOpenCommand: {self openMenuString. {self. #open}}]].
DefaultFilters := OrderedCollection new.
DefaultCategoriesToFilterIds := OrderedCollection new!
Item was changed:
----- Method: SMLoaderPlus class>>initialize (in category 'class initialization') -----
initialize
"Hook us up in the world menu."
"self initialize"
Smalltalk
at: #ToolBuilder
ifPresent:
[ : tb | self registerInFlapsRegistry.
(Preferences windowColorFor: #SMLoader) = Color white "note set" ifTrue:
[
#(#SMLoader #SMReleaseBrowser ) do:
[ : each |
Preferences
setWindowColorFor: each
to: (Color colorFrom: self windowColorSpecification brightColor) ] ].
(TheWorldMenu respondsTo: #registerOpenCommand:) ifTrue:
[ | oldCmds |
oldCmds := TheWorldMenu registry select:
+ [ : cmd | cmd first includesSubstring: 'Package Loader' ].
- [ : cmd | cmd first includesSubString: 'Package Loader' ].
oldCmds do:
[ : cmd | TheWorldMenu unregisterOpenCommand: cmd first ].
TheWorldMenu registerOpenCommand: {self openMenuString.
{self.
#open}} ] ].
DefaultFilters := OrderedCollection new.
DefaultCategoriesToFilterIds := OrderedCollection new!
More information about the Packages
mailing list