--- 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|