--- a/CustomBrowserContext.st Sat Nov 01 15:41:43 2014 +0100
+++ b/CustomBrowserContext.st Sat Nov 01 16:18:01 2014 +0100
@@ -73,28 +73,6 @@
"Modified: / 18-08-2014 / 23:51:57 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!
-selectedMethodProtocols
- "Returns a collection of method protocols which are visible and selected in the Browser."
- | protocols allIncluded |
-
- protocols := state selectedProtocols value.
-
- "Support to return all protocols when all protocol ('* all *') is selected in the Browser.
- This is a little duplicate as in Tools::NewSystemBowser >> selectedProtocolsDo: ,
- but using this method would require a referece to the Browser and furthermore is marked as private."
- allIncluded := protocols includes:(Tools::BrowserList nameListEntryForALL).
- allIncluded ifTrue: [
- protocols := Set new.
- self selectedClasses do:[ :class |
- protocols addAll: class categories
- ]
- ].
-
- ^ protocols
-
- "Modified (comment): / 28-10-2014 / 18:58:15 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
-!
-
selectedMethods
^ state selectedMethods value
@@ -109,6 +87,28 @@
"Modified: / 05-08-2014 / 21:38:14 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!
+selectedProtocols
+ "Returns a collection of method protocols which are visible and selected in the Browser."
+
+ |protocols allIncluded|
+
+ protocols := state selectedProtocols value.
+ "Support to return all protocols when all protocol ('* all *') is selected in the Browser.
+ This is a little duplicate as in Tools::NewSystemBowser >> selectedProtocolsDo: ,
+ but using this method would require a referece to the Browser and furthermore is marked as private."
+ allIncluded := protocols
+ includes:(Tools::BrowserList nameListEntryForALL).
+ allIncluded ifTrue:[
+ protocols := Set new.
+ self selectedClasses do:[:class |
+ protocols addAll:class categories
+ ]
+ ].
+ ^ protocols
+
+ "Modified (comment): / 28-10-2014 / 18:58:15 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
selectedVariables
^ state variableFilter value
--- a/CustomBrowserContextTests.st Sat Nov 01 15:41:43 2014 +0100
+++ b/CustomBrowserContextTests.st Sat Nov 01 16:18:01 2014 +0100
@@ -46,7 +46,7 @@
state selectedProtocols setValue: (Array with: 'protocol_01' with: (Tools::BrowserList nameListEntryForALL)).
state selectedClasses setValue: (Array with: class).
- actualProtocols := context selectedMethodProtocols.
+ actualProtocols := context selectedProtocols.
self assert: expectedProtocols = actualProtocols.
@@ -73,7 +73,7 @@
state selectedProtocols setValue: (Array with: 'protocol_01' with: (Tools::BrowserList nameListEntryForALL)).
state selectedClasses setValue: (Array with: class01 with: class02).
- actualProtocols := context selectedMethodProtocols.
+ actualProtocols := context selectedProtocols.
self assert: expectedProtocols = actualProtocols.
@@ -86,7 +86,7 @@
expectedProtocols := Array with: 'protocol_01' with: 'protocol_02'.
state selectedProtocols setValue: expectedProtocols.
- actualProtocols := context selectedMethodProtocols.
+ actualProtocols := context selectedProtocols.
self assert: expectedProtocols = actualProtocols.
--- a/CustomContext.st Sat Nov 01 15:41:43 2014 +0100
+++ b/CustomContext.st Sat Nov 01 16:18:01 2014 +0100
@@ -47,14 +47,6 @@
"Created: / 18-08-2014 / 21:28:10 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!
-selectedMethodProtocols
- "a collection with selected method protocols"
-
- self subclassResponsibility
-
- "Created: / 05-05-2014 / 00:14:23 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
-!
-
selectedMethods
"a collection with selected methods"
@@ -71,6 +63,14 @@
"Created: / 05-05-2014 / 00:12:59 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!
+selectedProtocols
+ "a collection with selected method protocols"
+
+ self subclassResponsibility
+
+ "Created: / 05-05-2014 / 00:14:23 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
selectedVariables
"a collection with selected variables"
--- a/CustomSubContext.st Sat Nov 01 15:41:43 2014 +0100
+++ b/CustomSubContext.st Sat Nov 01 16:18:01 2014 +0100
@@ -1,7 +1,7 @@
"{ Package: 'jn:refactoring_custom' }"
CustomContext subclass:#CustomSubContext
- instanceVariableNames:'selectedClasses selectedClassCategories selectedMethodProtocols
+ instanceVariableNames:'selectedClasses selectedClassCategories selectedProtocols
selectedMethods selectedPackages selectedVariables selectedCodes'
classVariableNames:''
poolDictionaries:''
@@ -38,10 +38,6 @@
"Created: / 18-08-2014 / 23:53:25 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!
-selectedMethodProtocols:something
- selectedMethodProtocols := something.
-!
-
selectedMethods:something
selectedMethods := something.
!
@@ -50,6 +46,10 @@
selectedPackages := something.
!
+selectedProtocols:something
+ selectedProtocols := something.
+!
+
selectedVariables:something
selectedVariables := something.
! !
@@ -78,13 +78,6 @@
"Created: / 18-08-2014 / 23:52:48 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!
-selectedMethodProtocols
-
- ^ selectedMethodProtocols
-
- "Modified: / 05-05-2014 / 20:31:35 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
-!
-
selectedMethods
^ selectedMethods
@@ -99,6 +92,12 @@
"Modified: / 05-05-2014 / 20:32:13 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
!
+selectedProtocols
+ ^ selectedProtocols
+
+ "Modified: / 05-05-2014 / 20:31:35 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+!
+
selectedVariables
^ selectedVariables
--- a/patches/patches.rc Sat Nov 01 15:41:43 2014 +0100
+++ b/patches/patches.rc Sat Nov 01 16:18:01 2014 +0100
@@ -25,7 +25,7 @@
VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
VALUE "ProductName", "LibraryName\0"
VALUE "ProductVersion", "6.2.4.1378\0"
- VALUE "ProductDate", "Sat, 01 Nov 2014 14:22:41 GMT\0"
+ VALUE "ProductDate", "Sat, 01 Nov 2014 15:15:06 GMT\0"
END
END
--- a/refactoring_custom.rc Sat Nov 01 15:41:43 2014 +0100
+++ b/refactoring_custom.rc Sat Nov 01 16:18:01 2014 +0100
@@ -25,7 +25,7 @@
VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
VALUE "ProductName", "ProductName\0"
VALUE "ProductVersion", "6.2.4.1378\0"
- VALUE "ProductDate", "Sat, 01 Nov 2014 14:22:38 GMT\0"
+ VALUE "ProductDate", "Sat, 01 Nov 2014 15:15:03 GMT\0"
END
END