videovbt/src/WIN32/AudioVBT.m3


Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
                                                                           
       Created on Thu Sep  7 08:32:38 PDT 1995 by najork                   

MODULE AudioVBT;

IMPORT Atom, AtomList, Jva, OSError, VBT;

REVEAL T = Public BRANDED OBJECT OVERRIDES init := Init END;

PROCEDURE 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;

PROCEDURE SetMute (<*UNUSED*> t: T; <*UNUSED*> mute: BOOLEAN) =
  BEGIN
  END SetMute;

PROCEDURE SetIgnoreMapping (<*UNUSED*> t: T; <*UNUSED*> ignore: BOOLEAN) =
  BEGIN
  END SetIgnoreMapping;

PROCEDURE SetVolume (<*UNUSED*> t: T; <*UNUSED*> volume: Jva.Volume) =
  BEGIN
  END SetVolume;

BEGIN
END AudioVBT.

interface Jva is in: