# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1563872787 -7200
# Node ID 1da1137b6f23f2f1eedfb324446af2d62bb6b0c7
# Parent  802690cbfd63bea98f745053bf0fc4e6f45d3dd0
#UI_ENHANCEMENT by cg
class: ShowMeHowItWorks
changed:
	#doStream:
	#intro

diff -r 802690cbfd63 -r 1da1137b6f23 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