
DIRECTORY 
Xl,
XTk,
XTkCollections,
XTkContainers,
XTkFriends;

XTkContainersImpl: CEDAR MONITOR 
IMPORTS XTk, XTkCollections, XTkFriends
EXPORTS XTkContainers =
BEGIN OPEN XTkContainers; 

exceptWidth: XTk.GeometryRequest = [TRUE, TRUE, FALSE, TRUE, TRUE];
exceptHeight: XTk.GeometryRequest = [TRUE, TRUE, TRUE, FALSE, TRUE];

yStack: PUBLIC XTk.Class Ź XTkFriends.CreateClass[[super: XTkCollections.collectionClass, key: $yStack, removeChildLR: XTkCollections.RemoveChildAndSqueezeLR, preferredSizeLR: YPreferredSizeLR, configureLR: YConfigureLR]];
xStack: PUBLIC XTk.Class Ź XTkFriends.CreateClass[[super: XTkCollections.collectionClass, key: $xStack, removeChildLR: XTkCollections.RemoveChildAndSqueezeLR, preferredSizeLR: XPreferredSizeLR, configureLR: XConfigureLR]];
container: PUBLIC XTk.Class Ź XTkFriends.CreateClass[[super: XTkCollections.collectionClass, key: $container, removeChildLR: XTkCollections.RemoveChildAndSqueezeLR, preferredSizeLR: ContPreferredSizeLR, configureLR: ContConfigureLR]];

CreateContainer: PUBLIC PROC [widgetSpec: WidgetSpec Ź [], children: LIST OF Widget Ź NIL] RETURNS [widget: Widget] = {
widgetSpec.class Ź XTkFriends.InitClassField[widgetSpec.class, container];
widget Ź XTkCollections.Create[widgetSpec, children];
};

RemoveChild: PUBLIC PROC [container: ContainerWidget, child: Widget, destroyChild: BOOL Ź TRUE, startReconfigure: BOOL Ź TRUE] = {
XTkCollections.RemoveChild[container, child, startReconfigure, ~destroyChild]
};

AppendChild: PUBLIC PROC [container: Widget, child: Widget, startReconfigure: BOOL Ź TRUE] = {
XTkCollections.AddChild[container, child, NIL, startReconfigure]
};

AppendChildren: PUBLIC PROC [container: Widget, children: LIST OF Widget, startReconfigure: BOOL] = {
XTkCollections.AddChildren[container, children, startReconfigure];
};

SetForce: PUBLIC PROC [container: ContainerWidget, force: INT] = {
ip: XTkCollections.CollectionInstPart ~ XTkCollections.GetCollectionInstPart[container];
IF force#-1 THEN ip.reserved Ź NEW[INTŹforce] ELSE ip.reserved Ź NIL;
};

CreateXStack: PUBLIC PROC [widgetSpec: WidgetSpec, stack: LIST OF Widget Ź NIL, force: INT Ź -1] RETURNS [widget: Widget] = {
widgetSpec.class Ź XTkFriends.InitClassField[widgetSpec.class, xStack];
widget Ź XTkCollections.Create[widgetSpec, stack];
SetForce[widget, force];
};

CreateYStack: PUBLIC PROC [widgetSpec: WidgetSpec, stack: LIST OF Widget Ź NIL, force: INT Ź -1] RETURNS [widget: Widget] = {
widgetSpec.class Ź XTkFriends.InitClassField[widgetSpec.class, yStack];
widget Ź XTkCollections.Create[widgetSpec, stack];
SetForce[widget, force];
};

CreateAbut: PUBLIC PROC [widgetSpec: WidgetSpec Ź [], children: LIST OF Widget Ź NIL, orient: Orientation, force: INT Ź -1] RETURNS [widget: ContainerWidget] = {
SELECT orient FROM
inX => {widgetSpec.class Ź XTkFriends.InitClassField[widgetSpec.class, xStack]};
inY => {widgetSpec.class Ź XTkFriends.InitClassField[widgetSpec.class, yStack]};
ENDCASE => ERROR;
widget Ź XTkCollections.Create[widgetSpec, children];
SetForce[widget, force];
};

DefineBorders: PROC [widget: XTk.Widget] = {
EachChild: XTkCollections.EachChildProc = {
IF child.actual.borderWidth<0 THEN 
child.actual.borderWidth Ź widget.actual.borderWidth;
};
IF widget.actual.borderWidth<0 THEN {
IF widget.parent#NIL THEN 
widget.actual.borderWidth Ź widget.parent.actual.borderWidth;
IF widget.actual.borderWidth<0 THEN 
widget.actual.borderWidth Ź 0;
}; 
XTkCollections.BasicEnumerateChildren[widget, EachChild];
};

GetForce: PROC [widget: Widget] RETURNS [INTŹ-1] = {
ip: XTkCollections.CollectionInstPart ~ XTkCollections.GetCollectionInstPart[widget];
WITH ip.reserved SELECT FROM
ri: REF INT => RETURN [ri­];
ENDCASE => {};
};

AddPos: PROC [gr: XTk.GeometryRequest] RETURNS [XTk.GeometryRequest] = {
gr[x] Ź TRUE; gr[y] Ź TRUE; 
RETURN [gr]
};

YPreferredSizeLR: XTk.PreferredSizeProc = {
force: INT Ź -1;
EachChild: XTkCollections.EachChildProc = {
b: INT Ź XTk.BorderWidth[child];
g: Xl.Geometry Ź child.s.geometry;
IF child.s.mapping=unmapped THEN RETURN;
g.borderWidth Ź b; 
g.size.width Ź proposed.size.width;
g Ź XTkFriends.PreferredSizeLR[widget: child, proposed: g, maySkip: maySkip];
IF force>0 THEN g.size.height Ź MAX[force-2*b, 1];
IF g.size.height<=0 THEN g.size.height Ź 20;
preferred.size.width Ź MAX[preferred.size.width, g.size.width];
preferred.size.height Ź preferred.size.height + g.size.height + 2*b;
};
IF widget.s.geometry.size.width>0 THEN maySkip[w] Ź TRUE;
IF widget.s.geometry.size.height>0 THEN maySkip[h] Ź TRUE;
IF maySkip[w] AND maySkip[h] THEN RETURN [widget.s.geometry];
preferred Ź [
size: [0, 0], 
pos: widget.s.geometry.pos, 
borderWidth: widget.s.geometry.borderWidth
]; 
force Ź GetForce[widget];
maySkip Ź AddPos[maySkip];
XTkCollections.BasicEnumerateChildren[widget, EachChild];
IF widget.s.geometry.size.width>0 THEN preferred.size.width Ź widget.s.geometry.size.width;
IF widget.s.geometry.size.height>0 THEN preferred.size.height Ź widget.s.geometry.size.height;
};

XPreferredSizeLR: XTk.PreferredSizeProc = {
force: INT Ź -1;
EachChild: XTkCollections.EachChildProc = {
b: INT Ź XTk.BorderWidth[child];
g: Xl.Geometry Ź child.s.geometry;
IF child.s.mapping=unmapped THEN RETURN;
g.borderWidth Ź b; 
g.size.height Ź proposed.size.height;
g Ź XTkFriends.PreferredSizeLR[widget: child, proposed: g, maySkip: maySkip];
IF force>0 THEN g.size.width Ź MAX[force-2*b, 1];
IF g.size.width<=0 THEN g.size.width Ź 20;
preferred.size.height Ź MAX[preferred.size.height, g.size.height];
preferred.size.width Ź preferred.size.width + g.size.width + 2*b;
};
IF widget.s.geometry.size.width>0 THEN maySkip[h] Ź TRUE;
IF widget.s.geometry.size.height>0 THEN maySkip[w] Ź TRUE;
IF maySkip[w] AND maySkip[h] THEN RETURN [widget.s.geometry];
preferred Ź [
size: [0, 0], 
pos: widget.s.geometry.pos, 
borderWidth: widget.s.geometry.borderWidth
]; 
force Ź GetForce[widget];
maySkip Ź AddPos[maySkip];
XTkCollections.BasicEnumerateChildren[widget, EachChild];
IF widget.s.geometry.size.width>0 THEN preferred.size.width Ź widget.s.geometry.size.width;
IF widget.s.geometry.size.height>0 THEN preferred.size.height Ź widget.s.geometry.size.height;
};

ContPreferredSizeLR: XTk.PreferredSizeProc = {
EachChild: XTkCollections.EachChildProc = {
b: INT Ź XTk.BorderWidth[child];
g: Xl.Geometry Ź [size: proposed.size, pos: child.actual.pos, borderWidth: b];
IF child.s.mapping=unmapped THEN RETURN;
g Ź XTkFriends.PreferredSizeLR[widget: child, proposed: g, maySkip: maySkip];
IF g.size.width<=0 THEN g.size.width Ź 1;
IF g.size.height<=0 THEN g.size.height Ź 1;
IF g.pos.x=XTk.dontUse THEN g.pos.x Ź child.actual.pos.x;
IF g.pos.y=XTk.dontUse THEN g.pos.y Ź child.actual.pos.y;
preferred.size.width Ź MAX[preferred.size.width, g.pos.x + g.size.width + b*2];
preferred.size.height Ź MAX[preferred.size.height, g.pos.y + g.size.height + b*2];
};
IF widget.s.geometry.size.width>0 THEN maySkip[w] Ź TRUE;
IF widget.s.geometry.size.height>0 THEN maySkip[h] Ź TRUE;
IF maySkip[w] AND maySkip[h] THEN RETURN [widget.s.geometry];
preferred Ź [
size: [0, 0], 
pos: widget.s.geometry.pos, 
borderWidth: widget.s.geometry.borderWidth
]; 
XTkCollections.BasicEnumerateChildren[widget, EachChild];
IF widget.s.geometry.size.width>0 THEN preferred.size.width Ź widget.s.geometry.size.width;
IF widget.s.geometry.size.height>0 THEN preferred.size.height Ź widget.s.geometry.size.height;
};

YConfigureLR: XTk.ConfigureProc = {
existW: BOOL Ź widget.actualMapping<unconfigured;
createW: BOOL Ź mapping<unconfigured AND ~existW;
IF createW THEN DefineBorders[widget];
XTkFriends.SimpleConfigureOneLevelLR[widget, geometry, mapping];
IF existW OR createW THEN YSizingLR[widget, reConsiderChildren OR createW];
};

XConfigureLR: XTk.ConfigureProc = {
existW: BOOL Ź widget.actualMapping<unconfigured;
createW: BOOL Ź mapping<unconfigured AND ~existW;
IF createW THEN DefineBorders[widget];
XTkFriends.SimpleConfigureOneLevelLR[widget, geometry, mapping];
IF existW OR createW THEN XSizingLR[widget, reConsiderChildren OR createW];
};

ContConfigureLR: XTk.ConfigureProc = {
existW: BOOL Ź widget.actualMapping<unconfigured;
createW: BOOL Ź mapping<unconfigured AND ~existW;
IF createW THEN {
DefineBorders[widget];
IF widget.attributes.backgroundPixel=Xl.illegalPixel THEN 
widget.attributes.backgroundPixel Ź widget.screenDepth.screen.whitePixel
};
XTkFriends.SimpleConfigureOneLevelLR[widget, geometry, mapping];
IF existW OR createW THEN {
ContSizingLR[widget, reConsiderChildren OR createW];
};
};

MyCount: PROC [widget: Widget] RETURNS [n: NAT Ź 0, lastChild: Widget Ź NIL] = {
EachChild: XTkCollections.EachChildProc = {
IF child.s.mapping#unmapped THEN {n Ź n+1; lastChild Ź child}
};
XTkCollections.BasicEnumerateChildren[widget, EachChild];
};

XCount: PROC [widget: Widget, reConsiderChildren: BOOL] RETURNS [mapCount: NAT Ź 0, considerCount: NAT Ź 0, lastChild: Widget Ź NIL] = {
EachChild: XTkCollections.EachChildProc = {
IF child.state#realized AND ~reConsiderChildren THEN RETURN;
IF child.s.mapping#unmapped THEN {mapCount Ź mapCount+1; lastChild Ź child};
considerCount Ź considerCount+1;
};
XTkCollections.BasicEnumerateChildren[widget, EachChild];
};

YSizingLR: PROC [widget: Widget, reConsiderChildren: BOOL] = {
cd: REF MyConfigureData Ź NIL;
force: INT Ź GetForce[widget];
mapCount: INT; allCount: INT; index: INT Ź 0; 
varyingCount: INT Ź 0; lastChild: Widget;
pos: Xl.Point Ź [0, 0]; 
fixCommon: BOOL = TRUE;
FirstPassPerChild: XTkCollections.EachChildProc = {
g: Xl.Geometry Ź child.actual;
IF child.state#realized AND ~reConsiderChildren THEN RETURN;
IF child.s.mapping=dontUse THEN child.s.mapping Ź mapped;
cd[index].child Ź child;
cd[index].mapping Ź child.s.mapping;
IF child.s.mapping=mapped THEN {
IF Varying[child] THEN varyingCount Ź varyingCount+1;
g Ź XTkFriends.PreferredSizeLR[widget: child, proposed: child.actual, maySkip: exceptHeight];
g.pos Ź pos;
IF g.borderWidth<0 THEN g.borderWidth Ź 0;
IF fixCommon OR g.size.width<=0 THEN {
g.size.width Ź widget.actual.size.width - g.borderWidth*2;
};
IF force>0 THEN g.size.height Ź MAX[1, force - g.borderWidth*2];
IF g.size.height<=0 THEN g.size.height Ź 20;
IF g.size.width<=0 THEN g.size.width Ź 1;
IF child=lastChild AND varyingCount=0 THEN {
g.size.height Ź MAX[widget.actual.size.height-pos.y-g.borderWidth*2, 1];
};
pos.y Ź pos.y+g.size.height+2*g.borderWidth;
};
cd[index].g Ź g;
index Ź MIN[allCount, index+1];
};
IF reConsiderChildren THEN XTk.SetWidgetFlag[widget, XTk.mustReConsiderChildren, FALSE];
[mapCount, allCount, lastChild] Ź XCount[widget, reConsiderChildren];  --zero'th path: count
IF mapCount>0 AND force=0 THEN {
force Ź MAX[1, widget.actual.size.height / mapCount];
};
cd Ź NEW[MyConfigureData[allCount]];
XTkCollections.BasicEnumerateChildren[widget, FirstPassPerChild]; -- first real pass: get ideal geometry
IF varyingCount>0 THEN {
offset: INT Ź 0;
wrong: INT Ź widget.actual.size.height-pos.y;
IF wrong#0 THEN {
FOR i: INT IN [0..allCount) DO -- second pass: fix geometry evenly
child: XTk.Widget Ź cd[i].child;
cd[i].g.pos.y Ź cd[i].g.pos.y + offset;
IF Varying[child] THEN {
correction: INT Ź wrong/varyingCount; varyingCount Ź varyingCount-1;
IF (cd[i].g.size.height+correction)<1 THEN {
correction Ź 1-cd[i].g.size.height;
}; 
wrong Ź wrong-correction;
cd[i].g.size.height Ź cd[i].g.size.height + correction;
offset Ź offset + correction;
};
ENDLOOP;
};
};
FOR i: INT IN [0..allCount) DO-- last pass: now really set the fixed geometry
child: XTk.Widget Ź cd[i].child;
XTkFriends.ConfigureLR[child, cd[i].g, cd[i].mapping, reConsiderChildren];
ENDLOOP;
};

MyConfigureData: TYPE = RECORD [
d: SEQUENCE count: NAT OF MyConfigureRec
];
MyConfigureRec: TYPE = RECORD [
child: XTk.Widget,
g: Xl.Geometry Ź [],
mapping: XTk.Mapping Ź dontUse
];

varyingFlag: XTk.WidgetFlagKey ~ wf6;

SetVaryingSize: PUBLIC PROC [childOfStack: XTk.Widget, varyingSize: BOOL Ź TRUE] = {
XTk.SetWidgetFlag[childOfStack, varyingFlag, varyingSize]
};

Varying: PROC [widget: Widget] RETURNS [BOOL] = {
RETURN [XTk.GetWidgetFlag[widget, varyingFlag]]
};

XSizingLR: PROC [widget: Widget, reConsiderChildren: BOOL] = {
cd: REF MyConfigureData Ź NIL;
force: INT Ź GetForce[widget];
mapCount: INT; allCount: INT; index: INT Ź 0; 
varyingCount: INT Ź 0; lastChild: Widget;
pos: Xl.Point Ź [0, 0]; 
fixCommon: BOOL = TRUE;
FirstPassPerChild: XTkCollections.EachChildProc = {
g: Xl.Geometry Ź child.actual;
IF child.state#realized AND ~reConsiderChildren THEN RETURN;
IF child.s.mapping=dontUse THEN child.s.mapping Ź mapped;
cd[index].child Ź child;
cd[index].mapping Ź child.s.mapping;
IF child.s.mapping=mapped THEN {
IF Varying[child] THEN varyingCount Ź varyingCount+1;
g Ź XTkFriends.PreferredSizeLR[widget: child, proposed: child.actual, maySkip: exceptWidth];
g.pos Ź pos;
IF g.borderWidth<0 THEN g.borderWidth Ź 0;
IF fixCommon OR g.size.height<=0 THEN {
g.size.height Ź widget.actual.size.height - g.borderWidth*2;
};
IF force>0 THEN g.size.width Ź MAX[1, force - g.borderWidth*2];
IF g.size.width<=0 THEN g.size.width Ź 40;
IF g.size.height<=0 THEN g.size.height Ź 1;
IF child=lastChild AND varyingCount=0 THEN {
g.size.width Ź MAX[widget.actual.size.width-pos.x-g.borderWidth*2, 1];
};
pos.x Ź pos.x + g.size.width + 2*g.borderWidth;
};
cd[index].g Ź g;
index Ź MIN[allCount, index+1];
};
IF reConsiderChildren THEN XTk.SetWidgetFlag[widget, XTk.mustReConsiderChildren, FALSE];
[mapCount, allCount, lastChild] Ź XCount[widget, reConsiderChildren];  --zero'th path: count
IF mapCount>0 AND force=0 THEN {
force Ź MAX[1, widget.actual.size.width / mapCount];
};
cd Ź NEW[MyConfigureData[allCount]];
XTkCollections.BasicEnumerateChildren[widget, FirstPassPerChild]; -- first real pass: get ideal geometry
IF varyingCount>0 THEN {
offset: INT Ź 0;
wrong: INT Ź widget.actual.size.width-pos.x;
IF wrong#0 THEN {
FOR i: INT IN [0..allCount) DO -- second pass: fix geometry evenly
child: XTk.Widget Ź cd[i].child;
cd[i].g.pos.x Ź cd[i].g.pos.x + offset;
IF Varying[child] THEN {
correction: INT Ź wrong/varyingCount; varyingCount Ź varyingCount-1;
IF (cd[i].g.size.width+correction)<1 THEN {
correction Ź 1-cd[i].g.size.width;
}; 
wrong Ź wrong-correction;
cd[i].g.size.width Ź cd[i].g.size.width + correction;
offset Ź offset + correction;
};
ENDLOOP;
};
};
FOR i: INT IN [0..allCount) DO-- last pass: now really set the fixed geometry
child: XTk.Widget Ź cd[i].child;
XTkFriends.ConfigureLR[child, cd[i].g, cd[i].mapping, reConsiderChildren];
ENDLOOP;
};

skipNone: XTk.GeometryRequest = [FALSE, FALSE, FALSE, FALSE, FALSE];

ContSizingLR: PROC [widget: Widget, reConsiderChildren: BOOL] = {
pos: Xl.Point Ź [0, 0]; 
EachChild: XTkCollections.EachChildProc = {
g: Xl.Geometry Ź [];
IF child.state#realized<<or in progress@@>> AND ~reConsiderChildren THEN RETURN;
IF child.s.mapping=mapped THEN { 
g Ź XTkFriends.PreferredSizeLR[widget: child, proposed: child.actual, maySkip: skipNone];
IF g.size.width<=0 THEN g.size.width Ź 1;
IF g.size.height<=0 THEN g.size.height Ź 1;
IF g.borderWidth<0 THEN g.borderWidth Ź 0;
};
XTkFriends.ConfigureLR[child, g, child.s.mapping, reConsiderChildren];
};
IF reConsiderChildren THEN XTk.SetWidgetFlag[widget, XTk.mustReConsiderChildren, FALSE];
XTkCollections.BasicEnumerateChildren[widget, EachChild];
};

END.

    XTkContainersImpl.mesa
Copyright Ó 1988, 1991, 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, October 18, 1988 11:22:01 am PDT
Christian Jacobi, May 11, 1993 11:46 am PDT

--forget dynamic borders; its not worth the troubles--
--Special count procedure used for YSizingLR and XSizingLR
OldYSizingLR: PROC [widget: Widget, reConsiderChildren: BOOL] = {
force: INT Ź GetForce[widget];
count: INT; lastChild: Widget;
pos: Xl.Point Ź [0, 0]; 
fixCommon: BOOL = TRUE;
EachChild: XTkCollections.EachChildProc = {
g: Xl.Geometry Ź [];
IF child.state#realized<<or in progress@@>> AND ~reConsiderChildren THEN RETURN;
IF child.s.mapping=mapped THEN {
g Ź XTkFriends.PreferredSizeLR[widget: child, proposed: child.actual, maySkip: exceptHeight];
g.pos Ź pos;
IF g.borderWidth<0 THEN g.borderWidth Ź 0;
IF fixCommon OR g.size.width<=0 THEN {
g.size.width Ź widget.actual.size.width - g.borderWidth*2;
};
IF force>0 THEN g.size.height Ź MAX[1, force - g.borderWidth*2];
IF g.size.height<=0 THEN g.size.height Ź 20;
IF g.size.width<=0 THEN g.size.width Ź 1;
IF g.borderWidth<0 THEN g.borderWidth Ź 0;
IF child=lastChild THEN {
g.size.height Ź MAX[widget.actual.size.height-pos.y-g.borderWidth*2, 1];
};
};
XTkFriends.ConfigureLR[child, g, child.s.mapping, reConsiderChildren];
IF child.actualMapping=mapped THEN pos.y Ź pos.y+g.size.height+2*g.borderWidth;
};
IF reConsiderChildren THEN XTk.SetWidgetFlag[widget, XTk.mustReConsiderChildren, FALSE];
[count, lastChild] Ź MyCount[widget];
IF count>0 AND force=0 THEN {
force Ź MAX[1, widget.actual.size.height / count];
};
XTkCollections.BasicEnumerateChildren[widget, EachChild];
};

--used in first pass to get ideal geometry
OldXSizingLR: PROC [widget: Widget, reConsiderChildren: BOOL] = {
force: INT Ź GetForce[widget];
count: INT; lastChild: Widget;
pos: Xl.Point Ź [0, 0]; 
fixCommon: BOOL = TRUE;
EachChild: XTkCollections.EachChildProc = {
g: Xl.Geometry Ź [];
IF child.state#realized<<or in progress@@>> AND ~reConsiderChildren THEN RETURN;
IF child.s.mapping=mapped THEN {
g Ź XTkFriends.PreferredSizeLR[widget: child, proposed: child.actual, maySkip: exceptWidth];
g.pos Ź pos;
IF g.borderWidth<0 THEN g.borderWidth Ź 0;
IF fixCommon OR g.size.height<=0 THEN {
g.size.height Ź widget.actual.size.height - g.borderWidth*2;
};
IF force>0 THEN g.size.width Ź MAX[1, force - g.borderWidth*2];
IF g.size.width<=0 THEN g.size.width Ź 40;
IF g.size.height<=0 THEN g.size.height Ź 1;
IF g.borderWidth<0 THEN g.borderWidth Ź 0;
IF child=lastChild THEN {
g.size.width Ź MAX[widget.actual.size.width-pos.x-g.borderWidth*2, 1];
};
};
XTkFriends.ConfigureLR[child, g, child.s.mapping, reConsiderChildren];
IF child.actualMapping=mapped THEN pos.x Ź pos.x + g.size.width + 2*g.borderWidth;
};
IF reConsiderChildren THEN XTk.SetWidgetFlag[widget, XTk.mustReConsiderChildren, FALSE];
[count, lastChild] Ź MyCount[widget];
IF count>0 AND force=0 THEN {
force Ź MAX[1, widget.actual.size.width / count];
};
XTkCollections.BasicEnumerateChildren[widget, EachChild];
};

--used in first pass to get ideal geometry
Ę3  NewlineDelimiter
(cedarcode) style codeK
Ďe=HK==K+K Ďk	
KKKKKK Ďn!K 'KKK K$CK%DK KĐŢKĐŢKŮęK )
wKJJK55KK ;KMMKK 
6^K*@KK eKBBKK %BKXXK
EKK !
	}KGGK22KKK !
	}KGGK22KKK 
)
ĄKPPKPPKK55KKK ,	"+KĎc66#K55K%K==$KKK99KK 4KUUKKKK HK
KKK +K	"+K K""K(KK##KMMK	2K,K%?KDDKK 9K!:K=KKK**KKKK99K 5[K!7^KK +K	"+K K""K(KK%%KMMK	1K*K'BKAAKK 9K!:K=KKK**KKKK99K 5[K!7^KK .	"+K KNNK(KMMK)K+K9K9K5OK7RKK 9K!:K=KKK**KK99K 5[K!7^KK #K%1K		1K	&K@@K	&
KKK #K%1K		1K	&K@@K	&
KKK &K%1K		1	K3:KHHKK@@	K(
4KKK 
P	"+K=KK99KK &K:	"+K<K,LK KK99KK &AKKKK	"+KK*P K]]KK*&K::KK	@K,K)K*K5HKKKFFK-OKK7XK%%		K'2KK99KK 	&>KKK
	.K)KK"3K*KK<K9KK$ K5K]]KK*&K::KK	@K,K),K5HKK,KKKKK7XKG \	 K*5KK$KB &hKK#-		 #BK K'K5D$,K#KKK7KKKKK /MK KJKKK &AKKKK	"+KK*P K\\KK*'K<<KK	?K*K+K*K4FKKKFFK0RKK7XK%%		K&1KK99KK  K(KKKKKK K%K 
)TK9KK 1K)/KK 	&>KKK
	.K)KK"3K*KK<K9KK$ K5K\KK*'K<<KK	?K*K+,K4FKK/KKKKK7XKG \	 K)4KK$KB &hKK",		 #BK K'K5D#+K"KKK5KKKKK /MK KJKKK K!DK &AK	"+KK*P!KYYK)K+K*KKFFKK7XK99KK KK      ;z  Ył  