#BUGFIX by cg draft
authorClaus Gittinger <cg@exept.de>
Thu, 06 Feb 2020 17:57:01 +0100
changeset 3852 0b3d22d37c50
parent 3851 8251db282466
child 3853 557296bf53ad
#BUGFIX by cg class: ShowMeHowItWorks changed: #tell:
ShowMeHowItWorks.st
--- a/ShowMeHowItWorks.st	Thu Feb 06 17:52:08 2020 +0100
+++ b/ShowMeHowItWorks.st	Thu Feb 06 17:57:01 2020 +0100
@@ -1380,8 +1380,15 @@
 !
 
 tell:message
+    |prevSetting|
+
     self talking ifTrue:[
-        OperatingSystem speak:message voiceName:voice.
+        prevSetting := UserPreferences current logExecutedOSCommands.
+        [
+            OperatingSystem speak:message voiceName:voice.
+        ] ensure:[
+            UserPreferences current logExecutedOSCommands:prevSetting
+        ]
     ].
 
     "Created: / 19-07-2019 / 14:57:50 / Claus Gittinger"