equal
deleted
inserted
replaced
1130 " |
1130 " |
1131 specClass isNil ifTrue:[ |
1131 specClass isNil ifTrue:[ |
1132 self information:(resources string:'No class specified !!'). |
1132 self information:(resources string:'No class specified !!'). |
1133 ^ nil |
1133 ^ nil |
1134 ]. |
1134 ]. |
1135 (specClass isSubclassOf:ApplicationModel) ifFalse:[ |
1135 "/ cg: the following test is rubbish !! |
1136 self information:(resources string:'Cannot save help into non-Application class'). |
1136 "/ (specClass isSubclassOf:ApplicationModel) ifFalse:[ |
1137 ^ nil |
1137 "/ self information:(resources string:'Cannot save help into non-Application class'). |
1138 ]. |
1138 "/ ^ nil |
|
1139 "/ ]. |
1139 |
1140 |
1140 classItemList do:[:aClassItem| |
1141 classItemList do:[:aClassItem| |
1141 aClassItem createHelpMethodNamed:(self specSelector) |
1142 aClassItem createHelpMethodNamed:(self specSelector) |
1142 ]. |
1143 ]. |
1143 ! |
1144 ! |