DIRECTORY Icons, Menus, ViewerClasses;Abutters: CEDAR DEFINITIONS = {Viewer: TYPE = ViewerClasses.Viewer;AbutterClass: TYPE = REF AbutterClassPrivate;AbutterClassPrivate: TYPE = RECORD [destroy: ViewerClasses.DestroyProc _ NIL,copy: ViewerClasses.CopyProc _ NIL,set: ViewerClasses.SetProc _ NIL,get: ViewerClasses.GetProc _ NIL,init: ViewerClasses.InitProc _ NIL,save: ViewerClasses.SaveProc _ NIL,caption: ViewerClasses.CaptionProc _ NIL,menu: Menus.Menu _ NIL,icon: Icons.IconFlavor _ document];RegisterClass: PROC [viewerFlavor: ATOM, class: AbutterClassPrivate] RETURNS [same: ATOM];GetClass: PROC [viewerFlavor: ATOM] RETURNS [class: AbutterClass];vanilla: ATOM;Abutter: TYPE = REF AbutterRep;AbutterRep: TYPE;Create: PROC [viewerFlavor: ATOM, info: ViewerClasses.ViewerRec _ [], paint: BOOL _ TRUE] RETURNS [abutter: Abutter];QuaViewer: PROC [Abutter] RETURNS [Viewer];QuaAbutter: PROC [Viewer] RETURNS [Abutter];ViewerIsAbutter: PROC [Viewer] RETURNS [BOOL];IsAbutter: PROC [REF ANY] RETURNS [BOOL];Narrow: PROC [REF ANY] RETURNS [Abutter];GetClientData: PROC [Abutter] RETURNS [REF ANY];GetClientDataFromViewer: PROC [Viewer--which is an Abutter--] RETURNS [REF ANY];ScrollOffset: PROC [Abutter] RETURNS [offTop: INTEGER];Edge: TYPE = {left, right, top, bottom};SeriesElement: TYPE = RECORD [viewer: Viewer, spaceBefore: INTEGER _ 0];Parallel: TYPE = LIST OF Series;Series: TYPE = RECORD [rigid: LIST OF SeriesElement,end: SELECT kind: * FROMnone => [spaceAfter: INTEGER _ 0, setParentSize: BOOL _ FALSE],parallel => [p: Parallel],stretch => [se: SeriesElement],ENDCASE];Rules: TYPE = ARRAY Edge OF Series;SetLayout: PROC [a: Abutter, rules: Rules, paint: BOOL _ TRUE];Abut: PROC [a: Abutter, child1, child2: Viewer, edge: Edge, space: INTEGER _ 0, stretch: BOOL _ FALSE, paint: BOOL _ TRUE];parentSide: Viewer;	--pass this as child1 to abut against a side of the parent, rather than another Viewer.SetSizeBy: PROC [a: Abutter, child: Viewer, edge: Edge, space: INTEGER _ 0, paint: BOOL _ TRUE];}.  L  Abutters.MesaLast Edited by: Spreitzer, April 25, 1986 4:44:00 pm PSTReturns NIL if no such class.The flavor of a standard, bland, common, ordinary, garden-variety AbuuterClass.  It differs from [] only in having a non-NIL save, which enumerates the children (but not grandchildren), calling their save's, if any.Like a Container, only able to do more comprehensive alignment of children.CoordSys = top.Put client data in info.data; it won't stay there.Returns the amount of the abutter scrolled off the top.When child=parentSide, this simply sets a dimension to be space. Э╩n  Ц"cedar" styleШ codeЩJЩ8ЧKШ KЪ╧k	ЬШ&KШ Ъ╨bxЬЭЬЭЬШKШ KЪЬЭЬШ$KШ KЪЬЭЬЭЬШ-ЪЬЭЬЭЬШ$JЪЬ%ЭЬШ)JЪЬЭЬШ#JЪЬЭЬШ!JЪЬЭЬШ!JЪЬЭЬШ#JЪЬЭЬШ#JЪЬ%ЭЬШ)JЪЬЭЬШJЪЬ!Ш!KШЧKШ KЪ
╧nЬЭЬЭЬЭЬЭЬШZKШ ЪЯЬЭЬЭЬЭЬШBJЩЧJШ ЪЬ	ЭЬШKЩ╫ЧKШ ЪЬ	ЭЬЭЬШKЩKKЩЧKЪЬЭЬШKШ ЪЯЬЭЬЭЬ-ЭЬЭЬЭЬШuKЩ2ЧKШ KЪЯ	ЬЭЬЭЬ
Ш+KЪЯ
ЬЭЬ
ЭЬШ,KЪЯЬЭЬ
ЭЬЭЬШ.KШ KЪЯ	ЬЭЬЭЬЭЬЭЬЭЬШ)KЪ
ЯЬЭЬЭЬЭЬЭЬШ)KШ KЪ
ЯЬЭЬЭЬЭЬЭЬШ0KЪЯЬЭЬ╧cЬЭЬЭЬЭЬШPKШ ЪЯЬЭЬЭЬ
ЭЬШ7KЪа7Щ7ЧKШ KЪЬЭЬШ(KШ KЪЬЭЬЭЬЭЬШHKЪЬ
ЭЬЭЬЭЬШ ЪЬЭЬЭЬШKЪЬЭЬЭЬШЪЬЭЬ	ЭШKЪЬЭЬЭЬЭЬШ?KЪЬШKЪЬШKЪЭШЧKЪЬШЧKШ KЪЬЭЬЭЬЭЬШ#KШ KЪЯ	ЬЭЬ#ЭЬЭЬШ?KШ ЪЯЬЭЬ9ЭЬЭЬЭЬ	ЭЬЭЬШ{KЪЬаWШkЧKШ Ъ
Я	ЬЭЬ0ЭЬЭЬЭЬШ`KЪЬ╧eЬ%бЬЩ@ЧKШ KШЧЧ ЕЧ      ╥  