--- a/Launcher.st	Sun Jan 12 01:46:24 1997 +0100
+++ b/Launcher.st	Mon Jan 13 23:33:33 1997 +0100
@@ -3526,6 +3526,7 @@
     "
     icon := self class smallAboutIcon.
     icon notNil ifTrue:[
+"/        icon := icon on:device.
         myMenu labels at:1 put:icon.
         myMenu height:(myMenu height max:(icon height + (View viewSpacing * 2)))
     ].
@@ -3541,6 +3542,7 @@
                                      #help).
 
     "Created: 8.1.1997 / 13:58:50 / cg"
+    "Modified: 13.1.1997 / 23:33:09 / cg"
 !
 
 setupMenu
@@ -3810,7 +3812,7 @@
 openInterface
     "sent by my superclass to open up my interface"
 
-    |top icn w scrn sz|
+    |top icn w sz|
 
     "/ if there is already a transcript on my device,
     "/ I am a slave launcher with limited functionality.
@@ -3831,12 +3833,12 @@
 
     icn := self class aboutIcon.
     icn notNil ifTrue:[
-        icn := icn magnifiedTo:(sz := Screen current preferredIconSize).
+        icn := icn magnifiedTo:(sz := device preferredIconSize).
     ].
 
-    ((scrn := Screen current) supportsDeepIcons not
-    and:[scrn supportsIconViews
-    and:[scrn depth > 1]]) ifTrue:[    
+    (device supportsDeepIcons not
+    and:[device supportsIconViews
+    and:[device depth > 1]]) ifTrue:[    
         w := View extent:sz. 
         w viewBackground:icn.
         top iconView:w
@@ -3844,19 +3846,19 @@
         top icon:icn.
     ].
 
-"/    (scrn := Screen current) supportsDeepIcons ifTrue:[
+"/    device supportsDeepIcons ifTrue:[
 "/        icn := self class aboutIcon.
 "/        icn notNil ifTrue:[
-"/            icn := icn magnifiedTo:(sz := scrn preferredIconSize).
+"/            icn := icn magnifiedTo:(sz := device preferredIconSize).
 "/            icn := Depth8Image fromImage:icn.
 "/            top icon:icn
 "/        ].
 
 "/    ] ifFalse:[
-"/        scrn supportsIconViews ifTrue:[
+"/        device supportsIconViews ifTrue:[
 "/            icn := self class aboutIcon.
 "/            icn notNil ifTrue:[
-"/                icn := icn magnifiedTo:(sz := scrn preferredIconSize).
+"/                icn := icn magnifiedTo:(sz := device preferredIconSize).
 "/                w := View extent:sz. 
 "/                w viewBackground:icn.
 "/                top iconView:w
@@ -3879,7 +3881,7 @@
     ].
     OpenLaunchers add:self.
 
-    "Modified: 25.7.1996 / 21:12:09 / cg"
+    "Modified: 13.1.1997 / 23:30:22 / cg"
 !
 
 release
@@ -4405,5 +4407,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.229 1997-01-11 17:40:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.230 1997-01-13 22:33:33 cg Exp $'
 ! !