DIRECTORY ViewerSpecs, ViewerOps, Containers, Imager, ImagerBasic, MessageWindow, PressScreen, Menus, Rope, ViewerClasses; menutest: CEDAR PROGRAM IMPORTS -- Interpreter, AMBridge, -- Containers, Imager, Menus, --VFonts, -- --MenusPrivate, -- MessageWindow, PressScreen, Rope = BEGIN c: Containers.Container; earsH: INTEGER = ViewerSpecs.menuHeight; earsW: INTEGER = 16; pEars: bitmapArray _ [ 000000B, 034070B, 076174B, 076174B, 076174B, 077774B, 037760B, 007760B, 007760B, 007760B, 003700B, 001600B ]; pFlag: bitmapArray _ [ 000000B, 000000B, 152400B, 177777B, 152400B, 177777B, 100001B, 177777B, 100001B, 177777B, 100001B, 177777B ]; bitmapArray : TYPE = ARRAY [0..earsH) OF UNSPECIFIED; DoRedraw: PROC = { RETURN; -- until we convert the commander }; Mynotify: ViewerClasses.NotifyProc = { FOR current: LIST OF REF ANY _ input, current.rest UNTIL current = NIL DO SELECT current.first FROM $A12 => MessageWindow.Append["container menu 12 hit", TRUE]; $A13 => MessageWindow.Append["container menu 13 hit", TRUE]; $A14 => MessageWindow.Append["container menu 14 hit", TRUE]; $A21 => MessageWindow.Append["container menu 21 hit", TRUE]; $A22 => MessageWindow.Append["container menu 22 hit", TRUE]; $A23 => MessageWindow.Append["container menu 23 hit", TRUE]; $LEFTPRESS => { MessageWindow.Append["LEFTPRESS hit", TRUE]; TRUSTED {PressScreen.PressScreen[PressScreen.NewPressName[], leftSide];}; }; $MIDDLEPRESS => { MessageWindow.Append["MIDDLEPRESS hit", TRUE]; TRUSTED {PressScreen.PressScreen[PressScreen.NewPressName[], bothSides];}; }; $RIGHTPRESS => { MessageWindow.Append["RIGHTPRESS hit", TRUE]; TRUSTED {PressScreen.PressScreen[PressScreen.NewPressName[], rightSide];}; }; $repaint => { MessageWindow.Append["container menu 24 hit, REDRAW", TRUE]; DoRedraw[]; }; $A31 => MessageWindow.Append["container menu 31 hit", TRUE]; $A32 => MessageWindow.Append["container menu 32 hit", TRUE]; $A33 => MessageWindow.Append["container menu 33 hit", TRUE]; $A34 => MessageWindow.Append["container menu 34 hit", TRUE]; $A35 => MessageWindow.Append["container menu 35 hit", TRUE]; $A36 => MessageWindow.Append["container menu 36 hit", TRUE]; ENDCASE => ERROR; ENDLOOP; }; myDrawingRec: Menus.DrawingRec ~ [myDrawingProc, "M23M"]; myDrawingRec2: Menus.DrawingRec ~ [myDrawingProc2, "M23M"]; myUnGuardingRec: Menus.UnGuardRec ~ [myUnGuardingProc, "hello"]; OctRep: TYPE = RECORD[x: REAL, y: REAL, radius: REAL]; myUnGuardingProc: Menus.UnGuardProc = { MessageWindow.Append[Rope.Cat["unguardproc called with -->", NARROW[clientData,Rope.ROPE]]]; }; myDrawingProc: Menus.DrawingProc = { p: Imager.IntPair; IF op = query THEN RETURN[earsW]; p _ Imager.GetIntCP[ctx]; TRUSTED {Imager.MaskBits[ctx, @pEars, 1, [p.x,p.y, earsW, earsH], [p.x,p.y, earsW, earsH] ]}; }; myDrawingProc2: Menus.DrawingProc = { p: Imager.IntPair; IF op = query THEN RETURN[earsW]; p _ Imager.GetIntCP[ctx]; TRUSTED {Imager.MaskBits[ctx, @pFlag, 1, [p.x,p.y, earsW, earsH], [p.x,p.y, earsW, earsH] ]}; }; myMenuDescription: Rope.ROPE = " [ m1 breakBefore: FALSE [printScreen => [leftup => $LEFTPRESS] [allnonshifTS => $MIDDLEPRESS] [allshifTS => $RIGHTPRESS] ] [Save display: \"2--putupmenuThree\" => [ all makeActive: \"m3\" => $A12 ] ] [Sort display: threeputdownmenuThree => [ all makeInActive: \"m3\" => $A13 ] ] [DisplayErrors display: \"4, toggles menu 2 puts up menu 3\" => [ [all] makeActive: \"m3\" toggle: \"m2\" => $A14 ] ] ] [ m2 beginsActive: TRUE breakBefore: FALSE [Save => $A21] [Compile => $A22] [RepaintViewers => $repaint] [Sort => $A23] ] [ m3 beginsActive: TRUE breakBefore: FALSE breakAfter: TRUE [ThisHasLongMenuButtons => $A31] [ThisHasLongMenuButtons => $A32] [ThisHasLongMenuButtons => $A33] [ThisHasLongMenuButtons => $A34] [ThisHasLongMenuButtons => $A35] [ThisHasLongMenuButtons => $A36] ] RElabel[ Sort LetsSort ] relabel [ m2 Save MenuTwoSave ] "; menus: LIST OF Menus.Menu _ Menus.ParseDescription[myMenuDescription]; c _ Containers.Create[[name: "#4 Empty PROTECTED Container #4", guardDestroy: TRUE]]; FOR m: LIST OF Menus.Menu _ menus, m.rest UNTIL m = NIL DO Menus.RegisterMenu[m.first]; Menus.AddMenu[c, m.first.name, FALSE]; ENDLOOP; c _ Containers.Create[[name: "#5 Empty PROTECTED Container #5", guardDestroy: TRUE]]; FOR m: LIST OF Menus.Menu _ menus, m.rest UNTIL m = NIL DO Menus.AddMenu[c, m.first.name, FALSE]; ENDLOOP; c _ Containers.Create[[name: "#6 Empty PROTECTED Container #6", guardDestroy: TRUE]]; FOR m: LIST OF Menus.Menu _ menus, m.rest UNTIL m = NIL DO Menus.AddMenu[c, m.first.name, FALSE]; ENDLOOP; END. Bmenutest.mesa; Written by R. Pausch Last Edited by: Pausch, August 26, 1983 6:18 pm AMTypes, RTBasic, Interpreter, AMBridge, MenusPrivate, VFonts, temp: RTBasic.TV; myRef: REF ANY; [temp, ----, ----] _ Interpreter.Evaluate["ViewerOpsImplB.PaintEverything"]; TRUSTED {myRef _ AMBridge.SomeRefFromTV[temp]}; WITH myRef SELECT FROM r: REF PROC => { MessageWindow.Append["repainting .."]; r^[]; MessageWindow.Append["done repainting"]; }; ENDCASE => MessageWindow.Append["wrong type!!"]; [self: Viewer, input: LIST OF REF ANY] myGenerateProc: PROC [path: Imager.Path, move: PROC [ImagerBasic.Pair], line: PROC [ImagerBasic.Pair], curve: PROC [ImagerBasic.Pair, ImagerBasic.Pair, ImagerBasic.Pair]] = { MenusPrivate.Debug["inside myGenerateProc"]; path.data _ NARROW[path.data, REF OctRep]; MenusPrivate.Debug["after the narrow"]; move[[path.data.x + path.data.radius , path.data.y - path.data.radius/3.]]; line[[path.data.x + path.data.radius , path.data.y + path.data.radius/3.]]; line[[path.data.x + path.data.radius/3., path.data.y + path.data.radius]]; line[[path.data.x - path.data.radius/3., path.data.y + path.data.radius]]; line[[path.data.x - path.data.radius, path.data.y + path.data.radius/3.]]; line[[path.data.x - path.data.radius, path.data.y - path.data.radius/3.]]; line[[path.data.x - path.data.radius/3., path.data.y - path.data.radius]]; line[[path.data.x + path.data.radius/3., path.data.y - path.data.radius]]; line[[path.data.x + path.data.radius, path.data.y - path.data.radius/3.]]; MenusPrivate.Debug["after the drawing, now leaving myGenerateProc"]; }; myOldDrawingProc: Menus.DrawingProc = { edge: REAL = 3.0; myGrey1: REF CARDINAL = NEW[CARDINAL _ 001001B]; myGrey2: REF CARDINAL = NEW[CARDINAL _ 001011B]; myGrey3: REF CARDINAL = NEW[CARDINAL _ 011011B]; numBoxes: INTEGER = 15; eachWidth: REAL = 100.0 / numBoxes; p: ImagerBasic.Pair; mod: INTEGER _ 0; myPath: ImagerBasic.Path; [op: ViewerClasses.MenuEntryDisplayOp, ctx: Imager.Context _ NIL, clientData: REF ANY _ NIL] RETURNS[width: INTEGER _ 64] IF op = query THEN RETURN[100]; p _ Imager.GetCP[ctx]; Imager.MaskRectangle[ctx, [p.x, p.y, 100, ViewerSpecs.menuHeight] ]; Imager.SetColor[ctx, Imager.white]; Imager.MaskRectangle[ctx, [p.x + edge, p.y + edge, 100 - (2 * edge), ViewerSpecs.menuHeight - (2 * edge)] ]; FOR i: INTEGER _ 0, i+1 UNTIL i = numBoxes DO IF mod = 0 THEN { mod _ 1; Imager.SetColor[ctx, myGrey1]; } ELSE IF mod = 1 THEN { mod _ 2; Imager.SetColor[ctx, myGrey2]; } ELSE { mod _ 0; Imager.SetColor[ctx, myGrey3]; }; Imager.MaskRectangle[ctx, [p.x + (i*eachWidth), p.y, eachWidth, ViewerSpecs.menuHeight]]; ENDLOOP; Imager.MaskCharacters[ctx, VFonts.defaultFont, NARROW[clientData, REF TEXT]]; draw a stop sign MenusPrivate.Debug["about to call maskFill ..."]; p _ Imager.GetCP[ctx]; myPath _ ImagerBasic.Path[myGenerateProc, NEW[OctRep _ [p.x + 50.0, p.y + (0.5 * ViewerSpecs.menuHeight), (0.4 * ViewerSpecs.menuHeight) ] ] ]; Imager.MaskFill[ctx, myPath]; MenusPrivate.Debug["... after call to maskFill"]; }; -- note: this should be read from a file, but FIleIO hasn't been converted to the new world yet. menus: LIST OF Menus.Menu = LIST [ [name: "m1", beginsActive: TRUE, breakBefore: FALSE, breakAfter: TRUE, notify: Mynotify, entries: LIST[ ["printScreen", FALSE, NIL, LIST[ [LIST[leftup], LIST[$LEFTPRESS], "DOC", "", NIL, NIL, NIL], [LIST[middleup], LIST[$MIDDLEPRESS], "DOC", "", NIL, NIL, NIL], [LIST[rightup], LIST[$RIGHTPRESS], "DOC", "", NIL, NIL, NIL], ] ], ["Save", FALSE, "2--putupmenuThree", LIST[ [LIST[all], LIST[$A12], "DOC", "", LIST["m3"], NIL, NIL] ] ], ["Sort", FALSE, "3--putdownmenuThree", LIST[ [LIST[all], LIST[$A13], "DOC", "", NIL, LIST["m3"], NIL] ] ], ["DisplayErrors", FALSE, "4, toggles menu 2 puts up menu 3", LIST[ [LIST[all], LIST[$A14], "DOC ", "", LIST["m3"], NIL, LIST["m2"]], ] ] ] ], [name: "m2", beginsActive: TRUE, breakBefore: FALSE, breakAfter: TRUE, notify: Mynotify, entries: LIST[ ["Search", FALSE, NIL, LIST[ [LIST[all], LIST[$A21], "DOC", "", NIL, NIL, NIL] ] ], ["Compile", FALSE, NEW[Menus.DrawingRec _ myDrawingRec], LIST[ [LIST[all], LIST[$A22], "DOC", "", NIL, NIL, NIL] ] ], ["RepaintViewers", FALSE, NIL, LIST[ [LIST[all], LIST[$repaint], "DOC", "", NIL, NIL, NIL] ] ], ["StartSession", FALSE, --NIL-- NEW[Menus.DrawingRec _ myDrawingRec2], LIST[ [LIST[all], LIST[$A23], "DOC", "", NIL, NIL, NIL] ] ] ] ], [name: "m3", beginsActive: TRUE, breakBefore: FALSE, breakAfter: TRUE, notify: Mynotify, entries: LIST[ ["ThisHasLongMenuButtons", FALSE, NIL, LIST[ [LIST[all], LIST[$A31], "DOC", "", NIL, NIL, NIL] ] ], ["ThisHasLongMenuButtons", FALSE, NIL, LIST[ [LIST[all], LIST[$A32], "DOC", "", NIL, NIL, NIL] ] ], ["ThisHasLongMenuButtons", FALSE, NIL, LIST[ [LIST[all], LIST[$A33], "DOC", "", NIL, NIL, NIL] ] ], ["ThisHasLongMenuButtons", FALSE, NIL, LIST[ [LIST[all], LIST[$A34], "DOC", "", NIL, NIL, NIL] ] ], ["ThisHasLongMenuButtons", FALSE, NIL, LIST[ [LIST[all], LIST[$A35], "DOC", "", NIL, NIL, NIL] ] ], ["ThisHasLongMenuButtons", FALSE, NIL, LIST[ [LIST[all], LIST[$A36], "DOC", "", NIL, NIL, NIL] ] ] ] ] ] ;-- end list of type ViewerMenus ÊQ˜JšœÏc™#J™/šÏk ˜ Jšœ™Jšœ™Jšœ™Jšœ ™ Jšœ˜Jšœ ˜ Jšœ˜J˜J˜J˜Jšœ˜Jšœ˜J™ J˜Jšœ™Jšœ˜—Jš œžœžœžœœ_ž˜£J˜Jšœžœ˜)Jšœžœ˜šœ˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜—šœ˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜—J˜J˜Jš œžœžœžœžœ˜5J˜J˜šÏnœžœ˜Jšœ™Jšœ™Jšžœ!˜)J˜J˜JšœL™LJšœ/™/J˜šœ™šœ™Jšœ&™&Jšœ™Jšœ(™(Jšœ™—Jšœ2™2—J˜J˜—˜'Jšœ'™'šžœ žœžœžœžœžœžœž˜Išžœž˜Jšœ6žœ˜J™—šœ žœžœ™*Jšœžœžœžœžœžœ™:J™—šœ žœžœ™,Jšœžœžœžœžœžœ™:J™—šœžœ&žœ™BJšœžœžœžœžœžœ™BJ™—J™—J™J™—J™šœ™Jšœžœ™Jšœ žœ™Jšœžœ™Jšœ™šœ žœ™šœžœžœžœ™Jšœžœžœžœžœžœ™2J™—šœžœžœ#žœ™>Jšœžœžœžœžœžœ™3J™—šœžœžœžœ™$Jšœžœžœžœžœžœ™6J™—š œžœœžœ$žœ™LJšœžœžœžœžœžœ™2J™—J™—J™J™—šœ™Jšœžœ™Jšœ žœ™Jšœžœ™Jšœ™šœ žœ™šœžœžœžœ™,Jšœžœžœžœžœžœ™2J™—šœžœžœžœ™,Jšœžœžœžœžœžœ™3J™—šœžœžœžœ™,Jšœžœžœžœžœžœ™2J™—šœžœžœžœ™,Jšœžœžœžœžœžœ™2J™—šœžœžœžœ™,Jšœžœžœžœžœžœ™2J™—šœžœžœžœ™,Jšœžœžœžœžœžœ™2J™—J™—J™—Jšœ™"J™—J˜J˜J˜JšœNžœ˜Ušžœžœžœžœžœž˜:Jšœ˜Jšœžœ˜&Jšžœ˜J˜—JšœNžœ˜Ušžœžœžœžœžœž˜:Jšœžœ˜&Jšžœ˜J˜—JšœNžœ˜Ušžœžœžœžœžœž˜:Jšœžœ˜&Jšžœ˜—J˜Jšžœ˜J˜J˜—…—à1s