516 !

   517 

   518 literal

   519     "setup the converter to convert from a string to a literal

   520      and vice versa. Invalid symbols (i.e. empty) are converted to nil;

   521      nil values are converted to an empty string.

   522      true, false, Numbers are parsed"

   523 

   524     self

   525         getBlock:[:model |

   526                 |val s|

   527 

   528                 val := model value.

   529                 (val isLiteral and:[val notNil]) ifTrue:[

   530                     val isSymbol ifTrue:[

   531                         "print 'special' symbols as symbols i.e. as #'symbol'"

   532                         (s := val storeString) second == $' ifTrue:[

   533                             s

   534                         ] ifFalse:[

   535                             val printString

   536                         ]

   537                     ] ifFalse:[

   538                         val storeString

   539                     ].

   540                 ] ifFalse:[

   541                     ''.

   542                 ]]

   543 

   544         putBlock:

   545                 [:model :string |

   546 

   547                 |value s|

   548 

   549                 string size == 0 ifTrue:[

   550                     value := nil

   551                 ] ifFalse:[

   552                     s := string withoutSeparators.

   553                     value := Object readFrom:s onError:[

   554                         s asSymbol

   555                     ].

   556                 ].

   557                 model value:value]

   558 

   559         updateBlock: [:m :a :p | true]

   560 

   561     "Created: / 21.2.1997 / 18:58:38 / cg"

   562     "Modified: / 26.5.1998 / 15:06:06 / cg"