Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#BUGFIX by cg
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 file | annotate | diff | comparison | revisions 
--- 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"
hg/stx-libtool2