equal
deleted
inserted
replaced
4267 "Modified: / 19.1.2000 / 10:13:32 / cg" |
4267 "Modified: / 19.1.2000 / 10:13:32 / cg" |
4268 ! ! |
4268 ! ! |
4269 |
4269 |
4270 !DeviceWorkstation methodsFor:'error handling'! |
4270 !DeviceWorkstation methodsFor:'error handling'! |
4271 |
4271 |
4272 primitiveFailedOrClosedConnection |
4272 primitiveFailedOrClosedConnection |
|
4273 "sent by all primitives here, when something is wrong. |
|
4274 Check what was wrong and raise a corresponding error here." |
|
4275 |
4273 self isOpen ifFalse:[ |
4276 self isOpen ifFalse:[ |
4274 "/ ignore in end-user apps |
4277 "/ ignore in end-user apps |
4275 (Smalltalk isSmalltalkDevelopmentSystem) ifTrue:[ |
4278 (Smalltalk isSmalltalkDevelopmentSystem) ifTrue:[ |
4276 DrawingOnClosedDeviceSignal raiseRequestWith:self. |
4279 DrawingOnClosedDeviceSignal raiseRequestWith:self. |
4277 ]. |
4280 ]. |
4278 ^ nil |
4281 ^ nil |
4279 ]. |
4282 ]. |
4280 ^ super primitiveFailed |
4283 ^ self primitiveFailed |
4281 ! |
4284 ! |
4282 |
4285 |
4283 resourceOfId:id |
4286 resourceOfId:id |
4284 "search through all device stuff for a resource. |
4287 "search through all device stuff for a resource. |
4285 Needed for error handling. |
4288 Needed for error handling. |
8340 ! ! |
8343 ! ! |
8341 |
8344 |
8342 !DeviceWorkstation class methodsFor:'documentation'! |
8345 !DeviceWorkstation class methodsFor:'documentation'! |
8343 |
8346 |
8344 version |
8347 version |
8345 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.617 2014-06-14 12:31:57 cg Exp $' |
8348 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.618 2014-06-15 12:04:11 cg Exp $' |
8346 ! |
8349 ! |
8347 |
8350 |
8348 version_CVS |
8351 version_CVS |
8349 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.617 2014-06-14 12:31:57 cg Exp $' |
8352 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.618 2014-06-15 12:04:11 cg Exp $' |
8350 ! ! |
8353 ! ! |
8351 |
8354 |
8352 |
8355 |
8353 DeviceWorkstation initialize! |
8356 DeviceWorkstation initialize! |