instantobjects-cvscommit

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22129/Source/Core

Modified Files:
	InstantPersistence.pas 
Log Message:
TInstantCurrency clone bug fixed.

Index: InstantPersistence.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPersistence.pas,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** InstantPersistence.pas	7 Dec 2004 12:13:48 -0000	1.16
--- InstantPersistence.pas	13 Dec 2004 08:57:29 -0000	1.17
***************
*** 4706,4711 ****
  begin
    inherited;
!   if Source is TInstantFloat then
!     Value := TInstantFloat(Source).Value;
  end;
  
--- 4706,4711 ----
  begin
    inherited;
!   if Source is TInstantCurrency then
!     Value := TInstantCurrency(Source).Value;
  end;