equal
deleted
inserted
replaced
278 |
278 |
279 setLanguage:lang |
279 setLanguage:lang |
280 voice := OperatingSystem bestVoiceForLanguage:lang. |
280 voice := OperatingSystem bestVoiceForLanguage:lang. |
281 language := lang. |
281 language := lang. |
282 |
282 |
|
283 (lang startsWith:'de') ifTrue:[ |
|
284 self pronounce:'peccare' as:'peckare' |
|
285 ]. |
|
286 |
283 "Created: / 23-07-2019 / 10:27:02 / Claus Gittinger" |
287 "Created: / 23-07-2019 / 10:27:02 / Claus Gittinger" |
284 ! ! |
288 ! ! |
285 |
289 |
286 !ShowMeHowItWorks methodsFor:'commands'! |
290 !ShowMeHowItWorks methodsFor:'commands'! |
287 |
291 |
327 |
331 |
328 language isNil ifTrue:[ |
332 language isNil ifTrue:[ |
329 self setLanguage:(Smalltalk language). |
333 self setLanguage:(Smalltalk language). |
330 ]. |
334 ]. |
331 self tell:(self class classResources |
335 self tell:(self class classResources |
332 string:'You can stop this show, by pressing the SHIFT key'). |
336 string:'You can stop this show, by pressing the SHIFT key'). |
333 |
337 |
334 "Created: / 19-07-2019 / 15:49:19 / Claus Gittinger" |
338 "Created: / 19-07-2019 / 15:49:19 / Claus Gittinger" |
335 "Modified: / 23-07-2019 / 11:06:13 / Claus Gittinger" |
339 "Modified: / 23-07-2019 / 11:06:13 / Claus Gittinger" |
336 ! |
340 ! |
337 |
341 |
570 eachLine := eachLine asLowercase. |
574 eachLine := eachLine asLowercase. |
571 pronunciations notNil ifTrue:[ |
575 pronunciations notNil ifTrue:[ |
572 pronunciations keysAndValuesDo:[:word :pronounced | |
576 pronunciations keysAndValuesDo:[:word :pronounced | |
573 (eachLine includesString:word) ifTrue:[ |
577 (eachLine includesString:word) ifTrue:[ |
574 eachLine := eachLine copyReplaceString:word withString:pronounced |
578 eachLine := eachLine copyReplaceString:word withString:pronounced |
575 ] |
579 ]. |
576 ] |
580 ] |
577 ]. |
581 ]. |
578 self tell:eachLine. |
582 self tell:eachLine. |
579 ]. |
583 ]. |
580 talkDone signal |
584 talkDone signal |
1353 |
1357 |
1354 talking |
1358 talking |
1355 "/ DebugMode := true |
1359 "/ DebugMode := true |
1356 verifying ifTrue:[^ false]. |
1360 verifying ifTrue:[^ false]. |
1357 DebugMode == true ifTrue:[^ false]. |
1361 DebugMode == true ifTrue:[^ false]. |
|
1362 Display ctrlDown ifTrue:[^ false]. |
1358 |
1363 |
1359 "/ ^ Expecco::ExpeccoPreferences current speechEffectsEnabled |
1364 "/ ^ Expecco::ExpeccoPreferences current speechEffectsEnabled |
1360 ^ true |
1365 ^ true |
1361 |
1366 |
1362 "Created: / 19-07-2019 / 14:31:14 / Claus Gittinger" |
1367 "Created: / 19-07-2019 / 14:31:14 / Claus Gittinger" |
1406 |prevSetting| |
1411 |prevSetting| |
1407 |
1412 |
1408 self talking ifTrue:[ |
1413 self talking ifTrue:[ |
1409 prevSetting := UserPreferences current logExecutedOSCommands. |
1414 prevSetting := UserPreferences current logExecutedOSCommands. |
1410 [ |
1415 [ |
|
1416 UserPreferences current logExecutedOSCommands:false. |
1411 OperatingSystem speak:message voiceName:voice. |
1417 OperatingSystem speak:message voiceName:voice. |
1412 ] ensure:[ |
1418 ] ensure:[ |
1413 UserPreferences current logExecutedOSCommands:prevSetting |
1419 UserPreferences current logExecutedOSCommands:prevSetting |
1414 ] |
1420 ] |
1415 ]. |
1421 ]. |