--- a/HTMLUtilities.st	Fri May 21 15:54:39 2010 +0200
+++ b/HTMLUtilities.st	Tue Jun 01 11:28:21 2010 +0200
@@ -45,52 +45,18 @@
 !HTMLUtilities class methodsFor:'common actions'!
 
 openLauncherOnDisplay:displayName
-    |display errorString app wsClass|
-
-    wsClass := Smalltalk classNamed:#XWorkstation.
-    wsClass isNil ifTrue:[
-        ^ 'XWorkstation has not been loaded' 
-    ].        
+    <resource: #obsolete>
 
-    [
-        display := wsClass newDispatchingFor:displayName.
-        display deviceIOErrorSignal handlerBlock:[:ex | 
-            'DeviceWorkstation [warning]: stop dispatch due to I/O error: ' errorPrint.
-            display errorPrintCR.
-            display brokenConnection.
-        ].
-
-        Screen currentScreenQuerySignal answer:display do:[
-            Screen default isNil ifTrue:[
-                Smalltalk secureFileIn:'keyboard.rc'.
-                "/ Smalltalk secureFileIn:'display.rc'.
-                display buttonTranslation:#(1 2 2 4 5 6 7).
-                Screen default:display.
-            ].
+    "obsolete - do not use"
 
-            app := NewLauncher new openAndWaitUntilVisible.
-            app windowGroup isNil ifTrue:[
-                errorString := 'Cannot open'.
-            ] ifFalse:[
-                app windowGroup process addExitAction:[
-                    "reset the default display"
-                    Screen default == display ifTrue:[
-                        Screen default:nil.
-                    ].
-                ].
-            ].
+    self obsoleteMethodWarning.
+    Error handle:[:ex |
+        ^ ex description
+    ] do:[
+        NewLauncher openLauncherOnInitializedDisplayNamed:displayName
+    ]
 
-            errorString notEmptyOrNil ifTrue:[
-                "terminate event processor on error"
-                display stopDispatch.
-            ].
-        ]
-    ] on:Screen deviceOpenErrorSignal do:[:ex|
-        errorString := 'Cannot connect to display: <1s><br><2s>' 
-                        expandMacrosWith:displayName with:ex description.
-    ].
-
-    ^ errorString
+    "Modified: / 01-06-2010 / 11:25:12 / sr"
 ! !
 
 !HTMLUtilities class methodsFor:'helpers'!
@@ -460,9 +426,9 @@
 !HTMLUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/HTMLUtilities.st,v 1.9 2010-04-12 12:53:03 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/HTMLUtilities.st,v 1.10 2010-06-01 09:28:21 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/HTMLUtilities.st,v 1.9 2010-04-12 12:53:03 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/HTMLUtilities.st,v 1.10 2010-06-01 09:28:21 sr Exp $'
 ! !