Class TMuggleLink

Unit

type TMuggleLink = class(TLinkObject)

============================================================================

TLinkObject

	`procedure AssignOrigin(aObject: TMuggleBaseObject);`
	`procedure AssignTarget(aObject: TMuggleBaseObject); virtual;`
	`function Connected: boolean;`
	`procedure Disconnect;`
	`function Disconnected: boolean;`
	`procedure InvalidateOrigin;`
	`procedure InvalidateTarget;`
	`function OneLineDisplayBoth: string;`
	`function OneLineDisplayRight: string;`
	`function OriginKind: integer;`
	`function TargetKind: integer;`
	`function ValidOrigin: boolean;`
	`function ValidTarget: boolean;`

procedure AssignOrigin(aObject: TMuggleBaseObject);

procedure AssignTarget(aObject: TMuggleBaseObject); virtual;

function Connected: boolean;

procedure Disconnect;

function Disconnected: boolean;

procedure InvalidateOrigin;

procedure InvalidateTarget;

function OneLineDisplayBoth: string;

function OneLineDisplayRight: string;

function OriginKind: integer;

function TargetKind: integer;

function ValidOrigin: boolean;

function ValidTarget: boolean;

	`property Origin: TMuggleObject;`
	`property Target: TMuggleObject;`

property Origin: TMuggleObject;

property Target: TMuggleObject;

Generated by PasDoc 0.8.7 on Mon 29/ Sep 2003 18:51:05