author | Claus Gittinger <cg@exept.de> |
Thu, 06 Feb 2020 17:57:01 +0100 | |
changeset 3852 | 0b3d22d37c50 |
parent 3851 | 8251db282466 |
child 3853 | 557296bf53ad |
--- 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"