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