Register TClockView and THeapView.

packages/fv/src/fvconsts.pas

@@ -90,14 +90,18 @@ const
   idStringCollection = 51;
   idStringList = 52;
   idStrListMaker = 52;
-  idStrCollection = 69;
+  idStrCollection = 53;
 
   { Resource Unit }
-  idMemStringList = 52;
+  idMemStringList = 54;
 
   { Tabs Unit }
   idTab = 55;
 
+  { Gadgets Unit }
+  idHeap = 58;
+  idClock = 59;
+
   { StdDlg Unit }
   idFileInputLine = 60;
   idFileCollection = 61;

packages/fv/src/gadgets.pas

@@ -143,6 +143,29 @@ TYPE
    END;
    PClockView = ^TClockView;                          { Clockview ptr }
 
+{---------------------------------------------------------------------------}
+{ Registrations records                                                     }
+{---------------------------------------------------------------------------}
+const
+  RHeapView: TStreamRec = (
+     ObjType: idHeap;
+     VmtLink: Ofs(TypeOf(THeapView)^);
+     Load:    @THeapView.Load;
+     Store:   @THeapView.Store
+  );
+
+  RClockView: TStreamRec = (
+     ObjType: idClock;
+     VmtLink: Ofs(TypeOf(TClockView)^);
+     Load:    @TClockView.Load;
+     Store:   @TClockView.Store
+  );
+
+{---------------------------------------------------------------------------}
+{ Registration procedure                                                    }
+{---------------------------------------------------------------------------}
+procedure RegisterGadgets;
+
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                              IMPLEMENTATION
 {<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
@@ -311,4 +334,13 @@ BEGIN
   WriteLine(0,0,Size.X,1,B);
 END;
 
+{---------------------------------------------------------------------------}
+{ Registration procedure                                                    }
+{---------------------------------------------------------------------------}
+procedure RegisterGadgets;
+begin
+  RegisterType(RHeapView);
+  RegisterType(RClockView);
+end;
+
 END.