#FEATURE by exept
class: ShowMeHowItWorks
changed:
#application:
#doStream:from:
#intro
#useApplication:
--- a/ShowMeHowItWorks.st Fri Feb 21 18:31:56 2020 +0100
+++ b/ShowMeHowItWorks.st Fri Feb 21 19:17:27 2020 +0100
@@ -279,6 +279,7 @@
"if set, only that application is presented (widget search is limited to that one)"
application := anApplication.
+ anApplication window raiseDeiconified.
!
setLanguage:lang
@@ -357,8 +358,9 @@
language isNil ifTrue:[
self setLanguage:(Smalltalk language).
].
- self tell:(self class classResources
- string:'You can stop this show, by pressing the SHIFT key').
+ "/ self tell:(self class classResources
+ "/ string:'You can stop this show, by pressing the SHIFT key').
+ self show:'You can stop this show, by pressing the SHIFT key'.
"Created: / 19-07-2019 / 15:49:19 / Claus Gittinger"
"Modified: / 23-07-2019 / 11:06:13 / Claus Gittinger"
@@ -694,13 +696,13 @@
"find an application by name and return it (useful as arg to application)"
- application :=
+ self application:(
self
findApplication:classNameOrWindowTitle
ifMultiple:[
self error:('multiple applications named "%1"' bindWith:classNameOrWindowTitle).
nil
- ]
+ ])
! !
!ShowMeHowItWorks methodsFor:'commands - checking'!
@@ -2668,7 +2670,7 @@
previousStream := opStream.
[
- |nextCommand|
+ |nextCommand savedLanguage|
opStream := specStream.
startLabelOrNil notNil ifTrue:[
@@ -2689,16 +2691,20 @@
].
Display shiftDown ifTrue:[
+ savedLanguage := language.
+ self language:Smalltalk language.
+
(IntroShownCount ? 0) > 3 ifFalse:[
self tell:(self translate:'You pressed the SHIFT key.').
+ self tell:(self translate:'Do you want to stop the show?').
].
- self tell:(self translate:'Do you want to stop the show?').
(Dialog confirm:(resources stringWithCRs:'Stop the demonstration?'))
ifTrue:[
self tell:(self translate:'OK,').
self tell:(self translate:(self randomThankYou)).
^ AbortOperationRequest raise
].
+ self language:savedLanguage.
].
].
] ensure:[