equal
deleted
inserted
replaced
1114 |
1114 |
1115 doSave |
1115 doSave |
1116 "save the help spec to the spec-class(es)" |
1116 "save the help spec to the spec-class(es)" |
1117 |
1117 |
1118 specClass isNil ifTrue:[ |
1118 specClass isNil ifTrue:[ |
1119 self information:(resources string:'No class specified !!'). |
1119 self information:'No class specified !!'. |
1120 ^ nil |
1120 ^ nil |
1121 ]. |
1121 ]. |
1122 "/ cg: the following test is rubbish !! |
1122 "/ cg: the following test is rubbish !! |
1123 "/ (specClass isSubclassOf:ApplicationModel) ifFalse:[ |
1123 "/ (specClass isSubclassOf:ApplicationModel) ifFalse:[ |
1124 "/ self information:(resources string:'Cannot save help into non-Application class'). |
1124 "/ self information:(resources string:'Cannot save help into non-Application class'). |