--- a/Launcher.st	Fri Jul 05 17:41:50 1996 +0200
+++ b/Launcher.st	Fri Jul 05 18:02:48 1996 +0200
@@ -99,7 +99,7 @@
     |screen|
 
     OpenLaunchers do:[:aLauncher |
-        aLauncher window device == Screen current ifTrue:[
+        aLauncher window graphicsDevice == Screen current ifTrue:[
             ^ aLauncher
         ]
     ].
@@ -109,7 +109,7 @@
      NewLauncher current
     "
 
-    "Modified: 5.7.1996 / 11:55:51 / cg"
+    "Modified: 5.7.1996 / 17:55:28 / cg"
 ! !
 
 !NewLauncher  class methodsFor:'defaults'!
@@ -2260,7 +2260,7 @@
 
     Transcript notNil ifTrue:[
         Transcript ~~ Stderr ifTrue:[
-            isMainLauncher := (Transcript device == device).
+            isMainLauncher := (Transcript graphicsDevice == device).
         ] ifFalse:[
             isMainLauncher := true
         ]
@@ -2320,7 +2320,7 @@
     ].
     OpenLaunchers add:self.
 
-    "Modified: 5.7.1996 / 16:51:19 / cg"
+    "Modified: 5.7.1996 / 17:55:22 / cg"
 !
 
 release
@@ -2920,7 +2920,7 @@
             launcher := self class current.
         ].
         launcher notNil ifTrue:[
-            launcher window device == device ifTrue:[
+            launcher window graphicsDevice == device ifTrue:[
                 OpenLaunchers remove:launcher ifAbsent:nil.
                 launcher window destroy.
             ]
@@ -2948,7 +2948,7 @@
         transcript showCR:'***********************************************'.
     ]
 
-    "Modified: 5.7.1996 / 17:38:20 / cg"
+    "Modified: 5.7.1996 / 17:55:15 / cg"
 !
 
 setupViewsIn:topView 
@@ -3174,5 +3174,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.164 1996-07-05 15:41:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.165 1996-07-05 16:02:48 cg Exp $'
 ! !