--- a/Tools__CodeView2.st Fri Jul 27 23:51:55 2012 +0200
+++ b/Tools__CodeView2.st Fri Jul 27 23:52:55 2012 +0200
@@ -510,20 +510,25 @@
!
codeAspect
-
|app|
+
codeAspect ifNotNil:[^codeAspect].
- methodHolder value ifNotNil:[^#method].
+ methodHolder value ifNotNil:[^SyntaxHighlighter codeAspectMethod].
^((app := self topView application) notNil and:[app respondsTo: #codeAspect])
ifTrue:[app codeAspect]
- ifFalse:[#expression]
+ ifFalse:[(SyntaxHighlighter codeAspectExpression)]
"Modified: / 27-07-2011 / 13:05:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 27-07-2012 / 22:22:27 / cg"
!
codeAspect:aSymbol
+ self assert:( #(expression method classDefinition) includes:aSymbol ).
+
codeAspect := aSymbol.
+
+ "Modified: / 27-07-2012 / 22:32:19 / cg"
!
contents
@@ -574,6 +579,7 @@
!
mode: aSymbol
+ "is this the same as codeAspect ?"
self assert: (#(expression method) includes: aSymbol).
@@ -581,6 +587,7 @@
"Created: / 13-06-2011 / 10:50:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 15-06-2011 / 16:37:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 27-07-2012 / 22:19:49 / cg"
!
model
@@ -859,6 +866,7 @@
modeHolder
"return/create the 'modeHolder' value holder (automatically generated)"
+ "is this the codeAspect?"
modeHolder isNil ifTrue:[
modeHolder := #expression asValue.
modeHolder addDependent:self.
@@ -866,6 +874,7 @@
^ modeHolder
"Modified: / 13-06-2011 / 10:52:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 27-07-2012 / 22:22:19 / cg"
!
modeHolder:something
@@ -3353,11 +3362,11 @@
!CodeView2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.63 2012-07-19 15:12:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.64 2012-07-27 21:52:55 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.63 2012-07-19 15:12:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.64 2012-07-27 21:52:55 cg Exp $'
!
version_SVN