
DIRECTORY
Commander,
Imager,
ImagerBackdoor,
ImagerSample,
IO,
Process,
Random,
Real,
SF,
Xl,
XTk,
XTkBitmapWidgets,
XTkContainers,
XTkSlider,
XTkWidgets;

X11BounceDemo: CEDAR MONITOR
IMPORTS Commander, Imager, ImagerBackdoor, IO, Process, Random, Real, Xl, XTk, XTkBitmapWidgets, XTkContainers, XTkSlider, XTkWidgets = 
BEGIN

Widget: TYPE = XTkWidgets.Widget;
Instance: TYPE = REF InstanceRec;
InstanceRec: TYPE = RECORD [
sz: INT м 8,	--size of bouncing blobs
log: IO.STREAM м NIL,
doWait: REF м NIL,
key: REF ANY м NIL,
squares: INT м 0,
counter: INT м 0,
shell: Widget м NIL,
squaresSizeSlider: Widget м NIL,
bitmapSizeSlider: Widget м NIL,
edit: Widget м NIL,
count: Widget м NIL,
normalizedBitmapSize: REAL м 0,
bitmap: Widget м NIL
];

SquaresSizeHit: XTkSlider.SliderProc = {
i: Instance м NARROW[clientData];
i.sz м Real.Round[MAX[i.bitmap.actual.size.width*contents / 2.0, 1.0]]
};

BitmapSizeHit: XTkSlider.SliderProc = {
IF reason=set OR reason=abort THEN {
i: Instance м NARROW[clientData];
i.normalizedBitmapSize м contents;
Xl.Enqueue[slider.rootTQ, SafeResize, i]
};
};

SafeResize: Xl.EventProcType = {
i: Instance м NARROW[clientData];
outer: INT м Real.Round[i.shell.actual.size.width*i.normalizedBitmapSize];
g: Xl.Geometry м i.bitmap.actual;
g.size.width м MAX[outer-2*i.bitmap.actual.borderWidth, 1];
IF g.size.width#i.bitmap.actual.size.width THEN XTk.NoteAndStartReconfigure[i.bitmap, g];
};

ShellResized: XTk.WidgetNotifyProc = {
i: Instance м NARROW[registerData];
s: REAL м i.shell.actual.size.width;
IF s>=1.0 THEN {
s м (i.bitmap.actual.size.width+2*i.bitmap.actual.borderWidth)/s;
XTkSlider.SetContents[i.bitmapSizeSlider, s];
};
};

MoreHit: XTkWidgets.ButtonHitProcType = {
i: Instance м NARROW[registerData];
i.squares м i.squares + 1;
TRUSTED {Process.Detach[FORK RunOneBlob[i]]};
IO.PutRope[i.log, "add square\n"];
};

HideHit: XTkWidgets.ButtonHitProcType = {
i: Instance м NARROW[registerData];
mapping: XTk.Mapping м SELECT i.edit.actualMapping FROM
mapped => unmapped,
ENDCASE => mapped;
XTk.NoteMappingChange[widget: i.edit, mapping: mapping];
XTk.NoteMappingChange[widget: i.count, mapping: mapping];
XTk.StartReconfigureChildren[i.edit.parent];
IO.PutRope[i.log, "visibility change\n"];
Xl.Flush[i.shell.connection];
};

countw: INT м 0;

MoreButtonsHit: XTkWidgets.ButtonHitProcType = {
i: Instance м NARROW[registerData];
container: Widget м widget.parent;
x: Widget м XTkWidgets.CreateButton[
text: IO.PutFR1["destroy self button: %g ", IO.int[countw м countw+1]], 
hitProc: DestroyOne, registerData: i 
];
XTkWidgets.AppendChild[container, x];
IO.PutRope[i.log, "create button\n"];
};

DestroyOne: XTkWidgets.ButtonHitProcType = {
i: Instance м NARROW[registerData];
XTk.DestroyWidget[widget];
IO.PutRope[i.log, "destroyed button\n"];
};

ResetHit: XTkWidgets.ButtonHitProcType = {
i: Instance м NARROW[registerData];
i.squares м 0;
i.key м NEW[INT];
IO.PutRope[i.log, "reset\n"];
};

CounterHit: XTkWidgets.ButtonHitProcType = {
i: Instance м NARROW[registerData];
b: BOOL м TRUE;
FOR i1: INT IN [0..1000] DO 
FOR i2: INT IN [0..1000] DO 
b м NOT b 
ENDLOOP 
ENDLOOP;
XTkWidgets.SetText[widget, IO.PutFR1["count %g", IO.int[i.counter м i.counter+1]]];
IO.PutRope[i.log, "counted\n"];
};

SetWait: XTkWidgets.ButtonHitProcType = {
i: Instance м NARROW[registerData];
i.doWait м callData;
IO.PutRope[i.log, "changed wait mode\n"];
};

debugLastInstance: Instance;

CreateDemoWidget: Commander.CommandProc = {
i: Instance м debugLastInstance м NEW[InstanceRec];
shell: Widget м i.shell м XTkWidgets.CreateShell[
className: $X11BounceDemo, windowHeader: "X11BounceDemo tool",
standardMigration: TRUE
];
bitmap: Widget м i.bitmap м XTkBitmapWidgets.CreateBitmapWidget[
widgetSpec: [geometry: [size: [150, 400], borderWidth: 1]],
notify: BitmapChanged, data: i
];
header: Widget м XTkWidgets.CreateLabel[
widgetSpec: [geometry: [borderWidth: 3]],
text: "bounce demo tool"
];
toggle: Widget м XTkWidgets.CreateChoices[
choices: LIST [
["wait: ", NIL], 
["local", $local], 
["remote", $remote], 
["don't", $dont]
],
hitProc: SetWait, registerData: i
];
logWidget: Widget м XTkWidgets.CreateStreamWidget[widgetSpec: [geometry: [size: [-1, 100]]]];
moreSquares: Widget м XTkWidgets.CreateButton[
text: "more squares", hitProc: MoreHit, registerData: i
];
reset: Widget м XTkWidgets.CreateButton[
text: "stop squares", hitProc: ResetHit, registerData: i
];
squaresSizeSlider: Widget м i.squaresSizeSlider м XTkSlider.CreateSlider[
widgetSpec: [geometry: [borderWidth: 1]],
contents: 0.1, sliderProc: SquaresSizeHit, clientData: i
];
bitmapSizeSlider: Widget м i.bitmapSizeSlider м XTkSlider.CreateSlider[
widgetSpec: [geometry: [borderWidth: 1]],
contents: 0.1, sliderProc: BitmapSizeHit, clientData: i
];
moreButtons: Widget м XTkWidgets.CreateButton[
text: "more buttons", hitProc: MoreButtonsHit, registerData: i
];
hide: Widget м XTkWidgets.CreateButton[text: "hide n seek",
hitProc: HideHit, registerData: i
];
count: Widget м i.count м XTkWidgets.CreateButton[text: "count to 320000",
hitProc: CounterHit, registerData: i
];
edit: Widget м i.edit м XTkWidgets.CreateField[text: "edit me"];
controls: Widget м XTkWidgets.CreateYStack[[], LIST[XTkWidgets.HRule[], moreSquares, reset, squaresSizeSlider, XTkWidgets.HRule[], hide, edit, count, moreButtons]];
action: Widget м XTkWidgets.CreateXStack[[], LIST[bitmap, controls]];
upper: Widget м XTkWidgets.CreateYStack[[], LIST[header, toggle, XTkWidgets.HRule[], logWidget, bitmapSizeSlider]];
contents: Widget м XTkWidgets.CreateYStack[[], LIST[upper, action]];
i.log м XTkWidgets.CreateStream[logWidget];
XTkContainers.SetVaryingSize[bitmap, FALSE];
XTk.RegisterNotifier[contents, XTk.postConfigureKey, ShellResized, i];
XTk.RegisterNotifier[contents, XTk.postWindowCreationKey, ShellResized, i];
XTkWidgets.SetShellChild[shell, contents];
XTkWidgets.RealizeShell[shell];
};

RunOneBlob: PROC [i: Instance] = {
key: REF м i.key;
ct: Imager.Context м XTkBitmapWidgets.CreateContext[i.bitmap];
dx: REAL м Random.ChooseInt[min: -100, max: 100];
dy: REAL м Random.ChooseInt[min: -100, max: 100];
dx м dx/20.0; dy м dy/20.0;
IF ct#NIL THEN {
oldBox, newBox: Imager.Box м [1, 1, 0, 0];
r: Imager.Rectangle м ImagerBackdoor.GetBounds[ct];
x: REAL м r.x+ r.w/2; y: REAL м r.y+ r.h/2;
Process.SetPriority[Process.priorityBackground];
WHILE key=i.key AND Xl.Alive[i.bitmap.connection] AND i.bitmap.fastAccessAllowed=ok DO
x м x+dx;
IF dx>0 
THEN {IF x>r.x+r.w THEN {dxм-dx; x м x+2*dx}}
ELSE {IF x<r.x THEN {dxм-dx; x м x+2*dx}};
y м y+dy;
IF dy>0 
THEN {IF y>r.y+r.h THEN {dyм-dy; y м y+2*dy}}
ELSE {IF y<r.y THEN {dyм-dy; y м y+2*dy}};
newBox м [xmin: x-i.sz, ymin: y-i.sz, xmax: x+i.sz, ymax: y+i.sz];
Imager.SetColor[ct, Imager.white]; Imager.MaskBox[ct, oldBox];
Imager.SetColor[ct, Imager.black]; Imager.MaskBox[ct, newBox];
oldBox м newBox;
SELECT i.doWait FROM
$local => XTkBitmapWidgets.Wait[i.bitmap, FALSE]; 
$remote => XTkBitmapWidgets.Wait[i.bitmap, TRUE]; 
ENDCASE => {};
Process.Yield[]; 
ENDLOOP
};
};

BitmapChanged: XTkBitmapWidgets.BitmapEventProc = {
i: Instance м NARROW[data];
i.key м NEW[INT];
SELECT reason FROM
createWindow, resize, map => {
fsz: REAL м i.sz;
XTkBitmapWidgets.CreateAndSetBitmap[widget: widget, size: [widget.actual.size.height, widget.actual.size.width], bpp: 1]; 
XTkSlider.SetContents[i.squaresSizeSlider, fsz/MAX[i.bitmap.actual.size.width, 1]];
FOR n: INT IN [0..i.squares) DO
TRUSTED {Process.Detach[FORK RunOneBlob[i]]}
ENDLOOP;
IO.PutRope[i.log, "resized\n"];
};
ENDCASE => {}
};

Commander.Register["X11BounceDemo", CreateDemoWidget, "Create widget demo instance"];
END.

     X11BounceDemo.mesa
Copyright ╙ 1988, 1989, 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, May 2, 1988 2:42:29 pm PDT 
Christian Jacobi, April 29, 1992 12:04 pm PDT 
Willie-s, November 25, 1991 4:49 pm PST


Э╩l  Ц(cedarcode) styleХNewlineDelimiter
Ш codeЪЬЩKЪЬ
╧eЬIЩTKЩ8KЩ.KЩ'KЩ ЧЪ╧k	Ш	KШ
KШKШKШKЪЮЬШKШKШKШKЪЮЬШKЪЬШKШKШKШKШ
KШЧKШ Ъ╧nЬЮЬЮШKЪЮЬ$ЮЬ[ШИЧЪЮШKШ ЧKЪЬЮЬШ!KЩ KЪЬ
ЮЬЮЬШ!ЪЬЮЬЮЬШKЪЬЮЬ╧cШ%KЪЬЮЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬЮЬШKЪЬ	ЮЬШKЪЬ	ЮЬШKЪЬЮЬШKЪЬЮЬШ KЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮШKШЧKШ ЪЯЬШ(KЪЬЮЬШ!KЪЬЮЬ1ШFKШЧKШ ЪЯЬШ'ЪЮЬЮЬЮЬШ$KЪЬЮЬШ!KШ"KЪЬ(Ш(KШЧKШKШ ЧЪЯ
ЬШ KЪЬЮЬШ!KЪЬЮЬ@ШJKЪЬ!Ш!KЪЬЮЬ)Ш;KЪЮЬ)ЮЬ*ШYKШKШ ЧЪЯЬШ&KЪЬЮЬШ#KЪЬЮЬШ$ЪЮЬЮЬШKШAKШ-KШЧKШЧKШ ЪЯЬ"Ш)KЪЬЮЬШ#KШKЪЮЬЮЬШ-KЪЮЬ Ш"KШKШ ЧЪЯЬ"Ш)KЪЬЮЬШ#ЪЬЮЬЮШ7KШKЪЮЬШЧKЪЬ8Ш8KЪЬ9Ш9KЪЬ,Ш,KЪЮЬ'Ш)KЪЬШKШKШ ЧKЪЬЮЬШKШ ЪЯЬ"Ш0KЪЬЮЬШ#KШ"Ш$KЪЬЮЬ$ЮЬШHKШ%KШЧKШ%KЪЮЬ#Ш%KШKШ ЧЪЯ
Ь"Ш,KЪЬЮЬШ#KЪЬШKЪЮЬ&Ш(KШЧKШ ЪЯЬ"Ш*KЪЬЮЬШ#KШKЪЬЮЬЮЬШKЪЮЬШKШKШ ЧЪЯ
Ь"Ш,KЪЬЮЬШ#KЪЬЮЬЮЬШЪЮЬЮЬЮЬЮЬШЪЮЬЮЬЮЬЮЬШKЪЬЮЬШ
KЪЮЬШЧKЪЮЬШЧKЪЬЮЬЮЬ ШSKЪЮЬШKШЧKШ ЪЯЬ"Ш)KЪЬЮЬШ#KШKЪЮЬ'Ш)KШЧKШ KШKШ ЪЯЬШ+KЪЬ"ЮЬШ3Ш1KЪЬ>Ш>KЪЬЮШKШЧШ@KШ;KШKШЧШ(KШ)KШKШЧШ*ЪЬ	ЮЬШKЪЬЮЬШKШKШKШKШЧKШ!KШЧKШ]Ш.KШ7KШЧШ(KШ8KШЧШIKШ)KШ8KШЧШGKШ)KШ7KШЧШ.KШ>KШЧШ;KШ!KШЧШJKШ$KШЧKШ@KЪЬ/ЮЬqШдKЪЬ-ЮЬШEKЪЬ,ЮЬCШsKЪЬ/ЮЬШDKЪЬ+Ш+KЪЬ%ЮЬШ,KЪЬFШFKЪЬKШKKШ*KЪЬШKШЧKШ ЪЯ
ЬЮЬШ"KЪЬЮЬ	ШKШ>KЪЬЮЬ)Ш1KЪЬЮЬ)Ш1KШЪЮЬЮЬЮЬШKШ*KШ3KЪЬЮЬЮЬШ+KШ0ЪЮЬЮЬЮЬЮШVKШ	ЪЮЬШKЪЮЬЮЬЮЬШ-KЪЮЬЮЬЮЬШ*ЧKШ	ЪЮЬШKЪЮЬЮЬЮЬШ-KЪЮЬЮЬЮЬШ*ЧKШBKШ>KШ>KШЪЮЬ
ЮШKЪЬ*ЮЬШ2KЪЬ+ЮЬШ2KЪЮЬШЧKШKЪЮШЧKШЧKШЧKШ ЪЯЬ&Ш3KЪЬЮЬШKЪЬЮЬЮЬШЪЮЬЮШШKЪЬЮЬШKШzKЪЬ/ЮЬ!ШSЪЮЬЮЬЮЬЮШKЪЮЬЮЬШ,KЪЮЬШЧKЪЮЬШKШЧKЪЮЬШЧKШЧKШ KЪЬUШUKЪЮЬШKШ Ч ЕЧ    ╕  &$  