#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Sat, 08 Jun 2019 17:37:34 +0200
changeset 6601 4ccac038bf9b
parent 6600 9a4a44808e01
child 6602 14e5bd6433ee
#FEATURE by cg class: CodeView changed: #explain
CodeView.st
--- a/CodeView.st	Thu Jun 06 23:22:16 2019 +0200
+++ b/CodeView.st	Sat Jun 08 17:37:34 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -322,11 +320,13 @@
     |text|
 
     explainAction notNil ifTrue:[
-	text := self selection.
-	text notNil ifTrue:[
-	    explainAction value:(self contents) value:(text asString)
-	]
+        text := self selection.
+        text notNil ifTrue:[
+            explainAction value:(self contents string) value:(text asString string)
+        ]
     ]
+
+    "Modified: / 08-06-2019 / 17:33:40 / Claus Gittinger"
 !
 
 format