SmallSense__SmalltalkLintService.st
changeset 313 a636cee89de4
parent 311 368ff7243ade
parent 312 ce4e697a363c
child 314 6d1b45736520
--- a/SmallSense__SmalltalkLintService.st	Wed Dec 03 10:32:26 2014 +0000
+++ b/SmallSense__SmalltalkLintService.st	Thu Dec 04 09:16:13 2014 +0000
@@ -9,6 +9,8 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+'From Smalltalk/X, Version:6.2.5.0 on 03-12-2014 at 16:00:02'                   !
+
 "{ Package: 'stx:goodies/smallsense' }"
 
 "{ NameSpace: SmallSense }"
@@ -347,11 +349,14 @@
     ann := self annotationAtLine: lineNo.
     ann isNil ifTrue:[ ^ false ].
 
+    codeView topView beMaster.
+
     CriticsWindow new
         rule: ann rule;
         codeView: codeView;
         allButOpen;
-        openWindowAt: (Screen current pointerPosition - (20@20)).
+        "/ openWindowAt: (Screen current pointerPosition - (20@20)).
+        openWindowAs:#popUp at: (Screen current pointerPosition - (20@20)).
 
     ^true
 
@@ -368,7 +373,7 @@
 
     | lang annotation |
 
-    ((lang := codeView language) isNil or:[lang isSmalltalk not]) ifTrue:[ ^ self ].
+    "/ ((lang := codeView language) isNil or:[lang isSmalltalk not]) ifTrue:[ ^ self ].
 
     annotation :=  self annotationAtLine: lineNo.
     annotation notNil ifTrue:[