instantobjects-cvscommit

[David T. <dav...@us...>]

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

Modified Files:
	InstantAttributeEditor.pas 
Log Message:
Fix for bug [1355946] -  AV in Model Explorer for External Reference attributes

Index: InstantAttributeEditor.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantAttributeEditor.pas,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** InstantAttributeEditor.pas	8 Nov 2005 08:49:02 -0000	1.27
--- InstantAttributeEditor.pas	15 Nov 2005 22:29:11 -0000	1.28
***************
*** 634,642 ****
  end;
  
! procedure TInstantAttributeEditorForm.StorageNameEditChange(
!   Sender: TObject);
  begin
    inherited;
!   SubjectExposer.AssignFieldValue(StorageNameEdit.Field, StorageNameEdit.Text);
    UpdateControls;
  end;
--- 634,642 ----
  end;
  
! procedure TInstantAttributeEditorForm.StorageNameEditChange(Sender: TObject);
  begin
    inherited;
!   if Assigned(StorageNameEdit.DataSource) then 
!     SubjectExposer.AssignFieldValue(StorageNameEdit.Field, StorageNameEdit.Text);
    UpdateControls;
  end;