--- a/Launcher.st	Tue Oct 28 19:53:39 1997 +0100
+++ b/Launcher.st	Tue Oct 28 20:23:33 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 24-oct-1997 at 2:34:30 pm'                  !
-
 ApplicationModel subclass:#Launcher
 	instanceVariableNames:'myMenu buttonPanel transcript infoView projectInfoHolder helpIsOn
 		isMainLauncher'
@@ -200,11 +198,11 @@
      Can be redefined in subclasses to return nil (no scaling)
      or any other useful size"
 
-    <resource: #style (#launcherButtonSize)>
-
-    ^ View styleSheet at:#launcherButtonSize default:(32@32)
-
-    "Modified: 9.1.1997 / 13:48:09 / cg"
+    <resource: #style (#'launcher.buttonSize')>
+
+    ^ View styleSheet at:'launcher.buttonSize' default:(32@32)
+
+    "Modified: / 26.10.1997 / 17:07:40 / cg"
 !
 
 notifyingEmergencyHandler
@@ -4562,24 +4560,24 @@
     knownTopViews := IdentitySet new.
     Screen allScreens do:[:aScreen |
         aScreen knownViews do:[:aView |
+            |top showIt wg|
+
             aView notNil ifTrue:[
-                knownTopViews add:aView topView
+                top := aView topView.
+                (top isKindOf:DebugView) ifTrue:[
+                    "/ although modal, show it.
+                    showIt := top realized
+                ] ifFalse:[
+                    wg := top windowGroup.
+                    showIt := (wg notNil and:[wg isModal not]).
+                ].
+                showIt ifTrue:[
+                    knownTopViews add:top
+                ]
             ]
         ]
     ].
 
-    knownTopViews := knownTopViews select:[:aView |
-                        |wg|
-
-                        (aView isKindOf:DebugView) ifTrue:[
-                            "/ although modal, show it.
-                            aView realized
-                        ] ifFalse:[
-                            wg := aView windowGroup.
-                            (wg notNil and:[wg isModal not]).
-                        ]
-                     ].
-
     knownTopViews := knownTopViews asOrderedCollection.
     knownTopViews sort:[:v1 :v2 | |l1 l2|
                                 l1 := v1 label ? 'aView'.
@@ -4615,8 +4613,8 @@
     box showAtPointer.
     ^ nil
 
-    "Modified: 1.4.1997 / 13:57:56 / cg"
-    "Created: 14.10.1997 / 11:24:42 / cg"
+    "Created: / 14.10.1997 / 11:24:42 / cg"
+    "Modified: / 27.10.1997 / 04:41:08 / cg"
 !
 
 fontBoxForEncoding:encodingMatch
@@ -4864,5 +4862,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.299 1997-10-24 23:11:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.300 1997-10-28 19:23:33 cg Exp $'
 ! !