[Instantobjects-cvscommit] Source/Core InstantPresentation.pas,1.7,1.8

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

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

Modified Files:
	InstantPresentation.pas 
Log Message:
Revert to Undo Buffer not accessible by Exposers descendants

Index: InstantPresentation.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantPresentation.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** InstantPresentation.pas	1 Oct 2004 16:09:13 -0000	1.7
--- InstantPresentation.pas	19 Oct 2004 07:46:38 -0000	1.8
***************
*** 27,31 ****
   * Carlo Barazzetta, Andrea Petrelli: porting Kylix
   * Carlo Barazzetta:
!  * - Exposer Undo virtual and access to UndoBuffer
   * - Exposer OnAddClassFieldDef event 
   * - Added Currency and Graphic support to exposer
--- 27,31 ----
   * Carlo Barazzetta, Andrea Petrelli: porting Kylix
   * Carlo Barazzetta:
!  * - Exposer Undo virtual and access to UndoBuffer (Removed!)
   * - Exposer OnAddClassFieldDef event 
   * - Added Currency and Graphic support to exposer
***************
*** 273,277 ****
      procedure SetOnProgress(const Value: TInstantProgressEvent);
      procedure SetSorted(Value: Boolean);
-     function GetUndoBuffer: PChar;
    protected
      { IProviderSupport }
--- 273,276 ----
***************
*** 426,430 ****
      property Objects[Index: Integer]: TObject read GetObjects;
      property TotalCount: Integer read GetTotalCount;
-     property UndoBuffer: PChar read GetUndoBuffer;
    published
      property FieldOptions: TInstantFieldOptions read FFieldOptions write SetFieldOptions default [foThorough];
--- 425,428 ----
***************
*** 640,644 ****
  procedure InstantRegisterAccessorClass(AClass: TInstantAccessorClass);
  procedure InstantUnregisterAccessorClass(AClass: TInstantAccessorClass);
- function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar;
  
  implementation
--- 638,641 ----
***************
*** 901,908 ****
  end;
  
- function ExposerGetUndoBuffer(Exposer : TInstantCustomExposer) : PChar;
- begin
-   Result := Exposer.FUndoBuffer;
- end;
  
  { TInstantAccessor }
--- 898,901 ----
***************
*** 2370,2377 ****
  end;
  
- function TInstantCustomExposer.GetUndoBuffer: PChar;
- begin
-   Result := FUndoBuffer;
- end;
  
  procedure TInstantCustomExposer.GotoActiveRecord;
--- 2363,2366 ----