#FEATURE by exept
class: ShowMeHowItWorks
added: #closeApplication
changed: #showing:saying:do:
--- 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.