equal
deleted
inserted
replaced
579 |
579 |
580 listOfHelpSpecClasses |
580 listOfHelpSpecClasses |
581 "returns the value holder of the specClass and its superclasses |
581 "returns the value holder of the specClass and its superclasses |
582 which are subclasses of ApplicationModel" |
582 which are subclasses of ApplicationModel" |
583 |
583 |
584 |holder| |
584 ^ builder listAspectFor:#listOfHelpSpecClasses |
585 (holder := builder bindingAt:#listOfHelpSpecClasses) isNil ifTrue:[ |
|
586 builder aspectAt:#listOfHelpSpecClasses put: (holder := List new) |
|
587 ]. |
|
588 ^ holder |
|
589 |
585 |
590 ! |
586 ! |
591 |
587 |
592 selectionOfHelpSpecClass |
588 selectionOfHelpSpecClass |
593 "returns the value holder of the selected help spec class" |
589 "returns the value holder of the selected help spec class" |