--- a/Tools__NewSystemBrowser.st Sat Nov 29 05:00:20 2014 +0000
+++ b/Tools__NewSystemBrowser.st Sat Nov 29 08:52:38 2014 +0100
@@ -481,7 +481,7 @@
the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:Tools::NewSystemBrowser
+ UIHelpTool openOnClass:Tools::NewSystemBrowser
"
<resource: #help>
@@ -520,7 +520,7 @@
self defaultIcon1 inspect
ImageEditor openOnClass:self andSelector:#defaultIcon1
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'Tools::NewSystemBrowser class defaultIcon1'
ifAbsentPut:[
(Depth4Image new)
@@ -529,7 +529,7 @@
photometric:(#palette);
bitsPerSample:(#( 4 ));
samplesPerPixel:(1);
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@@@@@@@@@@@@@@@FY&Y&Y&X0@@@@@FY @@YDQDQDQB@@@@@FXFX@A$QDQDQDH@@@@FY Y&@CH"H"H"H @@@@X@@@X@@@@@@@@@@@@@A&XFY @@@@H@@@
@@@@@@Y Y @@@@@ @@@@@@@@@FY @@@@@B@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@A&Y&Y&Y#@@@@@F@"H"HFDQDQDQH@@@@@@@@@@@L"H"H"
@@ -540,7 +540,7 @@
mask:((ImageMask new)
width:28;
height:28;
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
??0C O?<A<C??@? ??0_<O?<G?C??A?0@ @O8@H@A<@B@@N@@ O?8@\C?>@G??? A0O?8@HC?>@B@@@@@ O?8@\C?>@G??? A0O?8@@C?>@@@@@@9O]7\IRT
QDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a');
@@ -559,8 +559,8 @@
self doNotShowInheritedMethodsIcon inspect
ImageEditor openOnClass:self andSelector:#doNotShowInheritedMethodsIcon
Icon flushCachedIcons"
-
- ^ Icon
+
+ ^ Icon
constantNamed:#'Tools::NewSystemBrowser class doNotShowInheritedMethodsIcon'
ifAbsentPut:[
(Depth2Image new)
@@ -569,13 +569,13 @@
photometric:(#palette);
bitsPerSample:(#( 2 ));
samplesPerPixel:(1);
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'UUUUUUUUUUU@@@@EUDP@AT@@@@AT@@@EP@Q@AUUUUTU@@@@APUQDDTP@@@E@@@@EUUU@AUUUUPUT@@@UU@@EUP@a');
colorMapFromArray:#[ 0 0 0 255 255 255 255 255 127 127 127 127 ];
mask:((ImageMask new)
width:16;
height:16;
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@@@@G0@@@@@@A<@@@@@@@_@@@@@@@G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -604,8 +604,8 @@
self initializeClass20x20Icon inspect
ImageEditor openOnClass:self andSelector:#initializeClass20x20Icon
Icon flushCachedIcons"
-
- ^ Icon
+
+ ^ Icon
constantNamed:'Tools::NewSystemBrowser class initializeClass20x20Icon'
ifAbsentPut:[
(Depth8Image new)
@@ -614,7 +614,7 @@
photometric:(#palette);
bitsPerSample:(#[ 8 ]);
samplesPerPixel:(1);
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP$@@@@@@@@@@@@@@@@@@@@@@@$HB@$@@@@@@@@@@@@@@@@@@@@@BP HBP@@@@@@@@@@@@@@@@@@
@@$HB@ HBP@@@@@@@@@@@@@@@@@@BP HB@ I@@@@@@@DA@PDA@PDA@PIB@ HB@$C@@@@@@PA@PDA@PDA@P$HB@ HBPD@@@@@A@DA@PDA@PDABP HB@ I@P@@
@@ -625,7 +625,7 @@
mask:((ImageMask new)
width:20;
height:20;
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@@X@@@<@@@<@@A>@_?? _?? _?? _?? _?? _?? _?? _?? _?? _?? @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -653,8 +653,8 @@
self initializeSharedPool20x20Icon inspect
ImageEditor openOnClass:self andSelector:#initializeSharedPool20x20Icon
Icon flushCachedIcons"
-
- ^ Icon
+
+ ^ Icon
constantNamed:'Tools::NewSystemBrowser class initializeSharedPool20x20Icon'
ifAbsentPut:[
(Depth8Image new)
@@ -663,7 +663,7 @@
photometric:(#palette);
bitsPerSample:(#[ 8 ]);
samplesPerPixel:(1);
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP$@@@@@@@@@@@@@@@@@@@@@@@$HB@$@@@@@@@@@@@@@@@@@@@@@BP HBP@@@@@@@@@@@@@@@@@@
@@$HB@ HBP@@@@@@@@@@@@@@@@@@BP HB@ I@@@@@@@DA@PDA@PDA@PIB@ HB@$C@@@@@@PA@PDA@PDA@P$HB@ HBPD@@@@@A@DA@PDA@PDABP HB@ I@P@@
@@ -674,7 +674,7 @@
mask:((ImageMask new)
width:20;
height:20;
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@@X@@@<@@@<@@A>@_?? _?? _?? _?? _?? _?? _?? _?? _?? _?? @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -698,8 +698,8 @@
self initializeSharedPool20x20Icon2 inspect
ImageEditor openOnClass:self andSelector:#initializeSharedPool20x20Icon2
Icon flushCachedIcons"
-
- ^ Icon
+
+ ^ Icon
constantNamed:'Tools::NewSystemBrowser initializeSharedPool20x20Icon2'
ifAbsentPut:[
(Depth8Image new)
@@ -708,7 +708,7 @@
photometric:(#palette);
bitsPerSample:(#[ 8 ]);
samplesPerPixel:(1);
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@@@@@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@CP8M@@@@@@@@@@@@@@@@@@@MCP@MC04@CP4@@@@@@@@@@@@@CQ@QCQDRDP4QD@4@@@@@@@@@@@@@
CQLTEQXUEALM@@@@@@@@@@@@@@@@CQDVB1XQCP@@@@@DA@PDA@PDA@PMDQXKE!!DM@@@@@@PA@PDA@PDACQLTEQXUEALM@@@@A@DA@PDA@P4PDP4QD!!DMDQ@M
@@ -719,7 +719,7 @@
mask:((ImageMask new)
width:20;
height:20;
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@H@@@\@@C] @G?0@C? _?? _?? _?? _??0_?? _?? _?? _?? _?? _?? @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -741,7 +741,7 @@
self showCategoriesIcon inspect
ImageEditor openOnClass:self andSelector:#showCategoriesIcon
Icon flushCachedIcons"
-
+
^ Icon constantNamed:#'Tools::NewSystemBrowser class showCategoriesIcon'
ifAbsentPut:[
(Depth1Image new)
@@ -750,13 +750,13 @@
photometric:(#palette);
bitsPerSample:(#( 1 ));
samplesPerPixel:(1);
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'?????8@C??.@@N@C @O?>8@A''?6 @X@C??/?<>@G8C<b');
colorMapFromArray:#[ 0 0 0 255 255 255 ];
mask:((ImageMask new)
width:16;
height:16;
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@A?8@@@@@A?8@@@@@A?8@@@@@A?8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -776,8 +776,8 @@
self showClassHierarchyIcon inspect
ImageEditor openOnClass:self andSelector:#showClassHierarchyIcon
Icon flushCachedIcons"
-
- ^ Icon
+
+ ^ Icon
constantNamed:#'Tools::NewSystemBrowser class showClassHierarchyIcon'
ifAbsentPut:[
(Depth1Image new)
@@ -786,13 +786,13 @@
photometric:(#palette);
bitsPerSample:(#( 1 ));
samplesPerPixel:(1);
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'?????8@C O.@@N@C @O?>8@A&@6 @X@C? O?<>@G8C<b');
colorMapFromArray:#[ 0 0 0 255 255 255 ];
mask:((ImageMask new)
width:16;
height:16;
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@@@@@O0@@@@@@C<@@@@@@@?@@@@@@@O0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -812,8 +812,8 @@
self showInheritedMethodsIcon inspect
ImageEditor openOnClass:self andSelector:#showInheritedMethodsIcon
Icon flushCachedIcons"
-
- ^ Icon
+
+ ^ Icon
constantNamed:#'Tools::NewSystemBrowser class showInheritedMethodsIcon'
ifAbsentPut:[
(Depth2Image new)
@@ -822,13 +822,13 @@
photometric:(#palette);
bitsPerSample:(#( 2 ));
samplesPerPixel:(1);
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'UUUQUUUUTWU@@@CMT@A@HT@@@2MT@@B(P@@@@EUUUTU@@@@APU@@@TP@@@E@@@@EUUP@AUUUUPUT@@@UU@@EUP@a');
colorMapFromArray:#[ 0 0 0 255 255 255 255 255 127 127 127 127 ];
mask:((ImageMask new)
width:16;
height:16;
- bits:(ByteArray
+ bits:(ByteArray
fromPackedString:'
@@@@A@@NO08@G0@_C9<@@@@@@>@@@@@@@O @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
@@ -3402,10 +3402,10 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
name: pagedWindowSpec
- window:
+ window:
(WindowSpec
label: 'NewSystemBrowser'
name: 'NewSystemBrowser'
@@ -3414,7 +3414,7 @@
menu: mainMenu
icon: defaultIcon
)
- component:
+ component:
(SpecCollection
collection: (
(NoteBookViewSpec
@@ -3435,7 +3435,7 @@
tabLevel: 1
)
)
-
+
)
)
!
@@ -5261,17 +5261,17 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
name: smallLintByRuleResultBrowserSpec
- window:
+ window:
(WindowSpec
label: 'SmallLintByClassResultBrowser'
name: 'SmallLintByClassResultBrowser'
min: (Point 0 0)
bounds: (Rectangle 0 0 775 579)
)
- component:
+ component:
(SpecCollection
collection: (
(SubCanvasSpec
@@ -5290,44 +5290,44 @@
showHandle: false
snapMode: both
handlePosition: left
- component:
+ component:
(SpecCollection
collection: (
(ViewSpec
name: 'NavigatorAndDetail'
- component:
+ component:
(SpecCollection
collection: (
(VariableHorizontalPanelSpec
name: 'Lists'
layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- component:
+ component:
(SpecCollection
collection: (
(VariableVerticalPanelSpec
name: 'RuleListPanel'
- component:
+ component:
(SpecCollection
collection: (
(SubCanvasSpec
name: 'RuleList'
majorKey: #'Tools::LintRuleList'
- subAspectHolders:
+ subAspectHolders:
(Array
-
+
(SubChannelInfoSpec
subAspect: environmentHolder
aspect: environmentHolder
- )
+ )
(SubChannelInfoSpec
subAspect: inGeneratorHolder
aspect: lintRuleListGenerator
)
-
+
(SubChannelInfoSpec
subAspect: outGeneratorHolder
aspect: classListGenerator
- )
+ )
(SubChannelInfoSpec
subAspect: selectionHolder
aspect: selectedLintRules
@@ -5337,54 +5337,54 @@
createNewBuilder: true
)
)
-
+
)
handles: (Any 1.0)
)
(TransparentBoxSpec
name: 'ClassListBox'
- component:
+ component:
(SpecCollection
collection: (
(SubCanvasSpec
name: 'ClassList'
layout: (LayoutFrame 0 0 0 0 0 1 -25 1)
majorKey: ClassList
- subAspectHolders:
+ subAspectHolders:
(Array
-
+
(SubChannelInfoSpec
subAspect: doubleClickChannel
callBack: classDoubleClicked
- )
+ )
(SubChannelInfoSpec
subAspect: environmentHolder
aspect: environmentHolder
)
-
+
(SubChannelInfoSpec
subAspect: immediateUpdate
aspect: immediateUpdate
- )
+ )
(SubChannelInfoSpec
subAspect: inGeneratorHolder
aspect: classListGenerator
)
-
+
(SubChannelInfoSpec
subAspect: menuHolder
aspect: classMenu
- )
+ )
(SubChannelInfoSpec
subAspect: meta
aspect: meta
)
-
+
(SubChannelInfoSpec
subAspect: selectedClasses
aspect: selectedClasses
callBack: classSelectionChanged
- )
+ )
(SubChannelInfoSpec
subAspect: selectionChangeCondition
aspect: selectionChangeConditionHolder
@@ -5403,47 +5403,47 @@
createNewBuilder: false
)
)
-
+
)
)
(SubCanvasSpec
name: 'MethodList'
majorKey: MethodList
- subAspectHolders:
+ subAspectHolders:
(Array
-
+
(SubChannelInfoSpec
subAspect: doubleClickChannel
callBack: methodDoubleClicked
- )
+ )
(SubChannelInfoSpec
subAspect: environmentHolder
aspect: environmentHolder
)
-
+
(SubChannelInfoSpec
subAspect: immediateUpdate
aspect: immediateUpdate
- )
+ )
(SubChannelInfoSpec
subAspect: inGeneratorHolder
aspect: selectorListGenerator
)
-
+
(SubChannelInfoSpec
subAspect: menuHolder
aspect: methodListPopUpMenu
- )
+ )
(SubChannelInfoSpec
subAspect: packageFilter
aspect: packageFilter
)
-
+
(SubChannelInfoSpec
subAspect: selectedMethods
aspect: selectedMethods
callBack: methodsSelectionChanged
- )
+ )
(SubChannelInfoSpec
subAspect: selectionChangeCondition
aspect: selectionChangeConditionHolder
@@ -5453,12 +5453,12 @@
createNewBuilder: true
)
)
-
+
)
handles: (Any 0.33000000000000007 0.67000000000000015 1.0)
)
)
-
+
)
)
(SubCanvasSpec
@@ -5466,13 +5466,13 @@
hasHorizontalScrollBar: false
hasVerticalScrollBar: false
majorKey: #'Tools::LintRuleDetail'
- subAspectHolders:
+ subAspectHolders:
(Array
-
+
(SubChannelInfoSpec
subAspect: ruleHolder
aspect: theSingleSelectedLintRuleHolder
- )
+ )
(SubChannelInfoSpec
subAspect: selectedMethodsHolder
aspect: selectedMethods
@@ -5489,13 +5489,13 @@
createNewBuilder: false
)
)
-
+
)
handles: (Any 0.33333333333333304 0.45595854922279805 1.0)
postBuildCallback: postBuildTabContentView:
)
)
-
+
)
)
!
@@ -5883,7 +5883,7 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
@@ -5913,7 +5913,7 @@
)
(MenuItem
label: 'Classes'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -6110,7 +6110,7 @@
)
(MenuItem
label: 'Methods'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -6416,13 +6416,13 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
enabled: hasCategorySelectedHolder
label: 'FileOut'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -6443,7 +6443,7 @@
(MenuItem
enabled: hasCategorySelectedHolder
label: 'Special Formats'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -6938,7 +6938,7 @@
label: 'SmallLint Menu'
submenuChannel: smalllintCheckMenuForClass
isMenuSlice: true
- )
+ )
(MenuItem
label: '-'
)
@@ -7770,13 +7770,13 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
enabled: hasClassSelectedHolder
label: 'FileOut'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -7798,7 +7798,7 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'Special Formats'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -7918,7 +7918,7 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'Spawn'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -8056,7 +8056,7 @@
enabled: hasClassSelectedHolder
label: 'Find'
isVisible: false
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -8100,7 +8100,7 @@
(MenuItem
label: 'New'
isVisible: isNotEmbeddedBrowserHolder
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -8123,7 +8123,7 @@
enabled: hasClassSelectedHolder
label: 'Move'
isVisible: isNotEmbeddedBrowserHolder
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -8209,7 +8209,7 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'Compare'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10022,7 +10022,7 @@
label: 'SmallLint Menu'
submenuChannel: smalllintCheckMenuForPackage
isMenuSlice: true
- )
+ )
)
nil
@@ -10093,13 +10093,13 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
enabled: hasProjectSelectedHolder
label: 'File out'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10120,7 +10120,7 @@
(MenuItem
enabled: hasProjectSelectedHolder
label: 'Special Formats'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10227,7 +10227,7 @@
)
(MenuItem
label: 'Documentation'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10261,7 +10261,7 @@
(MenuItem
enabled: hasProjectSelectedHolder
label: 'Spawn'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10359,7 +10359,7 @@
)
(MenuItem
label: 'Build'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10401,7 +10401,7 @@
(MenuItem
enabled: hasProjectSelectedHolder
label: 'Generate'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10441,7 +10441,7 @@
)
(MenuItem
label: 'Special'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10506,7 +10506,7 @@
label: 'SmallLint Menu'
submenuChannel: smalllintCheckMenuForProtocol
isMenuSlice: true
- )
+ )
)
nil
nil
@@ -10530,13 +10530,13 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
enabled: hasProtocolSelectedHolder
label: 'FileOut'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10549,7 +10549,7 @@
enabled: hasProtocolSelectedHolder
label: 'Special Formats'
isVisible: false
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10584,7 +10584,7 @@
enabled: hasProtocolSelectedHolder
label: 'Documentation'
isVisible: false
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10616,7 +10616,7 @@
)
(MenuItem
label: 'Spawn'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10659,7 +10659,7 @@
enabled: hasProtocolSelectedHolder
label: 'Find'
isVisible: false
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10688,7 +10688,7 @@
(MenuItem
enabled: hasProtocolSelectedHolder
label: 'Move'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10724,7 +10724,7 @@
)
(MenuItem
label: 'Generate'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -10895,7 +10895,7 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
@@ -11027,7 +11027,7 @@
label: 'SmallLint Menu'
submenuChannel: smalllintCheckMenuForSelector
isMenuSlice: true
- )
+ )
)
nil
@@ -11601,13 +11601,13 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
enabled: hasMethodSelectedHolder
label: 'FileOut'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -11619,7 +11619,7 @@
(MenuItem
enabled: hasMethodSelectedHolder
label: 'Special Formats'
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -17562,7 +17562,7 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
@@ -17850,7 +17850,7 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
@@ -18117,7 +18117,7 @@
reallyAllClasses allClasses allClassesByFullName classNamesInChangeSet classesInChangeSet
allNames allFullNames initialShortNames initialFullNames
colorizedFullNames colorizedShortNames
- resources check showingWhatLabel
+ resources check showingWhatLabel
showFullNameHolder onlyShowJavaClassesHolder genShortNameListEntry|
resources := resourcesOrNil ? self classResources.
@@ -18234,13 +18234,13 @@
box addButton:button2 after:(box okButton).
button3 notNil ifTrue:[box addButton:button3 after:button2].
- button2
+ button2
action:[
doWhat := doWhat2.
box doAccept; okPressed.
].
button3 notNil ifTrue:[
- button3
+ button3
action:[
doWhat := doWhat3.
box doAccept; okPressed.
@@ -18326,21 +18326,21 @@
].
] ifFalse:[
(nameToSearch includesMatchCharacters) ifTrue:[
- list := (1 to:nameList size)
+ list := (1 to:nameList size)
select:[:idx |
- |nm|
+ |nm|
nm := nameList at:idx.
- (lcName match:nm asLowercase)
+ (lcName match:nm asLowercase)
or:[ lcName match:(classList at:idx) name caseSensitive:false]
] thenCollect:[:idx | nameList at:idx].
] ifFalse:[
namesIncluding := (1 to:nameList size)
select:[:idx |
- |nm|
+ |nm|
nm := nameList at:idx.
(nm asLowercase includesString:lcName caseSensitive:false)
or:[ (classList at:idx) name includesString:lcName caseSensitive:false]
- ] thenCollect:[:idx | nameList at:idx].
+ ] thenCollect:[:idx | nameList at:idx].
namesStarting := namesIncluding select:[:nm | nm asLowercase startsWith:lcName].
list := namesStarting , {nil} , (namesIncluding \ namesStarting).
@@ -18359,7 +18359,7 @@
classNameHolder onChangeEvaluate:updateList.
box entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
- box
+ box
action:[:aString |
className := aString.
].
@@ -18454,9 +18454,9 @@
!
environment:env
- environmentHolder notNil ifTrue:[
+ environmentHolder notNil ifTrue:[
environmentHolder value: env.
- ] ifFalse:[
+ ] ifFalse:[
environment := env.
].
@@ -18900,17 +18900,17 @@
type == #fullBrowserSpec ifTrue:[
mode := self navigationState organizerMode value.
mode == #category ifTrue:[
- ^ self selectedNonEmptyEnvironmentFrom: #(selectedSelectorsAsEnvironment selectedProtocolsAsEnvironment selectedClassesAsEnvironment selectedCategoriesAsEnvironment).
+ ^ self selectedNonEmptyEnvironmentFrom: #(selectedSelectorsAsEnvironment selectedProtocolsAsEnvironment selectedClassesAsEnvironment selectedCategoriesAsEnvironment).
].
(mode == #classHierarchy or:[mode == #hierarchy]) ifTrue:[
^ self selectedNonEmptyEnvironmentFrom: #(selectedSelectorsAsEnvironment selectedProtocolsAsEnvironment selectedClassesAsEnvironment)
].
mode == #namespace ifTrue:[
^ self selectedNonEmptyEnvironmentFrom: #(selectedSelectorsAsEnvironment selectedProtocolsAsEnvironment selectedClassesAsEnvironment selectedNamespacesAsEnvironment)
- ].
+ ].
mode == #project ifTrue:[
- ^ self selectedNonEmptyEnvironmentFrom: #(selectedSelectorsAsEnvironment selectedProtocolsAsEnvironment selectedClassesAsEnvironment selectedPackagesAsEnvironment)
- ].
+ ^ self selectedNonEmptyEnvironmentFrom: #(selectedSelectorsAsEnvironment selectedProtocolsAsEnvironment selectedClassesAsEnvironment selectedPackagesAsEnvironment)
+ ].
].
type == #smallLintByRuleResultBrowserSpec ifTrue:[
^ self selectedCodeComponentsUsing: #(selectedSelectorsAsEnvironment selectedClassesAsEnvironment selectedLintRuleClassesAsEnvironment)
@@ -18936,7 +18936,7 @@
environmentsOrSelectors do:[:envOrSym |
env := envOrSym isSymbol ifTrue:[ self perform: envOrSym] ifFalse:[envOrSym].
env isEmpty ifFalse:[ ^ env ].
- ].
+ ].
^ BrowserEnvironment empty
"Created: / 02-04-2014 / 11:20:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -23423,7 +23423,7 @@
delayedUpdateCodeWithAutoSearch:withAutoSearch checkModified:checkModified
|methods mthd selectedClass protocol package projectDef
- codeView code filteredVariables
+ codeView code filteredVariables
searchAction searchPattern doShowMethodTemplate|
self enqueueDelayedUpdateBufferLabel.
@@ -23523,7 +23523,7 @@
selectedClass notNil ifTrue:[
self showClassAspect:(self codeAspect) forClass:selectedClass.
] ifFalse:[
- (package := self theSingleSelectedProject) notNil ifTrue:[
+ (package := self theSingleSelectedProject) notNil ifTrue:[
projectDef := package string asPackageId projectDefinitionClass.
projectDef notNil ifTrue:[
code := projectDef commentOrDocumentationString.
@@ -23901,7 +23901,7 @@
"/ force update for packageFilter
"/ (must do it, since packageFilter is a vHolder
"/ holding a vHolder - i.e. it did not change yet)
- self packageFilter
+ self packageFilter
setValue:(self selectedProjects value);
changed.
self updateLintEnablement.
@@ -24517,14 +24517,14 @@
"Modified: / 02-07-2011 / 18:33:22 / cg"
!
-addToRecentlyClosedHistory:class selector:selector
+addToRecentlyClosedHistory:class selector:selector
self class updateHistory:self closeHistory forClass:class selector:selector
"Created: / 02-05-2014 / 17:32:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
closeHistory
- RecentlyClosedList isNil ifTrue:[
+ RecentlyClosedList isNil ifTrue:[
RecentlyClosedList := OrderedCollection new.
].
^ RecentlyClosedList
@@ -24534,7 +24534,7 @@
!
findHistory
- FindHistory isNil ifTrue:[
+ FindHistory isNil ifTrue:[
FindHistory := OrderedCollection new.
].
^ FindHistory
@@ -25482,7 +25482,7 @@
"/ do not use self class new here - to avoid using obsolete classes instances
"/ while working on the browser itself ...
browser := (Smalltalk at:self class name) new.
- browser environment: self environment.
+ browser environment: self environment.
browser allButOpen.
browser setupNavigationStateFrom:navigationState.
browser window extent:(self window extent).
@@ -27958,15 +27958,15 @@
smalllintRulesOrDefault
"Return last run rules or default ruleset if no checks has been run so far"
- (LastLintRulesHolder isNil or:[ LastLintRulesHolder value isNil ]) ifTrue:[
+ (LastLintRulesHolder isNil or:[ LastLintRulesHolder value isNil ]) ifTrue:[
| default |
default := UserPreferences current smallLintRulesetDefault.
- default notNil ifTrue:[
+ default notNil ifTrue:[
^ default
- ] ifFalse:[
+ ] ifFalse:[
^ RBBuiltinRuleSet rulesetBuiltinDefault
].
- ] ifFalse:[
+ ] ifFalse:[
^ LastLintRulesHolder value
].
@@ -27978,7 +27978,7 @@
smalllintRulesOrDefaultHolder
"Return a holder on last run rules or on default ruleset if no checks has been run so far"
- smalllintRulesOrDefaultHolder isNil ifTrue:[
+ smalllintRulesOrDefaultHolder isNil ifTrue:[
LastLintRulesHolder isNil ifTrue:[ LastLintRulesHolder := ValueHolder new ].
smalllintRulesOrDefaultHolder := PluggableAdaptor on: LastLintRulesHolder getter: [:ignored | self smalllintRulesOrDefault ]
].
@@ -27998,14 +27998,14 @@
"Created: / 27-11-2014 / 11:43:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-smalllintRun:ruleSetOrNil onEnvironment:rbenvironment
+smalllintRun:ruleSetOrNil onEnvironment:rbenvironment
"Run given SmallLint rules on given browser environment.
If `ruleSetOrNil` is nil. then ask sure for set of
rules.
As a side effect, remembers run rules so next time user
do 'Run Again', these rules we be run."
-
+
| rule runRules |
ruleSetOrNil isNil ifTrue:[
@@ -28054,15 +28054,15 @@
rule := rule copy.
self smalllintRunRule:rule onEnvironment:rbenvironment.
].
- ] ifFalse:[
- rule := nil
+ ] ifFalse:[
+ rule := nil
].
].
rule notNil ifTrue:[
- self
- spawnSmalllintBrowserByRuleFor:rule
- in:#newBuffer
- label:'SmallLint results for ' , rbenvironment label
+ "/ Do this asynchronously, this is called from backgdound worker thread!
+ self enqueueMessage: #spawnSmalllintBrowserByRuleFor:in:label:
+ for: self
+ arguments: (Array with: rule with: #newBuffer with: 'SmallLint results for ' , rbenvironment label)
].
].
"background operation (Jan's pref) makes it difficult to stop and debug...)"
@@ -28110,7 +28110,7 @@
[
checker runRule: rule onEnvironment: aBrowserEnvironment
- ] value. "/ benchmark: rule name, ': '.
+ ] value. "/ benchmark: rule name, ': '.
].
ProgressNotification new
messageText: ('Done');
@@ -28169,9 +28169,9 @@
browser lintRuleListGenerator value:ruleGenerator.
browser selectorListGenerator value:methodGenerator.
-"/ browser selectedClasses
+"/ browser selectedClasses
"/ onChangeSend: #changed to: browser selectorListGenerator.
- browser selectedClasses onChangeEvaluate:[
+ browser selectedClasses onChangeEvaluate:[
browser selectorListGenerator changed:#value.
].
browser selectedLintRules
@@ -29013,7 +29013,7 @@
classMenuBrowseClassesPackageDirectory
"open a filebrowser in the classes package directory"
- UserPreferences fileBrowserClass
+ UserPreferences fileBrowserClass
openIn:(self theSingleSelectedClass theNonMetaclass packageDirectory)
!
@@ -32716,11 +32716,11 @@
saveName := Dialog
requestFileName:(resources string:'save HTML doc of ''%1'' as:' with:aClass name)
- default:((Smalltalk fileNameForClass:aClass) , '.html')
- ok:'Save' abort:'Cancel'
- pattern:'*.html'
- fromDirectory:nil
- forSave:true
+ default:((Smalltalk fileNameForClass:aClass) , '.html')
+ ok:'Save' abort:'Cancel'
+ pattern:'*.html'
+ fromDirectory:nil
+ forSave:true
whenBoxCreatedEvaluate:nil.
"/ fileBox := FileSelectionBox
@@ -35431,8 +35431,8 @@
"for now, this works only for a diffSet containing only a single class"
|fileNamePrefix fileNameMiddle stxPatchesDir
- changedClassesAndMetaclasses changedClasses
- fileName changedOwningClasses generatedPatchFilename
+ changedClassesAndMetaclasses changedClasses
+ fileName changedOwningClasses generatedPatchFilename
tempStream changeSet labels values answer
keyFileGeneratorClass browseFile|
@@ -39417,8 +39417,8 @@
'[% defaultIcon]' )
).
- SettingsDialog
- openWithList:settingsList
+ SettingsDialog
+ openWithList:settingsList
label:(resources string:'System Browser Settings')
initialSettingsClass:settingsClassToSelectOrNil
@@ -40049,7 +40049,7 @@
projectMenuBrowsePackageDirectory
"open a filebrowser in the package directory"
- UserPreferences fileBrowserClass
+ UserPreferences fileBrowserClass
openIn:(self theSingleSelectedProject asPackageId packageDirectory)
!
@@ -40888,7 +40888,7 @@
| selectedProjects |
selectedProjects := self selectedProjects value.
- (selectedProjects includes:(BrowserList nameListEntryForALL)) ifTrue:[
+ (selectedProjects includes:(BrowserList nameListEntryForALL)) ifTrue:[
selectedProjects := environment allProjectIDs.
].
@@ -41150,7 +41150,7 @@
"Comparing the current (in-image) version of the project(s)
against the the newest version found in the repository."
- self withWaitCursorDo:[
+ self withWaitCursorDo:[
manager utilities comparePackages: self selectedProjects value askForRevision: false.
].
@@ -41185,7 +41185,7 @@
"Comparing the current (in-image) version of the project(s)
against some older version found in the repository."
- self withWaitCursorDo:[
+ self withWaitCursorDo:[
aManager utilities comparePackages: self selectedProjects value askForRevision: true.
].
@@ -41229,8 +41229,8 @@
|directory|
- directory := Dialog
- requestDirectoryName:'Save class documentation in'
+ directory := Dialog
+ requestDirectoryName:'Save class documentation in'
default:(LastClassDocDirectory ? 'doc/classDoc').
directory isEmptyOrNil ifTrue:[^ self].
@@ -50394,7 +50394,7 @@
"/ ].
self menuExtendersFor: #codeViewMenu do:[:each |
self perform: each with: menu
- ].
+ ].
^ menu
"Modified: / 18-10-2008 / 18:52:50 / Jan Vrany <vranyj1@fel.cvut.cz>"
@@ -50717,7 +50717,7 @@
items do:[:historyEntry|
any := true.
menu addItem:
- (MenuItem
+ (MenuItem
label: historyEntry displayString
itemValue:[self switchToHistoryEntry: historyEntry])
].
@@ -51341,9 +51341,9 @@
"/ no, I explicitly do not want this
"/ (menu menuItemWithValue: #goForwardInGlobalHistory)
"/ submenuChannel:[self goForwardInGlobalHistoryMenu].
-
+
item := menu menuItemWithValue: #runLint.
- item notNil ifTrue:[item submenuChannel:[ (Menu decodeFromLiteralArray: self class toolBarMenuLint) findGuiResourcesIn: self; yourself] ].
+ item notNil ifTrue:[item submenuChannel:[ (Menu decodeFromLiteralArray: self class toolBarMenuLint) findGuiResourcesIn: self; yourself] ].
^menu
"Created: / 22-02-2008 / 17:00:05 / janfrog"
@@ -51645,8 +51645,8 @@
<resource: #programMenu>
- ^ self
- scmMenuForManagerNamed:sourceCodeManagerClassName
+ ^ self
+ scmMenuForManagerNamed:sourceCodeManagerClassName
selector:#projectMenuSCMCompareBuildSupportFile
"/ |manager menu |
"/
@@ -51684,8 +51684,8 @@
projectMenuSCMCompareBuildSupportFileForManagerNamed:sourceCodeManagerClassName
<resource: #programMenu>
- ^ self
- scmMenuForManagerNamed:sourceCodeManagerClassName
+ ^ self
+ scmMenuForManagerNamed:sourceCodeManagerClassName
selector:#projectMenuSCMCompareBuildSupportFile
"Created: / 12-10-2011 / 20:23:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -51729,8 +51729,8 @@
<resource: #programMenu>
- ^ self
- scmMenuForManagerNamed:sourceCodeManagerClassName
+ ^ self
+ scmMenuForManagerNamed:sourceCodeManagerClassName
selector:#projectMenuSCMCommon
"/ |manager menu |
"/
@@ -51777,7 +51777,7 @@
"Created: / 12-10-2011 / 20:53:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
-scmMenuForManagerNamed:sourceCodeManagerClassName selector:selector
+scmMenuForManagerNamed:sourceCodeManagerClassName selector:selector
<resource: #programMenu>
|manager menu |
@@ -51854,8 +51854,8 @@
<resource: #programMenu>
- ^ self
- scmMenuForManagerNamed:sourceCodeManagerClassName
+ ^ self
+ scmMenuForManagerNamed:sourceCodeManagerClassName
selector:#selectorMenuSCMCommon
"/
"/ |manager menu |
@@ -51929,7 +51929,7 @@
menu := Menu new.
- (Smalltalk at: #RBLintRuleSet) isNil ifTrue:[
+ (Smalltalk at: #RBLintRuleSet) isNil ifTrue:[
([ Smalltalk loadPackage: #'stx:goodies/refactoryBrowser/lint' ] on: Error do: [ false ]) ifFalse:[
menu addItem:(MenuItem label: (resources string: 'SmallLint not available') itemValue: nil enabled: false).
^ menu
@@ -51937,22 +51937,22 @@
].
- LastLintRulesHolder value notNil ifTrue:[
- menu addItem:
- (MenuItem label: (resources string: 'Run Again - %1' with: LastLintRulesHolder value displayString)
+ LastLintRulesHolder value notNil ifTrue:[
+ menu addItem:
+ (MenuItem label: (resources string: 'Run Again - %1' with: LastLintRulesHolder value displayString)
itemValue: [ self smalllintRunOnEnvironment:rbenvironment ])
- ] ifFalse:[
+ ] ifFalse:[
menu addItem: (MenuItem label: (resources string: 'Run Again')
itemValue: [ self smalllintRunOnEnvironment:rbenvironment ]
- enabled: false)
- ].
- RBCompositeLintRule rulesets do:[:ruleset|
- menu addItem:
- (MenuItem label: (resources string: 'Run Checks - %1' with: ruleset displayString)
+ enabled: false)
+ ].
+ RBCompositeLintRule rulesets do:[:ruleset|
+ menu addItem:
+ (MenuItem label: (resources string: 'Run Checks - %1' with: ruleset displayString)
itemValue: [ self smalllintRun:ruleset onEnvironment:rbenvironment ])
].
- menu addItem:
- (MenuItem label: (resources string: 'Run Selected...')
+ menu addItem:
+ (MenuItem label: (resources string: 'Run Selected...')
itemValue: [ self smalllintRunSelectedOnEnvironment:rbenvironment ]).
^ menu
@@ -53171,7 +53171,7 @@
].
self navigationState autoSearchAction:searchAction.
- self codeView
+ self codeView
clearSearchAction; "/ searchAction
setSearchPattern:nil.
]
@@ -56008,12 +56008,12 @@
].
mode == #hierarchy ifTrue:[
^ self selectedCodeComponentsUsing: #(selectedMethods selectedProtocolMethods selectedClasses selectedNamespaceClasses)
- ].
+ ].
mode == #project ifTrue:[
self selectedClasses value notEmptyOrNil ifTrue:[
^ self selectedCodeComponentsUsing: #(selectedMethods selectedProtocolMethods selectedClasses)
].
- ].
+ ].
].
type == #smallLintByRuleResultBrowserSpec ifTrue:[
^ self selectedCodeComponentsUsing: #(selectedMethods selectedClasses selectedLintRuleClasses)
@@ -57478,8 +57478,8 @@
comments := parser comments.
comments isEmptyOrNil ifTrue:[
- Dialog
- withOptoutOption:[UserPreferences current enforceComment:false]
+ Dialog
+ withOptoutOption:[UserPreferences current enforceComment:false]
labelled:(resources string:'Do not show this dialog again (reenable via Launcher''s settings)')
warn:(resources stringWithCRs:'Missing Method-Comment.\Please add a short description of what the method does.').
^ self
@@ -59612,7 +59612,7 @@
]
] ifFalse:[
breakpoints := nil.
- codeView isCodeView2 ifTrue:[
+ codeView isCodeView2 ifTrue:[
breakpoints := codeView breakpoints.
].
@@ -61875,11 +61875,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2136 2014-11-29 02:35:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2137 2014-11-29 07:52:38 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2136 2014-11-29 02:35:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2137 2014-11-29 07:52:38 vrany Exp $'
!
version_HG
@@ -61888,7 +61888,7 @@
!
version_SVN
- ^ '$Id: Tools__NewSystemBrowser.st,v 1.2136 2014-11-29 02:35:48 cg Exp $'
+ ^ '$Id: Tools__NewSystemBrowser.st,v 1.2137 2014-11-29 07:52:38 vrany Exp $'
! !