checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 25 Jul 1996 21:12:32 +0200
changeset 686 3dd40eb33b09
parent 685 8137f77734a4
child 687 a70b72319d51
checkin from browser
Launcher.st
--- a/Launcher.st	Thu Jul 25 20:26:20 1996 +0200
+++ b/Launcher.st	Thu Jul 25 21:12:32 1996 +0200
@@ -2410,7 +2410,9 @@
     top extent:(400@300 ).
 
     icn := self class aboutIcon.
-    icn := icn magnifiedTo:(sz := Screen current preferredIconSize).
+    icn notNil ifTrue:[
+        icn := icn magnifiedTo:(sz := Screen current preferredIconSize).
+    ].
 
     ((scrn := Screen current) supportsDeepIcons not
     and:[scrn supportsIconViews
@@ -2457,7 +2459,7 @@
     ].
     OpenLaunchers add:self.
 
-    "Modified: 5.7.1996 / 17:55:22 / cg"
+    "Modified: 25.7.1996 / 21:12:09 / cg"
 !
 
 release
@@ -3311,5 +3313,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.173 1996-07-18 11:10:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.174 1996-07-25 19:12:32 cg Exp $'
 ! !