The edge seems to be 12 pixels wide.
This may be due to incorrect clipping or to incorrect window size reporting.
If one creates a view of size (w, h) using
Code: Select all
PROCEDURE (v: View) HandlePropMsg- (VAR msg: Properties.Message);
VAR
w, h: INTEGER;
stretch: BOOLEAN;
BEGIN
WITH msg: Properties.FocusPref DO
msg.setFocus := TRUE
| msg: Properties.SizePref DO
IF v.ReadSize(w, h) THEN
msg.w := w * HostWindows.unit;
msg.h := h * HostWindows.unit
END
| msg: Properties.ResizePref DO
IF v.ReadStretch(stretch) & stretch THEN
msg.horFitToWin := TRUE; msg.verFitToWin := TRUE
ELSE
msg.horFitToWin := FALSE; msg.verFitToWin := FALSE
END
ELSE
END
END HandlePropMsg;
Code: Select all
VAR win: HostWindows.Window;
win.GetSize(nWidth, nHeight);
Even that would be OK (kind of) if one could write into all of (nWidth, nHeight) but one can't.
One must provide an "adjustment" that either scales the whole window or changes the effective window size.
That should not be necessary and I consider this to be a bug.
-Doug