equal
deleted
inserted
replaced
1146 specClass isNil ifTrue:[ |
1146 specClass isNil ifTrue:[ |
1147 self information:(resources string:'No class specified !!'). |
1147 self information:(resources string:'No class specified !!'). |
1148 ^ nil |
1148 ^ nil |
1149 ]. |
1149 ]. |
1150 (specClass isSubclassOf:ApplicationModel) ifFalse:[ |
1150 (specClass isSubclassOf:ApplicationModel) ifFalse:[ |
1151 self information:(resources string:'Cannot save help into none Application class'). |
1151 self information:(resources string:'Cannot save help into non-Application class'). |
1152 ^ nil |
1152 ^ nil |
1153 ]. |
1153 ]. |
1154 |
1154 |
1155 classItemList do:[:aClassItem| |
1155 classItemList do:[:aClassItem| |
1156 aClassItem createHelpMethodNamed:(self specSelector) |
1156 aClassItem createHelpMethodNamed:(self specSelector) |