#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Tue, 23 Jul 2019 11:06:27 +0200
changeset 3733 1da1137b6f23
parent 3732 802690cbfd63
child 3734 fdb1f72189d1
#UI_ENHANCEMENT by cg class: ShowMeHowItWorks changed: #doStream: #intro
ShowMeHowItWorks.st
--- a/ShowMeHowItWorks.st	Tue Jul 23 11:06:19 2019 +0200
+++ b/ShowMeHowItWorks.st	Tue Jul 23 11:06:27 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 this show, by pressing the SHIFT key').
 
     "Created: / 19-07-2019 / 15:49:19 / Claus Gittinger"
-    "Modified: / 23-07-2019 / 11:01:38 / Claus Gittinger"
+    "Modified: / 23-07-2019 / 11:06:13 / Claus Gittinger"
 !
 
 language:lang
@@ -1046,7 +1046,7 @@
             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?').
                 (Dialog confirm:(resources stringWithCRs:'Stop the demonstration?'))
@@ -1090,7 +1090,7 @@
 END"
 
     "Created: / 19-07-2019 / 10:52:24 / Claus Gittinger"
-    "Modified: / 23-07-2019 / 11:03:49 / Claus Gittinger"
+    "Modified: / 23-07-2019 / 11:05:39 / Claus Gittinger"
 !
 
 nextCommand