--- a/DeviceWorkstation.st Thu Aug 05 16:52:34 2010 +0200
+++ b/DeviceWorkstation.st Thu Aug 05 17:07:34 2010 +0200
@@ -439,42 +439,42 @@
"find out about the concrete Workstation class"
Screen isAbstract ifTrue:[
- |wsClass wsClasses|
-
- wsClasses := OrderedCollection new.
-
- #(OpenGLWorkstation GLXWorkstation XWorkstation)
- detect:[:w| (wsClass := Smalltalk at:w) notNil] ifNone:nil.
- wsClass notNil ifTrue:[wsClasses add:wsClass].
-
- "preparation for WIN32/NeXTStep/OS2 and Mac interfacing;
- But if X11 is linked in and it is capable of setting up a connection, that will be used."
- #(
- "/ #NeXTWorkstation nil
- OS2Workstation isOS2like
- MacWorkstation isMAClike
- WinWorkstation isMSWINDOWSlike
- ) pairWiseDo:[:wsClassName :checkSel|
- (checkSel isNil or:[OperatingSystem perform:checkSel]) ifTrue:[
- (wsClass := Smalltalk at:wsClassName) notNil ifTrue:[
- wsClasses add:wsClass.
- ]
- ].
- ].
-
- "/ try all classes until open of display works.
- wsClasses detect:[:cls|
- [
- display := cls newFor:displayName.
- ] on:Screen deviceOpenErrorSignal do:[:ex| ].
- display notNil
- ] ifNone:nil.
+ |wsClass wsClasses|
+
+ wsClasses := OrderedCollection new.
+
+ #(OpenGLWorkstation GLXWorkstation XWorkstation)
+ detect:[:eachClassNameSymbol| (wsClass := Smalltalk classNamed:eachClassNameSymbol) notNil] ifNone:nil.
+ wsClass notNil ifTrue:[wsClasses add:wsClass].
+
+ "preparation for WIN32/NeXTStep/OS2 and Mac interfacing;
+ But if X11 is linked in and it is capable of setting up a connection, that will be used."
+ #(
+ "/ #NeXTWorkstation nil
+ OS2Workstation isOS2like
+ MacWorkstation isMAClike
+ WinWorkstation isMSWINDOWSlike
+ ) pairWiseDo:[:wsClassName :checkSel|
+ (checkSel isNil or:[OperatingSystem perform:checkSel]) ifTrue:[
+ (wsClass := Smalltalk classNamed:wsClassName) notNil ifTrue:[
+ wsClasses add:wsClass.
+ ]
+ ].
+ ].
+
+ "/ try all classes until open of display works.
+ wsClasses detect:[:cls|
+ [
+ display := cls newFor:displayName.
+ ] on:Screen deviceOpenErrorSignal do:[:ex| ].
+ display notNil
+ ] ifNone:nil.
] ifFalse:[
- display := Screen newFor:displayName.
+ display := Screen newFor:displayName.
].
display isNil ifTrue:[
- Screen deviceOpenErrorSignal raiseWith:displayName.
+ Screen deviceOpenErrorSignal raiseWith:displayName.
].
Screen := display class.
Screen default:display.
@@ -7973,11 +7973,11 @@
!DeviceWorkstation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.543 2010-08-05 14:41:56 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.544 2010-08-05 15:07:34 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.543 2010-08-05 14:41:56 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.544 2010-08-05 15:07:34 stefan Exp $'
! !
DeviceWorkstation initialize!