Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Thu Sep 7 08:32:38 PDT 1995 by najork
MODULE; IMPORT Atom, AtomList, Jva, OSError, VBT; REVEAL T = Public BRANDED OBJECT OVERRIDES init := Init END; PROCEDURE AudioVBT Init (<*UNUSED*> t : T; <*UNUSED*> ch : VBT.T; <*UNUSED*> source : TEXT; <*UNUSED*> mute : BOOLEAN; <*UNUSED*> ignoreMapping: BOOLEAN; <*UNUSED*> volume : Jva.Volume): T RAISES {OSError.E} = VAR msg := AtomList.List1 (Atom.FromText ("JVideo not supported")); BEGIN RAISE OSError.E (msg); END Init; PROCEDURESetMute (<*UNUSED*> t: T; <*UNUSED*> mute: BOOLEAN) = BEGIN END SetMute; PROCEDURESetIgnoreMapping (<*UNUSED*> t: T; <*UNUSED*> ignore: BOOLEAN) = BEGIN END SetIgnoreMapping; PROCEDURESetVolume (<*UNUSED*> t: T; <*UNUSED*> volume: Jva.Volume) = BEGIN END SetVolume; BEGIN END AudioVBT.