checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 26 May 1998 16:10:29 +0200
changeset 946 94682a54c197
parent 945 55006a8d9727
child 947 a5325410e4fd
checkin from browser
TypeConv.st
TypeConverter.st
--- a/TypeConv.st	Fri May 22 20:44:37 1998 +0200
+++ b/TypeConv.st	Tue May 26 16:10:29 1998 +0200
@@ -570,7 +570,7 @@
                 (symbolValue := model value) isSymbol ifFalse:[
                     String new
                 ] ifTrue:[
-                    symbolValue storeString
+                    symbolValue printString. "/ storeString
                 ]]
 
         putBlock:
@@ -595,7 +595,7 @@
         updateBlock: [:m :a :p | true]
 
     "Created: / 21.2.1997 / 18:58:38 / cg"
-    "Modified: / 29.10.1997 / 15:49:25 / cg"
+    "Modified: / 26.5.1998 / 15:06:06 / cg"
 !
 
 timeOrNil
@@ -665,5 +665,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/TypeConv.st,v 1.13 1998-05-22 13:03:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/TypeConv.st,v 1.14 1998-05-26 14:10:29 cg Exp $'
 ! !
--- a/TypeConverter.st	Fri May 22 20:44:37 1998 +0200
+++ b/TypeConverter.st	Tue May 26 16:10:29 1998 +0200
@@ -570,7 +570,7 @@
                 (symbolValue := model value) isSymbol ifFalse:[
                     String new
                 ] ifTrue:[
-                    symbolValue storeString
+                    symbolValue printString. "/ storeString
                 ]]
 
         putBlock:
@@ -595,7 +595,7 @@
         updateBlock: [:m :a :p | true]
 
     "Created: / 21.2.1997 / 18:58:38 / cg"
-    "Modified: / 29.10.1997 / 15:49:25 / cg"
+    "Modified: / 26.5.1998 / 15:06:06 / cg"
 !
 
 timeOrNil
@@ -665,5 +665,5 @@
 !TypeConverter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.13 1998-05-22 13:03:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.14 1998-05-26 14:10:29 cg Exp $'
 ! !