Fixes for debugger
authorvrany
Wed, 27 Jul 2011 14:32:39 +0200
changeset 10410 0d8eaf28b7a9
parent 10409 585a43ba93c5
child 10411 c203e65b99b2
Fixes for debugger
Tools__CodeHighlightingService.st
--- a/Tools__CodeHighlightingService.st	Wed Jul 27 14:32:10 2011 +0200
+++ b/Tools__CodeHighlightingService.st	Wed Jul 27 14:32:39 2011 +0200
@@ -231,7 +231,7 @@
                     workerRunning := true.
                     codeView syntaxElements: nil.
                     codeView syntaxElementSelection: nil.
-                    cls := codeView classHolder value.
+                    cls := codeView klass.
                     (cls notNil and:[cls isObsolete]) ifTrue:[
                         cls isMeta ifTrue:[
                             cls := (Smalltalk at:cls theNonMetaclass name) class
@@ -305,9 +305,9 @@
                 ]
             ] forkAt:prio
 
-    "Modified: / 10-04-2011 / 18:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-07-2011 / 12:26:12 / Jan Vrany <jan.vrant@fit.cvut,cz>"
     "Modified: / 20-07-2011 / 15:14:14 / cg"
+    "Modified: / 27-07-2011 / 13:14:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 stopSyntaxHighlightProcess
@@ -350,10 +350,20 @@
     "Modified: / 05-07-2011 / 11:10:11 / cg"
 ! !
 
+!CodeHighlightingService methodsFor:'registering'!
+
+registerIn: aCodeView
+
+    super registerIn: aCodeView.
+    self startSyntaxHighlightProcess.
+
+    "Created: / 27-07-2011 / 13:25:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !CodeHighlightingService class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.9 2011-07-20 13:24:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.10 2011-07-27 12:32:39 vrany Exp $'
 !
 
 version_SVN