# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1582210179 -3600
# Node ID c1824d0bfeb5d8d34384a212d10fa6e5a6ba8030
# Parent  18cd7c43d15ed5a02eead5e661957ef620097d8a
#UI_ENHANCEMENT by cg
class: ShowMeHowItWorks
comment/format in:
	#intro
	#showing:saying:do:
changed:
	#setLanguage:
	#talking
	#tell:

diff -r 18cd7c43d15e -r c1824d0bfeb5 ShowMeHowItWorks.st
--- a/ShowMeHowItWorks.st	Thu Feb 20 09:46:13 2020 +0100
+++ b/ShowMeHowItWorks.st	Thu Feb 20 15:49:39 2020 +0100
@@ -280,6 +280,10 @@
     voice := OperatingSystem bestVoiceForLanguage:lang.
     language := lang.
 
+    (lang startsWith:'de') ifTrue:[
+        self pronounce:'peccare' as:'peckare'
+    ].
+
     "Created: / 23-07-2019 / 10:27:02 / Claus Gittinger"
 ! !
 
@@ -329,7 +333,7 @@
         self setLanguage:(Smalltalk language). 
     ].
     self tell:(self class classResources 
-                string:'You can stop this 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:06:13 / Claus Gittinger"
@@ -572,7 +576,7 @@
                         pronunciations keysAndValuesDo:[:word :pronounced |
                             (eachLine includesString:word) ifTrue:[
                                 eachLine := eachLine copyReplaceString:word withString:pronounced
-                            ]
+                            ].
                         ]
                     ].
                     self tell:eachLine.
@@ -1355,6 +1359,7 @@
     "/ DebugMode := true
     verifying ifTrue:[^ false].
     DebugMode == true ifTrue:[^ false].
+    Display ctrlDown ifTrue:[^ false].    
 
     "/ ^ Expecco::ExpeccoPreferences current speechEffectsEnabled
     ^ true
@@ -1408,6 +1413,7 @@
     self talking ifTrue:[
         prevSetting := UserPreferences current logExecutedOSCommands.
         [
+            UserPreferences current logExecutedOSCommands:false.
             OperatingSystem speak:message voiceName:voice.
         ] ensure:[
             UserPreferences current logExecutedOSCommands:prevSetting