--- a/PluginSupport.st	Wed Dec 21 23:38:16 2005 +0100
+++ b/PluginSupport.st	Wed Dec 21 23:47:56 2005 +0100
@@ -75,12 +75,30 @@
 !
 
 startInBrowserWithWindowID:windowID parameters:parameters
-    parameters infoPrintCR.
+    |appClassName appClass src|
+
+    appClassName := parameters at:'application' ifAbsent:nil.
+    appClassName notNil ifTrue:[
+        appClass := Smalltalk classNamed:appClassName.
+        appClass notNil ifTrue:[
+            self
+                start:appClass
+                inWindowWithID:windowID
+                parameters:parameters.
+            ^ self.
+        ].
+    ].
+
+    src := parameters at:'src' ifAbsent:nil.
+    src notNil ifTrue:[
+        self halt.
+        ^ self.
+    ].
 
     self
-        start:(WorkspaceApplication ? Workspace)
+        start:NewLauncher
         inWindowWithID:windowID
-        parameters:parameters
+        parameters:parameters.
 
     "
      |v|
@@ -136,5 +154,5 @@
 !PluginSupport class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PluginSupport.st,v 1.9 2005-12-21 22:38:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PluginSupport.st,v 1.10 2005-12-21 22:47:56 cg Exp $'
 ! !