#FEATURE by exept draft
authorClaus Gittinger <cg@exept.de>
Fri, 21 Feb 2020 19:17:27 +0100
changeset 3862 bbe57509fc55
parent 3861 11efde58092f
child 3863 e13a7d334bb1
#FEATURE by exept class: ShowMeHowItWorks changed: #application: #doStream:from: #intro #useApplication:
ShowMeHowItWorks.st
--- 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:[