# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1572546216 -3600
# Node ID 2355596aec0a889583ba200b0cd8c2a0c4f9abdd
# Parent  34ea88ec4dc4f13de714d197f21afe529350e3e6
#FEATURE by exept
class: ShowMeHowItWorks
added: #closeApplication
changed: #showing:saying:do:

diff -r 34ea88ec4dc4 -r 2355596aec0a ShowMeHowItWorks.st
--- a/ShowMeHowItWorks.st	Thu Oct 31 13:40:45 2019 +0100
+++ b/ShowMeHowItWorks.st	Thu Oct 31 19:23:36 2019 +0100
@@ -234,6 +234,12 @@
 
 !ShowMeHowItWorks methodsFor:'commands'!
 
+closeApplication
+    <action>
+
+    application closeRequest.
+!
+
 freezePin:pinName ofStep:stepName with:freezeString
     <action>
 
@@ -451,7 +457,16 @@
     messageView := ActiveHelpView for:xLatedMessage.
     "/ messageView shapeStyle:#cartoon.
     [
-        messageView origin:(Screen current pointerPosition + (0 @ 20)).
+        |p top left bot right w h|
+
+        w := messageView preferredExtent x.
+        h := messageView preferredExtent y.
+
+        p := Screen current pointerPosition.
+        left := p x. top := p y.
+        bot := top + h. right := left + w.
+
+        messageView origin:(left @ top).
         messageView makeFullyVisible.
         messageView realize.