Copyright (C) 1994, Digital Equipment Corp.
MODULE; IMPORT Image, Pixmap, Rd, Rsrc, Thread, VBTKitBundle; VAR path := Rsrc.BuildPath("$VBTKITPATH", VBTKitBundle.Get()); PROCEDURE VBTKitResources Get (name: TEXT): TEXT = <* FATAL Rsrc.NotFound, Thread.Alerted, Rd.Failure *> BEGIN WITH t = Rsrc.Get(name, path) DO IF t = NIL THEN <* ASSERT FALSE *> END; RETURN t END END Get; PROCEDUREGetPixmap (name: TEXT): Pixmap.T = <* FATAL Rsrc.NotFound, Thread.Alerted, Image.Error, Rd.Failure *> VAR rd := Rsrc.Open(name, path); BEGIN TRY RETURN Image.Scaled(Image.FromRd(rd)) FINALLY Rd.Close(rd) END; END GetPixmap; BEGIN END VBTKitResources.