--- a/SmallSense__SmalltalkLintService.st Mon Sep 16 23:20:08 2013 +0100
+++ b/SmallSense__SmalltalkLintService.st Tue Sep 17 15:29:24 2013 +0100
@@ -36,33 +36,6 @@
"
! !
-!SmalltalkLintService class methodsFor:'initialization'!
-
-initialize
-
- "
- | map |
- map := Screen current keyboardMap.
- map bindValue:#CodeCompletion to: #'Ctrl '.
- map bindValue:#CodeCompletion to: #'Ctrlspace'.
- "
-
- Smalltalk isInitialized ifTrue:[
- Smalltalk addStartBlock:[
- Screen current notNil ifTrue:[
- | map |
- map := Screen current keyboardMap.
- (map keyAtValue:#CodeCompletion) isNil ifTrue:[
- map bindValue:#CodeCompletion to: #'Ctrl '.
- map bindValue:#CodeCompletion to: #'Ctrlspace'.
- ].
- ]
- ]
- ]
-
- "Modified: / 15-08-2013 / 15:19:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
!SmalltalkLintService class methodsFor:'accessing'!
debugging
@@ -106,13 +79,10 @@
must be redefined to return true in subclasses (but each class must do it only
for itself - not for subclasses"
- ^ self == SmalltalkLintService
- "/ Hack for eXept CVS libtool - I'll include modified version
- "/ in SmallSense. sigh.
- and:[Tools::LintHighlighter canUnderstand: #annotations]
+ ^ self == SmalltalkLintService
"Created: / 24-07-2013 / 11:35:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 02-09-2013 / 13:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 17-09-2013 / 15:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!SmalltalkLintService class methodsFor:'testing'!
@@ -243,9 +213,10 @@
super initialize.
- highlighter := Tools::LintHighlighter new.
+ highlighter := SmalltalkLintHighlighter new.
"Created: / 05-08-2011 / 11:53:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 17-09-2013 / 15:22:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!SmalltalkLintService methodsFor:'private'!
@@ -417,5 +388,3 @@
^ '$Id: SmallSenseService.st 8039 2012-08-13 22:12:37Z vranyj1 $'
! !
-
-SmalltalkLintService initialize!