DIRECTORY
GGParseIn, GGViewerOps, Icons, InputFocus, IO, Process, Rope, Vector2, ViewerClasses, ViewerTools;

GGViewerOpsImpl: CEDAR PROGRAM
IMPORTS GGParseIn, InputFocus, IO, Process, Rope, ViewerTools
EXPORTS GGViewerOps = BEGIN

Point: TYPE = Vector2.VEC;
Viewer: TYPE = ViewerClasses.Viewer;

RopeNotOnTop: PUBLIC SIGNAL [position: NAT, wasThere: Rope.ROPE, notThere: Rope.ROPE] = CODE;

GetReal: PUBLIC PROC [textViewer: Viewer, default: REAL] RETURNS [r: REAL] = {
rRope: Rope.ROPE м ViewerTools.GetContents[textViewer];
r м IF Rope.Size[rRope] = 0 THEN default ELSE IO.GetReal[IO.RIS[rRope] ! IO.EndOfStream, IO.Error => {r м default; CONTINUE}];
};

GetTwoReals: PUBLIC PROC [textViewer: Viewer] RETURNS [x, y: REAL] = {
wholeRope: Rope.ROPE м ViewerTools.GetContents[textViewer];
wholeStream: IO.STREAM м IO.RIS[wholeRope];
x м GGParseIn.ReadReal[wholeStream];
GGParseIn.ReadChar[wholeStream, ',];
y м GGParseIn.ReadReal[wholeStream];
};

GetPositiveReal: PUBLIC PROC [textViewer: Viewer, default: REAL] RETURNS [r: REAL] = {
rRope: Rope.ROPE м ViewerTools.GetContents[textViewer];
IF Rope.Size[rRope] = 0 THEN r м default
ELSE {
r м IO.GetReal[IO.RIS[rRope] ! IO.EndOfStream, IO.Error => {r м default; CONTINUE}];
RETURN[IF r >0 THEN r ELSE default];
};
};

SetReal: PUBLIC PROC [viewer: Viewer, real: REAL, format: Rope.ROPE м NIL] = {
realRope: Rope.ROPE;
format м IF format = NIL THEN "%g" ELSE format;
realRope м IO.PutFR1[format, [real[real]]];
ViewerTools.SetContents[viewer, realRope];
};

GetPoint: PUBLIC PROC [textViewer: Viewer] RETURNS [point: Point, success: BOOL] = {
pointRope: Rope.ROPE м ViewerTools.GetContents[textViewer];
f: IO.STREAM м IO.RIS[pointRope];
GGParseIn.ReadChar[f, '[];
point.x м ReadBlankAndReal[f];
GGParseIn.ReadChar[f, ',];
point.y м ReadBlankAndReal[f];
GGParseIn.ReadChar[f, ']];
success м TRUE;
};

SetPoint: PUBLIC PROC [viewer: Viewer, point: Point] = {
pointRope: Rope.ROPE;
pointRope м IO.PutFR["[%g,%g]", [real[point.x]], [real[point.y]]];
ViewerTools.SetContents[viewer, pointRope];
};

ReadBlankAndReal: PROC [f: IO.STREAM] RETURNS [r: REAL] = {
ReadBlank[f];
r м ReadReal[f];
};

ReadBlank: PROC [f: IO.STREAM] = {
[] м IO.SkipWhitespace[f, TRUE];
};

ReadReal: PROC [f: IO.STREAM] RETURNS [r: REAL] = {
realRope: Rope.ROPE;
end: BOOL м FALSE;
[realRope, ----] м IO.GetTokenRope[f, RealBreakProc
!IO.EndOfStream => {end м TRUE; CONTINUE}];
IF end THEN {r м 0.0; RETURN};
IF Rope.Find[realRope, ".", 0, FALSE] = -1 THEN realRope м Rope.Concat[realRope, ".0"];
r м IO.GetReal[IO.RIS[realRope]];
};

RealBreakProc: PROC [char: CHAR] RETURNS [IO.CharClass] = {
SELECT char FROM
'], ',, IO.CR, IO.LF, IO.SP =>RETURN [break];
ENDCASE => RETURN [other];
};
GetIconSize: PUBLIC PROC [] RETURNS [width, height: INT] = {
RETURN[Icons.iconW, Icons.iconH];
};
pauses: INT м 5;
pauseMSec: Process.Milliseconds м 100; -- one-tenth of a second
GetSelectionContents: PUBLIC PROC [] RETURNS [Rope.ROPE] = { -- may return NIL
THROUGH [0..pauses)  DO 
f: InputFocus.Focus _ InputFocus.GetInputFocus[];
IF f=NIL THEN RETURN [NIL]; -- there really is no input focus
IF f.owner=NIL THEN Process.PauseMsec[pauseMSec]  -- wait a while until PopUpSelection2 pops InputFocus, then try again 
ELSE RETURN[ViewerTools.GetSelectionContents[] ];
ENDLOOP;
RETURN[NIL]; -- some other process wacked the input focus
};
END.


  ^  
GGViewerOpsImpl.mesa
Copyright ╙ 1985, 1987, 1991, 1992 by Xerox Corporation.  All rights reserved.
Contents:  Utility routines to get and set values from buttons, labels, and text viewers.
Last edited by Bier on December 3, 1992 6:30 pm PST
Pier, June 30, 1992 2:05 pm PDT
Doug Wyatt, April 10, 1992 11:46 am PDT

changed from %6.3. KAP. August 18, 1986
changed to format, Bier, September 8, 1987
Assumes a rope of the form "[<real1>,<real2>]".
ReadRope: PUBLIC PROC [f: IO.STREAM, rope: Rope.ROPE] = {
Removes the given rope from the top of the stream. Used to remove formatting words and phrases from 3d files.  We are not interested in these strings but only in the data in between them.
Signals RopeNotOnTop if some other rope is on top.
c: CHAR;
endofstream: BOOL м FALSE;
FOR i: INT IN[1..Rope.Length[rope]] DO
c м IO.GetChar[f
! IO.EndOfStream => {endofstream м TRUE; CONTINUE}];
IF endofstream THEN 
SIGNAL RopeNotOnTop [IO.GetIndex[f], NIL, rope];
IF NOT c = Rope.Fetch[rope,i-1] THEN 
SIGNAL RopeNotOnTop [IO.GetIndex[f], Rope.FromChar[c], rope];
ENDLOOP;
};

A convenience function.  Equivalent to ReadBlank[f]; r _ ReadReal[f];
Reads, <SPACE>'s, <CR>'s, and <TAB>'s until something else is encountered.  Doesn't mind if no white space characters are found.  Treats comments as white space.
Reads digits up to the next ], <CR>, <SPACE> or <COMMA>.  Leaves these terminators on the stream.


This proc is designed to work around a bug in PopUpSelection2Impl which causes the owner of the input focus on the top of the InputFocus stack to become NIL and the viewer selection contents to become empty momentarily

Э╩e  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩKЪЬ	╧eЬBЩNKЪ╧nЬQЩYKЩ3KЩKЩ'KЩ ЧЪ╧k	Ш	JЪ	Ь+ЯЬЬ	ЬЬ	ЬЬЬШbKШ ЧЪЮЬЯЬЯШKЪЯЬЯЬШ=KЪЯЬЯШЧШ KЪЬЯЬЯЬШKЪЬЯЬШ$KШ ЧKЪЮЬЯЬЯЬЯЬЯЬЯЬЯЬШ]KШ ЪЮЬЯЬЯЬЯЬЯЬЯЬШNKЪЬЯЬ'Ш7KЪЬЯЬЯЬ	ЯЬЯЬ	ЯЬЯЬ
ЯЬЯЬЯЬШ~KЪЬШKШ ЧЪ
ЮЬЯЬЯЬЯЬЯЬШFKЪЬЯЬ'Ш;KЪ	ЬЯЬЯЬЯЬЯЬШ+KШ$KШ$KШ$KЪЬШKШ ЧЪЮЬЯЬЯЬЯЬЯЬЯЬШVKЪЬЯЬ'Ш7KЪЯЬЯЬШ(ЪЯЬШKЪЬЯЬ	ЯЬЯЬ
ЯЬЯЬЯЬШTKЪЯЬЯЬЯЬЯЬ
Ш$KЪЬШЧKЪЬШKШ ЧЪЮЬЯЬЯЬЯЬЯЬЯЬШNKЪЬЯЬШKЪ	Ь	ЯЬ
ЯЬЯЬЯЬШ/ЪЬЯЬШ+KЪЬ'Щ'KЪЬ*Щ*ЧKЪЬ*Ш*KЪЬШKШ ЧЪ
ЮЬЯЬЯЬЯЬЯЬШTKЪЬ/Щ/KЪЬЯЬ'Ш;KЪ	ЬЯЬЯЬЯЬЯЬШ!KШKШKШKШKШKЪЬ
ЯЬШKЪЬШKШ ЧЪЮЬЯЬЯЬ#Ш8KЪЬЯЬШKЪЬЯЬ4ШBKЪЬ+Ш+KШKШ ЧЪЮЬЯЬЯЬЯЬЯЬЯЬЩ9KЪЬ╗Щ╗KЪЬ2Щ2KЪЬЯЬЩKЪЬЯЬЯЬЩЪЯЬЯЬЯЬЯЩ&ЪЬЯЬ
ЩKЪЬ╨kr╧rЬЯЬЯЬЩ4ЧЪЯЬЯЬЩKЪЯЬЯЬЯЬЩ0ЧЪЯЬЯЬЯЬЩ%KЪЯЬЯЬ&Щ=ЧЧKЪЯЬЩKЪЬЩKЩ ЧЪЮЬЯЬЯЬЯЬЯЬЯЬШ;KЪЬEЩEKЪЬШKШKЪЬШKШ ЧЪЮ	ЬЯЬЯЬЯЬШ"KЪЬЯЬЯЬ
ЯЬЩбKЪЬЯЬЯЬШ KЪЬШKШ ЧЪЮЬЯЬЯЬЯЬЯЬЯЬШ3KЪЬ ЯЬЯЬЯЬ+ЩaKЪЬЯЬШKЪЬЯЬЯЬШЪЬ╧cЬЯЬШ3KЪЬЯЬЯЬЯЬШ+ЧKЪЯЬЯЬЯЬШKЪЯЬЯЬЯЬ(ШWKЪЬЯЬ	ЯЬЯЬШ!KЪЬШKШ ЧЪ
ЮЬЯЬЯЬЯЬЯЬШ;ЪЯЬЯШKЪЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬ	Ш-KЪЯЬЯЬ	ШЧKЪЬШЧKЩ Ъ
ЮЬЯЬЯЬЯЬЯЬШ<KЪЯЬШ!KШKЩ ЧKЪЬЯЬШKЪЬ'вШ?ЪЮЬЯЬЯЬЯЬЯЬвШNKЩ┌ЪЯЬЯЬШKШ1KЪЯЬЯЬЯЬЯЬЯЬв!Ш=KЪЯЬ	ЯЬЯЬвFШxKЪЯЬ&Ш1KЪЯЬШЧKЪЯЬЯЬв,Ш9KШЧKЩ KЪЯЬШKШ KШ KШ Ч ЕЧ      █  