equal
deleted
inserted
replaced
3669 |
3669 |
3670 "search thru all device stuff for a resource. |
3670 "search thru all device stuff for a resource. |
3671 Needed for error handling. |
3671 Needed for error handling. |
3672 |
3672 |
3673 Since id may be an ExternalAddress, do not compare with ==" |
3673 Since id may be an ExternalAddress, do not compare with ==" |
|
3674 |
|
3675 id isNil ifTrue:[ |
|
3676 "nil id is no resource" |
|
3677 ^ nil |
|
3678 ]. |
3674 |
3679 |
3675 self allViewsDo:[:aView | |
3680 self allViewsDo:[:aView | |
3676 aView id = id ifTrue:[^ aView]. |
3681 aView id = id ifTrue:[^ aView]. |
3677 aView gcId = id ifTrue:[^ aView] |
3682 aView gcId = id ifTrue:[^ aView] |
3678 ]. |
3683 ]. |
7398 ! ! |
7403 ! ! |
7399 |
7404 |
7400 !DeviceWorkstation class methodsFor:'documentation'! |
7405 !DeviceWorkstation class methodsFor:'documentation'! |
7401 |
7406 |
7402 version |
7407 version |
7403 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.464 2004-05-10 15:30:52 stefan Exp $' |
7408 ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.465 2004-05-11 08:00:57 stefan Exp $' |
7404 ! ! |
7409 ! ! |
7405 |
7410 |
7406 DeviceWorkstation initialize! |
7411 DeviceWorkstation initialize! |