Copyright (C) 1994, Digital Equipment Corp. MODULE; IMPORT PaintOp; IMPORT StubImages AS Images; REVEAL T = Public BRANDED OBJECT OVERRIDES init := Init; put := Put; get := Get; END; <*NOWARN*> PROCEDURE StubImageVBT Init (v: T; pm: Images.T; bg: PaintOp.T): T = BEGIN RETURN v END Init; <*NOWARN*> PROCEDUREPut (v: T; pm: Images.T; bg: PaintOp.T) = BEGIN END Put; <*NOWARN*> PROCEDUREGet (v: T): Images.T = BEGIN RETURN NIL END Get; BEGIN END StubImageVBT.