DIRECTORY Imager, PopUpButtons, PopUpSelection2, Rope, ViewerClasses; PopUpButtonsPrivate: CEDAR DEFINITIONS = {OPEN PUS: PopUpSelection2, PopUpButtons; GuardState: TYPE = {guarded, arming, armed}; Class: TYPE = REF ClassPrivate; ClassPrivate: TYPE = RECORD [ spec: ClassSpec, menu: PUS.Menu, wDir: ROPE, choiceQuaRopes, documentation: ROPEList, helpCount, choiceCount: NAT ]; Instance: TYPE = REF InstancePrivate; InstancePrivate: TYPE = RECORD [ spec: InstanceSpec, packageGlobalFrame: POINTER, packageName: ROPE _ NIL, executingCount: INTEGER _ 0, depressed, highlight: BOOL _ FALSE, shownVS: VisibleState _ [FALSE, FALSE, FALSE], state: GuardState, Paint: PaintProc, -- for buttons created by InstantiateButtonProvided InTest: InTestProc -- for buttons created by InstantiateButtonProvided ]; }. †PopUpButtonsPrivate.mesa Last tweaked by Mike Spreitzer on September 1, 1989 3:11:40 pm PDT Bier, July 17, 1989 10:04:44 pm PDT ΚV– "cedar" style˜code™K™BK™#—K˜KšΟk œ<˜EK˜š Οnœœ œœœ ˜RK˜Kšœ œ˜,K˜Kšœœœ˜šœœœ˜K˜Kšœœ˜Kšœœ˜ Kšœ(˜(Kšœ˜K˜—K˜Kšœ œœ˜%šœœœ˜ Kšœ˜Kšœœ˜Kšœ œœ˜Kšœœ˜Kšœœœ˜#Kšœœœœ˜.Kšœ˜Kšžœ Οc3˜EKšžœ Ÿ3˜FK˜K˜—K˜——…—(