--- 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:[