--- a/Launcher.st Mon Jun 10 21:38:20 1996 +0200
+++ b/Launcher.st Mon Jun 10 21:49:59 1996 +0200
@@ -2098,8 +2098,16 @@
top extent:(400@300 ).
icn := self class aboutIcon.
- icn := icn magnifiedTo:(Screen current preferredIconSize).
- top icon:icn.
+ icn := icn magnifiedTo:(sz := Screen current preferredIconSize).
+
+ ((scrn := Screen current) supportsDeepIcons not
+ and:[scrn supportsIconViews]) ifTrue:[
+ w := View extent:sz.
+ w viewBackground:icn.
+ top iconView:w
+ ] ifFalse:[
+ top icon:icn.
+ ].
"/ (scrn := Screen current) supportsDeepIcons ifTrue:[
"/ icn := self class aboutIcon.
@@ -2131,7 +2139,7 @@
"
top openWithPriority:(Processor userSchedulingPriority + 1).
- "Modified: 10.6.1996 / 21:22:33 / cg"
+ "Modified: 10.6.1996 / 21:49:26 / cg"
!
release
@@ -2942,5 +2950,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.149 1996-06-10 19:38:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.150 1996-06-10 19:49:59 cg Exp $'
! !