#UI_ENHANCEMENT by cg draft
authorClaus Gittinger <cg@exept.de>
Thu, 20 Feb 2020 15:49:39 +0100
changeset 3860 c1824d0bfeb5
parent 3859 18cd7c43d15e
child 3861 11efde58092f
#UI_ENHANCEMENT by cg class: ShowMeHowItWorks comment/format in: #intro #showing:saying:do: changed: #setLanguage: #talking #tell:
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