# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1563565782 -7200
# Node ID 8e37e3d91789d595cd2e3f8077100a97f49d4dc6
# Parent  d3314ff814247bb7210c2c8e52a055adb63823d5
#UI_ENHANCEMENT by cg
class: ShowMeHowItWorks
added: #randomThankYou
changed:
	#doStream:
	#showing:do: (send #realize instead of #showAtPointer)

diff -r d3314ff81424 -r 8e37e3d91789 ShowMeHowItWorks.st
--- a/ShowMeHowItWorks.st	Fri Jul 19 21:33:44 2019 +0200
+++ b/ShowMeHowItWorks.st	Fri Jul 19 21:49:42 2019 +0200
@@ -131,25 +131,30 @@
 
     <action>
     
-    |messageView talkDone|
+    |xLatedMessage messageView talkDone|
 
+    xLatedMessage := application notNil 
+                        ifTrue:[application resources string:message]
+                        ifFalse:[message].
+                        
     self assert:(operationsOrNothing isNil or:[operationsOrNothing isSequenceable]).
 
-    messageView := ActiveHelpView for:message.
+    messageView := ActiveHelpView for:xLatedMessage.
     "/ messageView shapeStyle:#cartoon.
     [
+        messageView origin:(Screen current pointerPosition).
         messageView realize.
 
         self talking ifTrue:[
             talkDone := Semaphore new.
             [
-                self tell:message.
+                self tell:xLatedMessage.
                 talkDone signal
             ] fork.
             
             "/
             "/ allow speaker some headoff
-            Delay waitForSeconds:(message size / 20).
+            Delay waitForSeconds:(xLatedMessage size / 30).
         ].
 
         operationsOrNothing notEmptyOrNil ifTrue:[
@@ -163,8 +168,7 @@
     ].
 
     "Created: / 19-07-2019 / 11:19:27 / Claus Gittinger"
-    "Modified: / 19-07-2019 / 15:59:52 / Claus Gittinger"
-    "Modified (comment): / 19-07-2019 / 18:54:43 / Claus Gittinger"
+    "Modified: / 19-07-2019 / 21:37:07 / Claus Gittinger"
 !
 
 wait:seconds
@@ -523,6 +527,36 @@
     "Created: / 19-07-2019 / 11:36:21 / Claus Gittinger"
 !
 
+randomThankYou
+    ^ #(
+        'thank you, for watching'
+        'thank you for watching'
+        'thank you'
+        'have a good day'
+        'have fun'
+        'have fun with expecco'
+        'have fun with expecco, by the way: expecco comes from the latin word: peccare, which means: "to sin"'
+        'happy hacking'
+        'happy hacking, I hope you liked what you saw'
+        'hope you liked it'
+        'see you again'
+        'please give feedback, and let us know, if you liked it'
+        'if you have any questions, please contact exept'
+        'if you need more information, please take a look at the wiki'
+    ) atRandom
+
+    "
+     OperatingSystem speak:'have fun with expecco'
+     OperatingSystem speak:'have fun with expecco, by the way: expecco comes from the latin word: peccare, which means: "to sin"'
+     OperatingSystem speak:'happy hacking, I hope you liked what you saw'
+     OperatingSystem speak:'please give feedback, and let us know, if you liked it'
+     OperatingSystem speak:'if you have any questions, please contact exept'
+     OperatingSystem speak:'if you need more information, please take a look at the wiki'
+    "
+
+    "Created: / 19-07-2019 / 21:39:18 / Claus Gittinger"
+!
+
 tell:message
     self talking ifTrue:[
         OperatingSystem speak:message.
@@ -792,17 +826,21 @@
 !
 
 doStream:specStream
-    |previousStream|
+    |previousStream resources|
 
+    resources := self class classResources.
+    
     previousStream := opStream.
     [
         opStream := specStream.
         [opStream atEnd] whileFalse:[
             self nextCommand.
             Display shiftDown ifTrue:[
-                (Dialog confirm:(self class classResources stringWithCRs:'Stop the demonstration?'))
+                self tell:(resources string:'you pressed the shift key, do you want to stop the show?').
+                (Dialog confirm:(resources stringWithCRs:'Stop the demonstration?'))
                 ifTrue:[
-                    self tell:'you stopped the show, thank you, for watching'.
+                    self tell:(resources string:'you stopped the show,').
+                    self tell:(resources string:(self randomThankYou)).
                     ^ AbortOperationRequest raise
                 ].    
             ].    
@@ -840,7 +878,7 @@
 END"
 
     "Created: / 19-07-2019 / 10:52:24 / Claus Gittinger"
-    "Modified: / 19-07-2019 / 18:56:13 / Claus Gittinger"
+    "Modified: / 19-07-2019 / 21:41:43 / Claus Gittinger"
 !
 
 nextCommand