ShowMeHowItWorks.st
changeset 3852 0b3d22d37c50
parent 3851 8251db282466
child 3855 0cc52b04a4a5
--- 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"