Refactoring of NavigatorModel's environment.
The environment is taken from an environmentHolder (if provided) or defaults
to Smalltalk (if holder is not provided)
--- a/Tools__LintRuleList.st Tue Feb 25 11:42:12 2014 +0100
+++ b/Tools__LintRuleList.st Tue Feb 25 11:42:18 2014 +0100
@@ -180,6 +180,7 @@
(if this app is embedded in a subCanvas)."
^ #(
+ environmentHolder
#inGeneratorHolder
#listSelection
#modeHolder
@@ -187,6 +188,7 @@
#selectionHolder
).
+ "Modified: / 24-02-2014 / 10:37:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!LintRuleList methodsFor:'accessing'!
@@ -444,12 +446,16 @@
!LintRuleList methodsFor:'initialization'!
initialize
+ | menu |
super initialize.
- menuHolder := ValueHolder with: (Menu decodeFromLiteralArray: (self menuFor: #menu)).
+ menu := self menuFor: #menu.
+ menu isArray ifTrue:[ menu := Menu decodeFromLiteralArray: menu ].
+ menuHolder := ValueHolder with: menu.
self selection: Set new.
"Modified: / 25-08-2010 / 15:24:45 / Jan Vrany <enter your email here>"
+ "Modified: / 24-02-2014 / 12:00:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!LintRuleList methodsFor:'menu actions'!
@@ -766,14 +772,14 @@
!LintRuleList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.15 2014-02-05 18:56:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.16 2014-02-25 10:42:18 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.15 2014-02-05 18:56:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.16 2014-02-25 10:42:18 vrany Exp $'
!
version_SVN
- ^ '$Id: Tools__LintRuleList.st,v 1.15 2014-02-05 18:56:01 cg Exp $'
+ ^ '$Id: Tools__LintRuleList.st,v 1.16 2014-02-25 10:42:18 vrany Exp $'
! !