# HG changeset patch # User ca # Date 948712065 -3600 # Node ID d81678f19c9df95b059bb01ab425b4e63ecb6eb1 # Parent e5842c0313523503e9167df8e102eb3f359b0951 bug fix; test not for empty, test for size == 0 diff -r e5842c031352 -r d81678f19c9d TypeConverter.st --- a/TypeConverter.st Mon Jan 24 10:41:35 2000 +0100 +++ b/TypeConverter.st Mon Jan 24 12:07:45 2000 +0100 @@ -1,8 +1,8 @@ PluggableAdaptor subclass:#TypeConverter - instanceVariableNames:'' - classVariableNames:'' - poolDictionaries:'' - category:'Interface-Support-Models' + instanceVariableNames:'' + classVariableNames:'' + poolDictionaries:'' + category:'Interface-Support-Models' ! !TypeConverter class methodsFor:'documentation'! @@ -792,7 +792,7 @@ |value s| - string isEmpty ifTrue:[ + string size == 0 ifTrue:[ value := nil ] ifFalse:[ s := string withoutSeparators. @@ -904,5 +904,5 @@ !TypeConverter class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.29 1999-11-16 16:02:36 stefan Exp $' + ^ '$Header: /cvs/stx/stx/libview2/TypeConverter.st,v 1.30 2000-01-24 11:07:45 ca Exp $' ! !