AbstractLauncherApplication.st
changeset 16940 fede0c6f64e1
parent 16894 a6e7b6cd2db0
child 16969 7e79660cf54e
--- a/AbstractLauncherApplication.st	Thu Oct 13 11:42:59 2016 +0200
+++ b/AbstractLauncherApplication.st	Thu Oct 13 12:00:08 2016 +0200
@@ -1284,7 +1284,7 @@
 requestForWindowClose
     "close request from windowing system (window close);
      confirm and ask if closing of launcher only or
-     a smalltalk-exit is wanted"
+     a Smalltalk-exit is wanted"
 
     |answer|
 
@@ -1301,7 +1301,9 @@
         ^ true
     ].
 
-    self exit
+    self exit.
+    "/ not reached
+    ^ false
 
     "Modified: / 20.5.1999 / 17:24:47 / cg"
 !
@@ -2558,7 +2560,7 @@
 
 viewBrowse
     "let user pick a view and browse its Application class. 
-     Of course, only smalltalk views are allowed"
+     Of course, only Smalltalk views are allowed"
 
     |v app appClass browser|
 
@@ -2579,7 +2581,7 @@
 
 viewDestroy
     "let user pick a view and destroy it.
-     Even allow destroying non-smalltalk views
+     Even allow destroying non-Smalltalk views
      (also for views which I forgot due to some error)"
 
     |screen v id i c|
@@ -2626,7 +2628,7 @@
 
 viewInspect
     "let user pick a view and inspect it. 
-     Of course, only smalltalk views are allowed"
+     Of course, only Smalltalk views are allowed"
 
     |v|
 
@@ -2637,7 +2639,7 @@
 
 viewMigrate
     "let user pick a view and migrate it to some other display.
-     Only smalltalk views are allowed"
+     Only Smalltalk views are allowed"
 
     |v|