176 "initialize the class" |
176 "initialize the class" |
177 |
177 |
178 self initializeConcreteClass. |
178 self initializeConcreteClass. |
179 |
179 |
180 ErrorSignal isNil ifTrue:[ |
180 ErrorSignal isNil ifTrue:[ |
181 ErrorSignal := Error newSignalMayProceed:true. |
181 OSErrorHolder initialize. |
182 ErrorSignal nameClass:self message:#errorSignal. |
182 ErrorSignal := OsError. |
183 ErrorSignal notifierString:'OS error encountered'. |
183 InvalidArgumentsSignal := OsInvalidArgumentsError. |
184 |
184 AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal. |
185 AccessDeniedErrorSignal := ErrorSignal newSignalMayProceed:true. |
185 FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal. |
186 AccessDeniedErrorSignal nameClass:self message:#accessDeniedError. |
186 UnsupportedOperationSignal := OSErrorHolder unsupportedOperationSignal. |
187 AccessDeniedErrorSignal notifierString:'OS access denied'. |
|
188 |
|
189 FileNotFoundErrorSignal := ErrorSignal newSignalMayProceed:true. |
|
190 FileNotFoundErrorSignal nameClass:self message:#fileNotFoundErrorSignal. |
|
191 FileNotFoundErrorSignal notifierString:'OS file not found'. |
|
192 |
|
193 InvalidArgumentsSignal := ErrorSignal newSignalMayProceed:true. |
|
194 InvalidArgumentsSignal nameClass:self message:#invalidArgumentsSignal. |
|
195 InvalidArgumentsSignal notifierString:'bad arg to OS call'. |
|
196 |
|
197 UnsupportedOperationSignal := ErrorSignal newSignalMayProceed:true. |
|
198 UnsupportedOperationSignal nameClass:self message:#unsupportedOperationSignal. |
|
199 UnsupportedOperationSignal notifierString:'operation not supported by this OS'. |
|
200 ]. |
187 ]. |
201 Smalltalk addDependent:self. "/ to catch language changes |
188 Smalltalk addDependent:self. "/ to catch language changes |
202 ! |
189 ! |
203 |
190 |
204 initializeConcreteClass |
191 initializeConcreteClass |