class: Tools::LintService cvs_MAIN
authorClaus Gittinger <cg@exept.de>
Sat, 02 Mar 2019 13:10:53 +0100
branchcvs_MAIN
changeset 1083 ca84e06c117a
parent 1082 e6639a9f8efe
child 1085 a22655fd60b5
class: Tools::LintService changed: #showInfoWindowForLine:
extensions.st
--- a/extensions.st	Sat Mar 02 12:51:42 2019 +0100
+++ b/extensions.st	Sat Mar 02 13:10:53 2019 +0100
@@ -513,21 +513,23 @@
 !Tools::LintService methodsFor:'private'!
 
 showInfoWindowForLine: lineNo
-    | ann |
+    | ann infoApp |
 
     ann := self annotationAtLine: lineNo.
     ann isNil ifTrue:[ ^ false ].
 
-    SmallSense::CriticsWindow new
-	rule: ann rule;
-	codeView: codeView;
-	allButOpen;
-	openWindowAt: (Screen current pointerPosition - (20@20)).
+    infoApp := SmallSense::CriticsWindow new
+        rule: ann rule;
+        codeView: codeView;
+        allButOpen;
+        openWindowAt: (Screen current pointerPosition - (20@20)).
 
+    SmallSense::CriticsWindow rememberLastExtentOf:infoApp window.
     ^true
 
     "Created: / 30-01-2012 / 21:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 03-12-2014 / 10:00:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-03-2019 / 13:09:34 / Claus Gittinger"
 ! !
 
 !Tools::NavigationState methodsFor:'aspects - SmallSense'!