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