equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1997 by eXept Software AG |
4 COPYRIGHT (c) 1997 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2638 specClass isNil ifTrue:[ |
2640 specClass isNil ifTrue:[ |
2639 self warn:(resources string:'Please define the application class first.'). |
2641 self warn:(resources string:'Please define the application class first.'). |
2640 ^ self |
2642 ^ self |
2641 ]. |
2643 ]. |
2642 |
2644 |
2643 selector := (self aspectFor:aspect) value. |
2645 selector := (self aspectValueFor:aspect). |
2644 selector isEmptyOrNil ifTrue:[ |
2646 selector isEmptyOrNil ifTrue:[ |
2645 Dialog information:(resources string:'Missing name for the action/aspect method.'). |
2647 Dialog information:(resources string:'Missing name for the action/aspect method.'). |
2646 ^ self |
2648 ^ self |
2647 ]. |
2649 ]. |
2648 (selector = 'true' or:[selector = 'false']) ifTrue:[^ self]. |
2650 (selector = 'true' or:[selector = 'false']) ifTrue:[^ self]. |