MODULE; IMPORT PaintOp, VBT, Rd; REVEAL T = Public BRANDED OBJECT OVERRIDES init := Init; END; <*NOWARN *> PROCEDURE StubImageRd Init (t: T; rd: Rd.T; start, length: CARDINAL; <*NOWARN *> op: PaintOp.T := PaintOp.Copy;st: VBT.ScreenType := NIL; gamma: REAL := 1.0): T = BEGIN RETURN t END Init; BEGIN END StubImageRd.