Tools__CodeHighlightingService.st
changeset 13073 ff2d1aceaffd
parent 13064 47876055a784
child 13102 2b0609cfe5f9
child 13178 c9bf900fe729
--- a/Tools__CodeHighlightingService.st	Sun Jun 30 09:12:03 2013 +0200
+++ b/Tools__CodeHighlightingService.st	Sun Jun 30 10:08:39 2013 +0200
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
-	      All Rights Reserved
+              All Rights Reserved
 
 Permission is hereby granted, free of charge, to any person
 obtaining a copy of this software and associated documentation
@@ -28,10 +28,10 @@
 "{ NameSpace: Tools }"
 
 BackgroundSourceProcessingService subclass:#CodeHighlightingService
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Interface-CodeView'
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Interface-CodeView'
 !
 
 !CodeHighlightingService class methodsFor:'documentation'!
@@ -39,7 +39,7 @@
 copyright
 "
  COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
-	      All Rights Reserved
+              All Rights Reserved
 
 Permission is hereby granted, free of charge, to any person
 obtaining a copy of this software and associated documentation
@@ -197,7 +197,7 @@
         oldCodeList := textView list copy.
         "textView" modified ifFalse:[
             oldCodeList isNil ifFalse:[
-                oldCode := oldCodeList asStringWithoutEmphasis.
+                oldCode := oldCodeList asStringCollection asStringWithoutEmphasis.
                 "textView" modified ifFalse:[
                     Screen currentScreenQuerySignal answer:codeView device
                     do:[
@@ -344,14 +344,14 @@
 !CodeHighlightingService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.38 2013-06-28 08:35:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.39 2013-06-30 08:08:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.38 2013-06-28 08:35:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeHighlightingService.st,v 1.39 2013-06-30 08:08:39 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__CodeHighlightingService.st,v 1.38 2013-06-28 08:35:34 cg Exp $'
+    ^ '$Id: Tools__CodeHighlightingService.st,v 1.39 2013-06-30 08:08:39 cg Exp $'
 ! !