DIRECTORY
ImagerSample,
List,
PropList,
SF,
SlatePrivateTypes,
Slate,
XlBitmap;

SlatePagesImpl: CEDAR MONITOR
IMPORTS ImagerSample, List, PropList, SlatePrivateTypes, Slate, XlBitmap
EXPORTS Slate, SlatePrivateTypes ~
BEGIN OPEN Slate;

SessionPrivateRec: PUBLIC TYPE = SlatePrivateTypes.SessionPrivateRec;
InstancePrivateRec: PUBLIC TYPE = SlatePrivateTypes.InstancePrivateRec;

AnyPage: PROC [session: Session] RETURNS [page: Page м NIL] = {
sessionPrivate: REF SessionPrivateRec м session.private;
list: List.LORA м sessionPrivate.pageList;
IF list#NIL THEN RETURN [NARROW[list.first]];
};

CurrentListOfPages: PUBLIC PROC [sesion: Session] RETURNS [list: LIST OF Page м NIL] = {
tail: LIST OF Page м NIL;
Each: PageProc = {
l: LIST OF Page м LIST[page];
IF tail=NIL THEN list м l ELSE tail.rest м l;
tail м l
};
[] м EnumeratePages[sesion, Each]
};

EnumeratePages: PUBLIC PROC [session: Session, eachPage: PageProc, clientData: REF м NIL] RETURNS [quit: BOOL м FALSE] = {
Each: PROC [p: REF ANY] RETURNS [quit: BOOL] = {
quit м eachPage[page: NARROW[p, Page], clientData: clientData].quit
};
sessionPrivate: REF SessionPrivateRec м session.private;
list: List.LORA м sessionPrivate.pageList;
WHILE list # NIL DO 
IF Each[list.first].quit THEN RETURN; 
list м list.rest; 
ENDLOOP;
};

defaultPageSize: PUBLIC <<SlatePrivateTypes>> SF.Vec м [s: 480, f: 640];

NewPage: PUBLIC PROC [session: Session, sz: SF.Vec м [0, 0], initial: ImagerSample.RasterSampleMap, properties: PropList.List м NIL, bpp: INT м 0] RETURNS [page: Page] = {
bm: XlBitmap.Bitmap; contents: ImagerSample.SampleMap;
IF sz.f<=0 OR sz.s<=0 THEN sz м SlatePrivateTypes.defaultPageSize; 
IF bpp<=0 THEN bpp м 1; 
bm м XlBitmap.Create[sz, bpp];
contents м XlBitmap.GetSM[bm];
ImagerSample.Clear[contents];
IF initial#NIL THEN ImagerSample.Transfer[dst: contents, src: initial];
page м NEW[PageRec м [
session: session,
activeArea: bm,
properties: PropList.NewCopy[properties]
]];
CallGlobalEvent[instance: NIL, session: NIL, event: $NewPage, callData: page];
IF session#NIL THEN {
sessionPrivate: REF SessionPrivateRec м session.private;
Monitored: ENTRY PROC [] = {
sessionPrivate.pageList м List.Append[sessionPrivate.pageList, LIST[page]];
};
IF sessionPrivate=NIL THEN ERROR;
Monitored[];
CallGlobalEvent[instance: NIL, session: session, event: $AddPage0, callData: page];
CallGlobalForAllInstancesOfSession[session: session, event: $AddPage, callData: page];
};
};

RemovePage: PUBLIC PROC [page: Page] = {
session: Session м page.session;
IF session#NIL THEN {
sessionPrivate: REF SessionPrivateRec м session.private;
oldActivePage: Page м ActivePage[session];
Monitored: ENTRY PROC [] = INLINE {
page.session м NIL;
sessionPrivate.pageList м List.Remove[page, sessionPrivate.pageList];
IF session.activePage=page THEN session.activePage м NIL;
};
IF sessionPrivate=NIL THEN ERROR;
Monitored[];
CallGlobalEvent[instance: NIL, session: session, event: $RemovePage0, callData: page];
CallGlobalForAllInstancesOfSession[session: session, event: $RemovePage, callData: page];
IF oldActivePage=page AND session.activePage=NIL THEN {
page: Page м AnyPage[session];
IF page#NIL THEN ActivatePage[page];
};
};
CallGlobalEvent[instance: NIL, session: NIL, event: $DestroyPage, callData: page];
};

ActivePage: PUBLIC PROC [session: Session] RETURNS [page: Page] = {
RETURN [session.activePage]
};
ActivatePage: PUBLIC PROC [page: Page] = {
session: Session ~ page.session;
IF session=NIL THEN ERROR;
IF page#ActivePage[session] THEN {
oldActivePage: Page м NIL;
Monitored: ENTRY PROC [] = INLINE { --yep, we are protecting the structure, not the pixels
oldActivePage м session.activePage;
session.activePage м page;
};
Monitored[];
CallGlobalEvent[instance: NIL, session: session, event: $DeActivatePage0, callData: oldActivePage];
CallGlobalForAllInstancesOfSession[session: session, event: $DeActivatePage, callData: oldActivePage];
CallGlobalEvent[instance: NIL, session: session, event: $ActivatePage0, callData: page];
CallGlobalForAllInstancesOfSession[session: session, event: $ActivatePage, callData: page];
};
};

END.


    ╝  
SlatePagesImpl.mesa
Copyright ╙ 1992, 1993 by Xerox Corporation.  All rights reserved.
Christian Jacobi, December 28, 1992 3:17 pm PST
Christian Jacobi, March 6, 1993 4:21 pm PST


Э╩н  ХNewlineDelimiter
Щ ЩJЩBJЩ/JЩ+JЩ ЧcodeЪ╧k	Ш	KШKШKШ	KШKШKШKШ	ЧJШ Ъ╧nЬЭЬЭШJЪЭЬAШHJЪЭЬШ"ЧKЪЭЬЭЬШKШ KЪЬЭЬЭЬ'ШEKЪЬЭЬЭЬ(ШGKШ ЪЮЬЭЬЭЬЭЬШ?KЪЬЭЬ%Ш8KЪЬЭЬШ*KЪ
ЭЬЭЬЭЬЭЬЭЬШ-KШKШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШXKЪЬЭЬЭЬЭЬШЪЮЬШKЪЬЭЬЭЬЭЬШKЪЭЬЭЬЭЬ
ЭЬШ-KШKШЧKШ!KШKШ ЧЪЮЬЭЬЭЬ4ЭЬЭЬЭЬЭЬЭЬШzЪЮЬЭЬЭЬЭЬЭЬЭЬШ0KЪЬЭЬ'ШCKШЧKЪЬЭЬ%Ш8KЪЬЭЬШ*ЪЭЬЭЬЭЬШKЪЭЬЭЬЭЬШ&KШKЪЭЬШЧKШЧKШ KЪЬЭЬЭЬШHKШ ЪЮЬЭЬЭЬЭЬRЭЬЭЬЭЬШлKШ6KЪЭЬ	ЭЬ	ЭЬ)ШCKЪЭЬЭЬ
ШKШKШKШKЪЭЬ	ЭЬЭЬ4ШGЪЬЭЬШKШKШKШ(KШЧKЪЬЭЬЭЬ#ШNЪЭЬ	ЭЬЭЬШKЪЬЭЬ%Ш8ЪЮ	ЬЭЬЭЬШKЪЬ?ЭЬШKKШЧKЪЭЬЭЬЭЬЭЬШ!KШKЪЬЭЬ6ШSKШVKШЧKШЧKШ ЪЮ
ЬЭЬЭЬШ(KШ ЪЭЬ	ЭЬЭЬШKЪЬЭЬ%Ш8KШ*ЪЮ	ЬЭЬЭЬЭЬШ#KЪЬЭЬШKШEKЪЭЬЭЬЭЬШ9KШЧKЪЭЬЭЬЭЬЭЬШ!KШKЪЬЭЬ9ШVKШYЪЭЬЭЬЭЬЭЬШ7KШKЪЭЬЭЬЭЬШ$KШЧKШЧKЪЬЭЬЭЬ'ШRKШKШ ЧЪЮ
ЬЭЬЭЬШCKЪЭЬШKШKЩ ЧЪЮЬЭЬЭЬШ*KШ KЪЭЬ	ЭЬЭЬЭЬШЪЭЬЭЬШ"KЪЬЭЬШЪ	Ю	ЬЭЬЭЬЭЬ╧c6ШZKШ#KШKШЧKШKЪЬЭЬFШcKШfKЪЬЭЬ;ШXKШ[KШЧKШKШ ЧKЪЭЬШKШ KШ Ч ЕЧ      k  