equal
deleted
inserted
replaced
167 ! ! |
167 ! ! |
168 |
168 |
169 !PPParser methodsFor:'initialization'! |
169 !PPParser methodsFor:'initialization'! |
170 |
170 |
171 initialize |
171 initialize |
|
172 ! ! |
|
173 |
|
174 !PPParser methodsFor:'inspecting'! |
|
175 |
|
176 inspector2TabTree |
|
177 <inspector2Tab> |
|
178 |
|
179 ^ (self newInspector2Tab) |
|
180 label:'Tree'; |
|
181 priority:50; |
|
182 view: [ |
|
183 | list view | |
|
184 |
|
185 list := PluggableHierarchicalList new. |
|
186 list childBlock: [ :parent | parent children ]. |
|
187 list labelBlock: [ :child | child printString ]. |
|
188 list root: self. |
|
189 view := ScrollableView for:HierarchicalListView. |
|
190 view useDefaultIcons: false. |
|
191 view list: list. |
|
192 view |
|
193 ]; |
|
194 "/ application: [ ... ]; |
|
195 "/ text: [ ... ]; |
|
196 yourself |
|
197 |
|
198 "Modified: / 22-05-2015 / 17:05:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
172 ! ! |
199 ! ! |
173 |
200 |
174 !PPParser methodsFor:'operations'! |
201 !PPParser methodsFor:'operations'! |
175 |
202 |
176 , aParser |
203 , aParser |
652 |
679 |
653 version_CVS |
680 version_CVS |
654 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $' |
681 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $' |
655 ! |
682 ! |
656 |
683 |
|
684 version_HG |
|
685 |
|
686 ^ '$Changeset: <not expanded> $' |
|
687 ! |
|
688 |
657 version_SVN |
689 version_SVN |
658 ^ '$Id: PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $' |
690 ^ '$Id: PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $' |
659 ! ! |
691 ! ! |
660 |
692 |