#FEATURE by exept draft
authorClaus Gittinger <cg@exept.de>
Thu, 31 Oct 2019 19:23:36 +0100
changeset 3804 2355596aec0a
parent 3803 34ea88ec4dc4
child 3805 fff73fd2a61a
#FEATURE by exept class: ShowMeHowItWorks added: #closeApplication changed: #showing:saying:do:
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.