#FEATURE by cg
class: ContextInspectorView
comment/format in: #valueForSpecialLine:
changed: #valueAtLine:
--- a/ContextInspectorView.st Sat Jan 26 10:58:51 2019 +0100
+++ b/ContextInspectorView.st Sat Jan 26 16:59:01 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -673,16 +675,18 @@
(l startsWith:'>>') ifTrue:[
"/ a comment (hack)
- ^ self valueForCommentLine:(self listEntryAt:lineNr)
+ ^ self valueForCommentLine:l
].
(l startsWith:$-) ifTrue:[
(l ~= '-') ifTrue:[
- ^ self valueForSpecialLine:(self listEntryAt:lineNr)
+ (l startsWith:'- ') ifTrue:[^ nil].
+ ^ self valueForSpecialLine:l
].
].
^ self valueAtIndex:(varIdx - 1). "/ for the special var
"Modified: / 16-05-2012 / 17:55:57 / cg"
+ "Modified: / 26-01-2019 / 16:56:58 / Claus Gittinger"
!
valueForCommentLine:line
@@ -708,7 +712,8 @@
self error:'unknown special line'.
- "Created: / 31.10.2001 / 09:17:45 / cg"
+ "Created: / 31-10-2001 / 09:17:45 / cg"
+ "Modified: / 26-01-2019 / 16:52:25 / Claus Gittinger"
! !
!ContextInspectorView methodsFor:'user actions'!