--- a/Tools__TextDiffTool.st	Fri Jul 27 21:53:54 2012 +0200
+++ b/Tools__TextDiffTool.st	Fri Jul 27 21:58:09 2012 +0200
@@ -565,33 +565,33 @@
 !TextDiffTool methodsFor:'accessing'!
 
 labelA: aString
-
     ^self labelAHolder value: aString
 
     "Modified: / 19-07-2011 / 11:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 30-08-2011 / 09:42:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:10 / cg"
 !
 
 labelB: aString
-
     ^self labelBHolder value: aString
 
     "Modified: / 19-07-2011 / 11:41:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Created: / 30-08-2011 / 09:42:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:15 / cg"
 !
 
 textA: aString
-
     ^self textAHolder value: aString
 
     "Created: / 30-08-2011 / 09:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:37 / cg"
 !
 
 textB: aString
-
     ^self textBHolder value: aString
 
     "Created: / 30-08-2011 / 09:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:41 / cg"
 !
 
 title: aString
@@ -614,12 +614,12 @@
 !
 
 classHolder: aValueHolder
-
     classHolder := aValueHolder.
     codeView notNil ifTrue:[codeView classHolder: aValueHolder].
     diffView notNil ifTrue:[diffView classHolder: aValueHolder].
 
     "Modified: / 19-07-2011 / 12:54:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:00 / cg"
 !
 
 codeAspectHolder
@@ -854,10 +854,17 @@
 !TextDiffTool methodsFor:'change & update'!
 
 codeAspect
-
     ^self codeAspectHolder value
 
     "Created: / 19-07-2011 / 19:07:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:56:52 / cg"
+!
+
+codeAspect:aSymbol
+    self codeAspectHolder value:aSymbol
+
+    "Created: / 19-07-2011 / 19:07:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 27-07-2012 / 21:56:48 / cg"
 !
 
 update:something with:aParameter from:changedObject
@@ -926,16 +933,15 @@
 !TextDiffTool methodsFor:'hooks'!
 
 postBuildCodeView:aScrollableView
-
     codeView := aScrollableView.
     codeView notNil ifTrue:[codeView languageHolder: self languageHolder].
     codeView notNil ifTrue:[codeView classHolder: self classHolder].
 
     "Created: / 19-07-2011 / 10:17:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:23 / cg"
 !
 
 postBuildDiffView:aScrollableView
-
     diffView := aScrollableView.
     diffView notNil ifTrue:[
         diffView languageHolder: self languageHolder.
@@ -949,16 +955,17 @@
     ].
 
     "Created: / 30-06-2011 / 20:55:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:21 / cg"
 ! !
 
 !TextDiffTool methodsFor:'initialization'!
 
 initialize
-
     super initialize.
     textAChanged := textBChanged := false.
 
     "Modified: / 19-07-2011 / 19:43:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:08 / cg"
 ! !
 
 !TextDiffTool methodsFor:'private'!
@@ -979,41 +986,41 @@
 !
 
 showNothing
-
     self diffSpecHolder value: #nothingSpec
 
     "Created: / 19-07-2011 / 19:34:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:28 / cg"
 !
 
 showTextOnly
-
     self diffSpecHolder value: #textViewSpec
 
     "Created: / 19-07-2011 / 11:39:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:30 / cg"
 !
 
 showVersionA
-
     self diffSpecHolder value: #versionAOnlySpec
 
     "Created: / 19-07-2011 / 10:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:33 / cg"
 !
 
 showVersionB
-
     self diffSpecHolder value: #versionBOnlySpec
 
     "Created: / 19-07-2011 / 10:22:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 27-07-2012 / 21:57:35 / cg"
 ! !
 
 !TextDiffTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.6 2011-11-18 14:05:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.7 2012-07-27 19:58:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.6 2011-11-18 14:05:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TextDiffTool.st,v 1.7 2012-07-27 19:58:09 cg Exp $'
 !
 
 version_SVN