2012/3/30 St�phane Ducasse
<stephane.ducasse@inria.fr>
PPPHPCoreGrammar ignoredNames
� � � �#('properties' 'parser' 'keywords')
browseSelectorsOn: aBrowser
� � � �aBrowser list
� � � � � � � �title: 'Productions';
� � � � � � � �format: [ :class | class asString ];
� � � � � � � �display: [ :class |
� � � � � � � � � � � �((((class allInstVarNames
� � � � � � � � � � � � � � � �copyWithoutAll: class ignoredNames)
� � � � � � � � � � � � � � � �copyWithoutAll: self rootClass allInstVarNames)
� � � � � � � � � � � � � � � �collect: [ :each | each asSymbol ])
� � � � � � � � � � � � � � � �select: [ :each | class includesSelector: each ])
� � � � � � � � � � � � � � � �asSortedCollection ];
� � � � � � � �selectionAct: [
� � � � � � � � � � � �StandardToolSet
� � � � � � � � � � � � � � � �^^^^^^^^
� � � � � � � � � � � � � � � �does not exist anymore in 1.4 I guess but this is should not be related to this bug.
� � � � � � � � � � � � � � � �-> use
� � � � � � � � � � � � � � � � � � � �Smalltalk tools browser
� � � � � � � � � � � � � � � �browse: self selectedClass
� � � � � � � � � � � � � � � �selector: self selectedSelector ]
� � � � � � � � � � � �on: $b entitled: 'browse (b)';
� � � � � � � �selectionAct: [
� � � � � � � � � � � �| class selector |
� � � � � � � � � � � �class := self selectedClass.
� � � � � � � � � � � �selector := self selectedSelector.
� � � � � � � � � � � �(class instVarNames includes: selector)
� � � � � � � � � � � � � � � �ifTrue: [ class removeInstVarName: selector ].
� � � � � � � � � � � �class removeSelector: selector.
� � � � � � � � � � � �aBrowser entity: self rootModel.
� � � � � � � � � � � �self selectedClass: class ]
� � � � � � � � � � � �on: $r entitled: 'remove (x)'