UNIT uBlackHole;
(* ******************************************************************** *)
(* K L A S S E : TBlackHole                                             *)
(* -------------------------------------------------------------------- *)
(* Version     : 0.9                                                    *)
(* Autor       : (c) 2005, Siegfried Spolwig                            *)
(* Beschreibung: Die Klasse bildet ein Schwarzes Loch ab, in dem Objekte*)
(*               spurlos verschwinden.                                  *)
(*                                                                      *)
(* Compiler    : Delphi 6                                               *)
(* Aenderungen : 0.9	18-APR-05                                       *)
(* ******************************************************************** *)

INTERFACE
// =======================================================================
uses
  uMatter,
  uItem;

type
  TBlackHole = class(TMatter)
   public
    constructor Create;  override; 
    procedure Init;
    procedure Verschlinge(it : TItem);
  end;

(* -------------------- B e s c h r e i b u n g -------------------------

Oberklasse    : TMatter
Bezugsklassen : -      import:


Methoden
--------

Create
  Auftrag: Exemplar erzeugen und init.
  vorher :
  nachher: done.

Init
  Auftrag: Anfangswerte setzen
  vorher :
  nachher: Bild gesetzt, Fuellfarbe schwarz. 

procedure Verschlinge(it : TItem)
  Auftrag: Items rückstandslos entsorgen
  vorher : -
  nachher: it ist aus dem Arbeitsspeicher entfernt.

--------------------------------------------------------------------- *)