#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Sat, 26 Jan 2019 16:59:01 +0100
changeset 18562 e755c583b8ef
parent 18561 f52896fd831a
child 18563 fe2a123360be
#FEATURE by cg class: ContextInspectorView comment/format in: #valueForSpecialLine: changed: #valueAtLine:
ContextInspectorView.st
--- 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'!