#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Tue, 23 Jul 2019 11:04:06 +0200
changeset 3730 5595e80b235f
parent 3729 c61eb680f150
child 3731 cdfc4f9f635f
#UI_ENHANCEMENT by cg class: ShowMeHowItWorks changed: #doStream: #intro
ShowMeHowItWorks.st
--- a/ShowMeHowItWorks.st	Tue Jul 23 11:03:56 2019 +0200
+++ b/ShowMeHowItWorks.st	Tue Jul 23 11:04:06 2019 +0200
@@ -89,10 +89,10 @@
     IntroShownCount > 3 ifTrue:[^ self].
     
     self tell:(self class classResources 
-                string:'you can stop the show - by pressing - the shift key').
+                string:'you can stop the show, by pressing the shift key').
 
     "Created: / 19-07-2019 / 15:49:19 / Claus Gittinger"
-    "Modified: / 23-07-2019 / 10:55:15 / Claus Gittinger"
+    "Modified: / 23-07-2019 / 11:01:38 / Claus Gittinger"
 !
 
 language:lang
@@ -1046,9 +1046,9 @@
             self nextCommand.
             Display shiftDown ifTrue:[
                 (IntroShownCount ? 0) > 3 ifFalse:[
-                    self tell:(resources string:'you pressed the shift key,').
+                    self tell:(resources string:'You pressed the shift key.').
                 ].    
-                self tell:(resources string:'do you want to stop the show?').
+                self tell:(resources string:'Do you want to stop the show?').
                 (Dialog confirm:(resources stringWithCRs:'Stop the demonstration?'))
                 ifTrue:[
                     self tell:(resources string:'OK,').
@@ -1090,7 +1090,7 @@
 END"
 
     "Created: / 19-07-2019 / 10:52:24 / Claus Gittinger"
-    "Modified: / 23-07-2019 / 10:54:49 / Claus Gittinger"
+    "Modified: / 23-07-2019 / 11:03:49 / Claus Gittinger"
 !
 
 nextCommand