-- VMenus.mesa -- Russ Atkinson, September 13, 1982 1:18 pm -- this is a simple vertical menus package for the CedarViewers world DIRECTORY Buttons USING [ButtonProc], Rope USING [ROPE], ViewerClasses USING [Viewer]; VMenus: CEDAR DEFINITIONS = BEGIN OPEN Rope; Viewer: TYPE = ViewerClasses.Viewer; ViewerList: TYPE = LIST OF Viewer; VButtonList: TYPE = LIST OF VButtonRec; VButtonRec: TYPE = RECORD [proc: Buttons.ButtonProc _ NIL, name: ROPE _ NIL, fork: BOOLEAN _ TRUE, data: REF _ NIL ]; Create: PROC [name: ROPE, buttons: VButtonList _ NIL, parent: Viewer _ NIL, x,y: INTEGER _ 0] RETURNS [ViewerList]; -- returns the list of viewers that make up our vertical menu -- if parent = NIL, a container will be created -- otherwise a label is placed at the head of the list -- x and y may default without harm (I think) GetDimensions: PROC [list: ViewerList] RETURNS [xmin,ymin,xmax,ymax: INTEGER]; -- returns the dimensions of the vertical menu given by the list -- dimensions include border dots END. ส๊– "Mesa" style˜IprocšZฯc<œFœฯk œ žœžœžœžœžœž œžœžœžœ'žœžœžœžœžœžœžœžœ!žœ žœžœ žœžœ žœžœ ฯnœžœžœžœžœžœ žœ>œ0œ7œ.œŸ œžœžœžœAœ"œžœ˜า—…—TD