DIRECTORY
Buttons,
Commander USING [CommandProc, Register],
Containers,
Graphics USING [Box, ClipBox, Scale, Translate],
GraphicsBasic,
IO,
MessageWindow USING [Append, Blink],
Process USING [Detach],
Real,
Rope,
Rules,
ShowPress USING [Close, DrawPressPage, Handle, Open, ShowPressError],
Sliders,
ViewerClasses USING [DestroyProc, PaintProc, PaintRectangle, ScrollProc, Viewer, ViewerRec, ViewerClass, ViewerClassRec],
ViewerOps USING [CreateViewer, PaintViewer, RegisterViewerClass, UserToScreenCoords],  -- DestroyViewer
ViewerSpecs,
ViewerTools;
ShowPressTool: MONITOR
IMPORTS Buttons, Commander, Containers, Graphics, IO, MessageWindow, Process, Real, Rope, Rules, ShowPress, Sliders, ViewerOps, ViewerTools
EXPORTS ShowPress
= BEGIN

pressViewerClass: ViewerClasses.ViewerClass _ NEW[ViewerClasses.ViewerClassRec];

ShowData: TYPE = REF ShowDataRec;
ShowDataRec: TYPE = RECORD [
show: ShowPress.Handle,
pressContainer: Containers.Container _ NIL,
pressViewer: ViewerClasses.Viewer _ NIL,
pageNumberViewer: ViewerClasses.Viewer _ NIL,
pageNumberSlider: Sliders.Slider _ NIL,
pageNumber: INT _ 1,
top, height: REAL ];

pointsPerMica: REAL = 72.0/2540.0;
micasPerPoint: REAL = 2540.0/72.0;
pressPageSize: REAL = 11.0*72.0; -- points
viewerOverheadSize: INT = (ViewerSpecs.captionHeight + ViewerSpecs.menuHeight + ViewerSpecs.menuBarHeight + ViewerSpecs.windowBorderSize*2);
visibleGrey: GraphicsBasic.Color = [stipple, 0, 122645B/256, 122645B MOD 256];
invisibleGrey: GraphicsBasic.Color = [stipple, 0, 100040B/256, 100040B MOD 256];

CreateShowViewer: PUBLIC PROC[fileName: Rope.ROPE] RETURNS[pressViewer: ViewerClasses.Viewer] = {
my: ShowData;
curIndent: INTEGER _ 0;
topLine: INTEGER _ 0;
button: Buttons.Button;
rule: Rules.Rule;
file: ShowPress.Handle;
file _ ShowPress.Open[fileName !
ShowPress.ShowPressError => {
SELECT code FROM
CantReadFile => CONTINUE;
CantFindFonts => {
MessageWindow.Append[message: Rope.Concat["Can't Find Fonts for ", fileName], clearFirst: TRUE];
MessageWindow.Blink[];
GOTO Quit; };
ENDCASE => REJECT;
} ];
IF file = NIL THEN {
fileName _ Rope.Concat[fileName, ".press"];
file _ ShowPress.Open[fileName !
ShowPress.ShowPressError => {
MessageWindow.Append[message: Rope.Concat["Can't open Press viewer on ", fileName], clearFirst: TRUE];
MessageWindow.Blink[];
GOTO Quit; }
];
};
my _ NEW[ ShowDataRec _ [show: file, pageNumber: 1, top: pressPageSize, height: 0.0]];
my.pressContainer _ Containers.Create[
info: [
name: fileName,
iconic: FALSE,
data: my,
scrollable: FALSE],
paint: TRUE ];

button _ Buttons.Create[
info: [
name: "FirstPage",
wx: curIndent,
wy: topLine,
border: FALSE,
parent: my.pressContainer],
proc: FirstPage,
clientData: my,
documentation: "Left-click for the first page of the Press file",
paint: TRUE];
curIndent _ button.wx + button.ww;

button _ Buttons.Create[
info: [
name: "TurnPage",
wx: curIndent,
wy: topLine,
border: FALSE,
parent: my.pressContainer],
proc: TurnPage,
clientData: my,
documentation: "Left-click for next page; Right-click for previous page",
paint: TRUE];
curIndent _ button.wx + button.ww;

button _ Buttons.Create[
info: [
name: "LastPage",
wx: curIndent,
wy: topLine,
border: FALSE,
parent: my.pressContainer],
proc: LastPage,
clientData: my,
documentation: "Left-click for last page in Press file",
paint: TRUE];
curIndent _ button.wx + button.ww;

button _ Buttons.Create[
info: [
name: "Page",
wx: curIndent,
wy: topLine,
border: FALSE,
parent: my.pressContainer],
proc: PageNumber,
clientData: my,
documentation: "Left-click for selected page number",
paint: TRUE];
curIndent _ button.wx + button.ww;

my.pageNumberViewer _ ViewerTools.MakeNewTextViewer[
info: [
wx: curIndent,
wy: topLine+ViewerSpecs.windowBorderSize,
ww: 40,
wh: ViewerSpecs.scrollBarW+2*ViewerSpecs.windowBorderSize,
parent: my.pressContainer,
border: FALSE,
scrollable: FALSE],
paint: TRUE];
curIndent _ my.pageNumberViewer.wx + my.pageNumberViewer.ww;

my.pageNumberSlider _ Sliders.Create[
info: [
wx: curIndent,
wy: topLine,
ww: my.pressContainer.ww-curIndent,
wh: ViewerSpecs.scrollBarW+2*ViewerSpecs.windowBorderSize,
border: FALSE,
parent: my.pressContainer,
scrollable: FALSE],
filterProc: NormalizePageNumber,
sliderProc: PageNumberSlider,
orientation: horizontal,
foreground: visibleGrey,
background: invisibleGrey,
clientData: my,
paint: TRUE];
Containers.ChildXBound[my.pressContainer, my.pageNumberSlider];

rule _ Rules.Create[
info: [
parent: my.pressContainer,
wx: 0,
wy: topLine+ViewerSpecs.captionHeight+4*ViewerSpecs.windowBorderSize,
wh: ViewerSpecs.menuBarHeight]];
Containers.ChildXBound[my.pressContainer, rule];

my.pressViewer _ pressViewer _ ViewerOps.CreateViewer[
flavor: $Press,
info: [
name: fileName,
parent: my.pressContainer,
wx: 0,
wy: topLine+ViewerSpecs.captionHeight+5*ViewerSpecs.windowBorderSize,
border: FALSE,
scrollable: TRUE,
iconic: FALSE,
data: my],
paint: TRUE ];
Containers.ChildXBound[my.pressContainer, my.pressViewer];
Containers.ChildYBound[my.pressContainer, my.pressViewer];

DeltaPage[my, 1];
ViewerOps.PaintViewer[my.pressContainer, all];

EXITS
Quit => RETURN;
};
NormalizePageNumber: Sliders.FilterProc = TRUSTED {
my: ShowData _ NARROW[clientData];
RETURN [Real.FDiv[Real.RoundI[value*(my.show.lastPart-1)], (my.show.lastPart-1)]]
};
FirstPage: Buttons.ButtonProc = TRUSTED {
my: ShowData _ NARROW[clientData];
DeltaPage[my, 1];
Process.Detach[FORK ScrollIt[my.pressViewer, my, pressPageSize]];
};
TurnPage: Buttons.ButtonProc = TRUSTED {
my: ShowData _ NARROW[clientData];
where: INT _ IF mouseButton = red THEN +1 ELSE -1;
DeltaPage[my, MIN[MAX[my.pageNumber+where, 1], (my.show.lastPart-1)]];
Process.Detach[FORK ScrollIt[my.pressViewer, my, pressPageSize]];
};
LastPage: Buttons.ButtonProc = TRUSTED {
my: ShowData _ NARROW[clientData];
DeltaPage[my, (my.show.lastPart-1)];
Process.Detach[FORK ScrollIt[my.pressViewer, my, pressPageSize]];
};
PageNumber: Buttons.ButtonProc = TRUSTED {
my: ShowData _ NARROW[clientData];
stream: IO.STREAM _ IO.RIS[ViewerTools.GetContents[my.pageNumberViewer]];
where: INT _ stream.GetInt[];
DeltaPage[my, MIN[MAX[where, 1], (my.show.lastPart-1)]];
Process.Detach[FORK ScrollIt[my.pressViewer, my, pressPageSize]];
};
PageNumberSlider: Sliders.SliderProc = TRUSTED {
my: ShowData _ NARROW[clientData];
SELECT reason FROM
abort => {
ViewerTools.SetContents[my.pageNumberViewer, IO.PutFR["%-g", IO.real[my.pageNumber]]];
};
move => {
ViewerTools.SetContents[my.pageNumberViewer, IO.PutFR["%-g", IO.real[Real.RoundI[(my.show.lastPart-1)*value]]]];
};
set => {
DeltaPage[my, MIN[MAX[Real.RoundI[(my.show.lastPart-1)*value], 1], (my.show.lastPart-1)]];
Process.Detach[FORK ScrollIt[my.pressViewer, my, pressPageSize]];
};
ENDCASE;
};
PressPaint: ENTRY ViewerClasses.PaintProc = TRUSTED {
my: ShowData _ NARROW[self.data];
rect: ViewerClasses.PaintRectangle;
my.height _ self.ch;
IF my.height > my.top THEN my.top _ my.height;
IF ISTYPE[whatChanged, ViewerClasses.PaintRectangle] 
THEN rect _ NARROW[whatChanged];
IF rect # NIL THEN {
dx, dy: REAL;
box: Graphics.Box;
IF rect.h > self.wh THEN RETURN;
[dx, dy] _ ViewerOps.UserToScreenCoords[self, 0, 0]; -- need to map rect to user coords
box.xmin _ rect.x - dx;
box.ymin _ rect.y - dy;
box.xmax _ rect.x + rect.w - dx;
box.ymax _ rect.y + rect.h - dy;
context.ClipBox[box: box, exclude: TRUE];
};
Graphics.Translate[context, 0.0, my.height-my.top];
Graphics.Scale[context, pointsPerMica, pointsPerMica];  -- establish Press coord system
ShowPress.DrawPressPage[context: context, show: my.show, pageNumber: my.pageNumber
! ShowPress.ShowPressError => {
my: ShowData _ NARROW[self.data];
SELECT code FROM
NoSuchPage => {my.pageNumber _ my.pageNumber-1; RETRY;}
ENDCASE => REJECT
}
];
};  -- PressPaint
PressScroll: ViewerClasses.ScrollProc = TRUSTED {
my: ShowData _ NARROW[self.data];
SELECT op FROM
query => RETURN [
top: Real.Fix[(1.0-my.top/pressPageSize)*100.0],
bottom: Real.Fix[(1.0-(my.top-my.height)/pressPageSize)*100.0]];
up => IF my.top > my.height THEN {
Process.Detach[FORK ScrollIt[self, my, MAX[my.top-amount, my.height]]];
};
down => IF my.top < pressPageSize THEN {
Process.Detach[FORK ScrollIt[self, my, MIN[my.top+amount, pressPageSize]]];
};
thumb => {
Process.Detach[FORK ScrollIt[self, my, MAX[MIN[(100-amount)*pressPageSize/100, pressPageSize], my.height]]];
};
ENDCASE => ERROR;
};  -- PressScroll
PressDestroy: ViewerClasses.DestroyProc = TRUSTED {
my: ShowData _ NARROW[self.data];
my.show.Close[];
};  -- PressDestroy
ScrollIt: PROCEDURE [self: ViewerClasses.Viewer, data: ShowData, newvalue: REAL] = {
DeltaTop[data, newvalue];
ViewerOps.PaintViewer[viewer: self, hint: client];
};
DeltaPage: ENTRY PROCEDURE [data: ShowData, newvalue: INT] = {
data.pageNumber _ newvalue;
ViewerTools.SetContents[data.pageNumberViewer, IO.PutFR["%-g", IO.int[newvalue]]];
Sliders.SetContents[data.pageNumberSlider, Real.FDiv[newvalue, (data.show.lastPart-1)]];
};
DeltaTop: ENTRY PROCEDURE [data: ShowData, newvalue: REAL] = {
data.top _ newvalue;
};
MakeShowPress: Commander.CommandProc = TRUSTED {
fileName: Rope.ROPE _ IO.GetToken[IO.RIS[cmd.commandLine], IO.WhiteSpace];
[] _ CreateShowViewer[fileName];
};  -- MakeShowPress
pressViewerClass.paint _ PressPaint;
pressViewerClass.destroy _ PressDestroy;
pressViewerClass.scroll _ PressScroll;
pressViewerClass.bltContents _ top;
ViewerOps.RegisterViewerClass[$Press, pressViewerClass];

Commander.Register[
key: "ShowPress",
proc: MakeShowPress,
doc: "Show a Press file through CedarGraphics" ];

END.  -- ShowPressTool
ShowPressTool.mesa
Last edited by Shore; December 4, 1982 12:15 am
Last edited by Wyatt; June 24, 1983 2:18 pm
Last Edited by: Donahue, May 27, 1983 1:55 pm
Last Edited by: Beach, June 22, 1983 6:16 pm
Last Edited by: Maxwell, September 14, 1983 8:38 am

Change Log
Created by Shore; September 13, 1982 7:17 pm

Changed by Shore; October 15, 1982 1:38 pm
converted to Cedar 3.4 (Menus)

Changed by Shore; December 4, 1982 12:15 am
converted to Cedar.Style

Changed by Wyatt; March 7, 1983 4:33 pm
converted to Cedar 4.0

Edited on May 27, 1983 6:15 pm, by Beach
Added thumbing to PressScroll.

Edited on June 24, 1983 2:17 pm, by Wyatt
UserExec -> Commander.

Edited on September 14, 1983 8:23 am, by Maxwell
changed PressPaint to not repaint the area already bltted by Viewers.

Κ-–

"Cedar" style˜
head1š
Οc™Jš
œ/™/Jš
œ+™+J™-J™,J™3
unitš
Οk	˜	Jš
œ˜Jšœ
žœ˜(Jš
œ˜Jšœ	žœ"˜0Jš
œ˜Jšžœ
˜Jšœžœ˜$Jšœžœ
˜Jš
œ˜Jš
œ˜J˜Jšœ
žœ6˜EJš
œ˜Jšœžœf˜yJšœ
žœH˜gJš
œ˜Jš
œ˜——šœž˜Jšžœ+žœW˜‹
Jšžœ
˜Jšœž˜J˜Jšœ.žœ˜PJ˜Jšœ
žœžœ
˜!šœ
žœžœ˜J˜Jšœ'žœ
˜+Jšœ$žœ
˜(Jšœ)žœ
˜-Jšœ#žœ
˜'Jšœžœ˜Jšœ
žœ˜—J˜Jšœžœ˜"Jšœžœ˜"Jšœžœ	˜*Jšœžœu˜Œ
JšœEžœ˜NJšœGžœ˜PJ˜š
Οnœžœ
žœžœžœ'˜aJš
œ
˜
Jšœžœ˜Jšœ	žœ˜J˜J˜Jš
œ˜š
œ ˜ š
œ˜šžœž˜Jšœžœ
˜š
œ˜JšœZžœ˜`Jš
œ˜Jšžœ	˜
—Jšžœžœ
˜—Jš
œ˜——šžœžœ
žœ˜Jš
œ+˜+š
œ ˜ š
œ˜Jšœ`žœ˜fJš
œ˜Jšžœ˜—J˜—J˜—JšœžœN˜Vš
œ&˜&š
œ˜Jš
œ˜Jšœžœ
˜Jš
œ	˜	Jšœžœ˜—Jšœžœ˜—J˜š
œ˜š
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšœžœ
˜Jš
œ˜—Jš
œ˜Jš
œ˜Jš
œA˜AJšœžœ˜
—J˜"J˜š
œ˜š
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšœžœ
˜Jš
œ˜—Jš
œ˜Jš
œ˜Jš
œI˜IJšœžœ˜
—Jš
œ"˜"J˜š
œ˜š
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšœžœ
˜Jš
œ˜—Jš
œ˜Jš
œ˜Jš
œ8˜8Jšœžœ˜
—Jš
œ"˜"J˜š
œ˜š
œ˜Jš
œ
˜
Jš
œ˜Jš
œ˜Jšœžœ
˜Jš
œ˜—Jš
œ˜Jš
œ˜Jš
œ5˜5Jšœžœ˜
—Jš
œ"˜"J˜š
œ4˜4š
œ˜Jš
œ˜Jš
œ)˜)Jš
œ˜Jš
œ:˜:Jš
œ˜Jšœžœ
˜Jšœžœ˜—Jšœžœ˜
—Jš
œ<˜<J˜š
œ%˜%š
œ˜Jš
œ˜Jš
œ˜Jš
œ#˜#Jš
œ:˜:Jšœžœ
˜Jš
œ˜Jšœžœ˜—J˜ Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jšœžœ˜
—Jš
œ?˜?J˜˜˜Jš
œ˜J˜Jš
œE˜EJš
œ ˜ ——Jš
œ0˜0J˜š
œ6˜6Jš
œ˜š
œ˜Jš
œ˜Jš
œ˜Jš
œ˜Jš
œE˜EJšœžœ
˜Jšœžœ
˜Jšœžœ
˜Jš
œ
˜
—Jšœžœ˜—Jš
œ:˜:Jš
œ:˜:J˜J˜J˜.J˜š
ž˜Jšœžœ
˜—Jš
œ˜—šΟaœžœ˜3Jšœžœ
˜"JšžœK˜QJ˜—š 	œžœ˜)Jšœžœ
˜"Jš
œ˜Jšœžœ.˜AJ˜—šŸœžœ˜(Jšœžœ
˜"Jš	œžœžœžœžœ˜2Jšœžœ
žœ1˜FJšœžœ.˜AJ˜—šŸœžœ˜(Jšœžœ
˜"Jš
œ$˜$Jšœžœ.˜AJ˜—šŸ
œžœ˜*Jšœžœ
˜"Jš	œžœ
žœžœ
žœ/˜IJšœžœ˜Jšœžœ
žœ#˜8Jšœžœ.˜AJ˜—š œžœ˜0Jšœžœ
˜"šžœž˜š
œ
˜
Jšœ-žœžœ˜VJš
œ˜—š
œ	˜	Jšœ-žœžœ1˜pJš
œ˜—š
œ˜Jšœžœ
žœE˜ZJšœžœ.˜AJš
œ˜—Jšžœ
˜—J˜—šŸ
œžœžœ˜5Jšœžœ˜!Jš
œ#˜#Jš
œ˜Jšžœžœ˜.šžœ
žœ,˜5Jšžœžœ˜ —šžœžœ
žœ˜Jšœžœ
˜
J˜Jšžœžœ
žœ
˜ Jšœ5"˜WJ˜J˜J˜ J˜ Jšœ#žœ˜)J˜—Jš
œ3˜3Jšœ8˜Wš
œR˜Rš
œ˜Jšœžœ˜!šžœž˜Jšœ0žœ˜7Jšžœž˜—Jš
œ
˜
—Jš
œ˜—Jšœ
˜—šŸœžœ˜1Jšœžœ˜!šžœž˜šœ	žœ˜Jš
œ0˜0Jš
œ@˜@—šœžœžœ˜"Jšœžœžœ˜GJš
œ˜—šœžœžœ˜(Jšœžœžœ!˜KJš
œ˜—šœ	ž
˜
Jšœžœžœ
žœ>˜lJš
œ˜—Jšžœžœ
˜—Jšœ˜—šŸœžœ˜3Jšœžœ˜!J˜Jšœ˜—šŸœž	œ8žœ˜TJš
œ˜Jš
œ2˜2J˜—šŸ	œžœ
ž	œžœ˜>Jš
œ˜Jšœ/žœžœ˜RJ˜XJ˜—šŸœžœ
ž	œžœ˜>Jš
œ˜J˜—šŸ
œžœ˜0Jšœžœžœ
žœ
žœžœ
˜JJš
œ ˜ Jšœ˜—J™Jš
œ$˜$J˜(J˜&J˜#Jš
œ8˜8J˜˜J˜J˜J˜1—J˜Jšžœ˜—š

™
J™,J™™*J™—J™™+J™—J™™'J™—J™™(JšœΟrœ
™—J™™)Jš
œ™J™—™0Jš
œE™EJ™———…—%3Q