equal
deleted
inserted
replaced
138 by the MenuEditor of ST/X." |
138 by the MenuEditor of ST/X." |
139 |
139 |
140 "Do not manually edit this!! If it is corrupted, |
140 "Do not manually edit this!! If it is corrupted, |
141 the MenuEditor may not be able to read the specification." |
141 the MenuEditor may not be able to read the specification." |
142 |
142 |
|
143 |
143 " |
144 " |
144 MenuEditor new openOnClass:Tools::SmalllintRuleList andSelector:#menu |
145 MenuEditor new openOnClass:Tools::LintRuleList andSelector:#menu |
145 (Menu new fromLiteralArrayEncoding:(Tools::SmalllintRuleList menu)) startUp |
146 (Menu new fromLiteralArrayEncoding:(Tools::LintRuleList menu)) startUp |
146 " |
147 " |
147 |
148 |
148 <resource: #menu> |
149 <resource: #menu> |
149 |
150 |
150 ^ |
151 ^ |
151 #(Menu |
152 #(Menu |
152 ( |
153 ( |
153 (MenuItem |
154 (MenuItem |
154 label: '-' |
155 label: '-' |
|
156 isVisible: false |
155 ) |
157 ) |
156 (MenuItem |
158 (MenuItem |
157 label: 'Inspect' |
159 label: 'Inspect' |
158 itemValue: menuInspect |
160 itemValue: menuInspect |
159 translateLabel: true |
161 translateLabel: true |
517 ifTrue:[ |
519 ifTrue:[ |
518 newList add: (self listEntryFor:rule) |
520 newList add: (self listEntryFor:rule) |
519 ] |
521 ] |
520 ] |
522 ] |
521 ]. |
523 ]. |
|
524 newList sort:[:a :b | a name < b name]. |
522 self listHolder value:newList. |
525 self listHolder value:newList. |
523 listValid := true. |
526 listValid := true. |
524 |
527 |
525 "Modified: / 22-07-2009 / 15:58:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
528 "Modified: / 22-07-2009 / 15:58:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
526 "Modified: / 16-04-2010 / 11:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
529 "Modified: / 16-04-2010 / 11:38:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
527 "Modified: / 25-08-2010 / 13:35:58 / Jan Vrany <enter your email here>" |
530 "Modified: / 25-08-2010 / 13:35:58 / Jan Vrany <enter your email here>" |
528 "Modified: / 04-08-2011 / 20:50:20 / cg" |
531 "Modified: / 07-03-2012 / 18:06:50 / cg" |
529 ! ! |
532 ! ! |
530 |
533 |
531 !LintRuleList methodsFor:'queries'! |
534 !LintRuleList methodsFor:'queries'! |
532 |
535 |
533 supportsSearch |
536 supportsSearch |
746 ! ! |
749 ! ! |
747 |
750 |
748 !LintRuleList class methodsFor:'documentation'! |
751 !LintRuleList class methodsFor:'documentation'! |
749 |
752 |
750 version |
753 version |
751 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.10 2012-03-02 01:58:12 cg Exp $' |
754 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.11 2012-03-07 17:19:06 cg Exp $' |
752 ! |
755 ! |
753 |
756 |
754 version_CVS |
757 version_CVS |
755 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.10 2012-03-02 01:58:12 cg Exp $' |
758 ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleList.st,v 1.11 2012-03-07 17:19:06 cg Exp $' |
756 ! |
759 ! |
757 |
760 |
758 version_SVN |
761 version_SVN |
759 ^ '§Id: Tools__LintRuleList.st 7619 2010-08-26 10:15:15Z vranyj1 §' |
762 ^ '§Id: Tools__LintRuleList.st 7619 2010-08-26 10:15:15Z vranyj1 §' |
760 ! ! |
763 ! ! |