[BLACKBOX] New document view, different size

From: [at]} <Rainer>
Date: Fri, 21 Aug 2009 15:56:21 +0200

----boundary-LibPST-iamunique-529807647_-_-
Content-type: text/plain

Hi all,
some times ago there was a question on the mailing list how to open a
new document window with size and height being different to the
standard values. I need this behaviour to display a couple of very
short lines of text and to free the user from having to manually
shrink down the window size.

A second topic on the list ("updating a text window") showed up how
to update the window in order to show the end of text.

So I tried to combine these infos into a little module.

Problem: the window containing some lines of text showes a strange
behaviour when being narrowed down manually until the window width is
smaller than the length of the lines. In this case an additional
blank line appears below every line of text exceeding the window
width. Of course these blank lines do not exist and will disappear
again when the window width is made large enougth to show the lines
of text in full length.

Could anybody please give me a hint how to avoid this behaviour ?
Please find my code below.

Thanks and best regards,
Rainer



MODULE TrialsNewWindow;

        IMPORT Containers, Documents, Ports, TextMappers, Models,
TextModels, TextViews, Views;

        VAR
        f: TextMappers.Formatter;
        m: TextModels.Model;
        v: TextViews.View;
        

        PROCEDURE Flush*;
        BEGIN
                Views.RestoreDomain (m.Domain ());
                TextViews.ShowRange (m, m.Length (), m.Length (), TextViews.any)
        END Flush;


        PROCEDURE OpenWindow*;
                VAR
                        d: Documents.Document;
                        c: Containers.Controller;
        BEGIN
                m := TextModels.dir.New ();
                f.ConnectTo (m);
                v := TextViews.dir.New (m);
                d := Documents.dir.New (v, 30 * Ports.mm, 60 * Ports.mm);
                c := d.ThisController ();
                c.SetOpts (c.opts + {Documents.winWidth} - {Documents.pageWidth});
                Views.OpenView (d)
        END OpenWindow;


        PROCEDURE WriteLn*;
        BEGIN
                Models.BeginModification (Models.clean, m);
                f.WriteLn;
                Models.EndModification (Models.clean, m);
                Views.RestoreDomain (m.Domain ());
                TextViews.ShowRange (m, m.Length (), m.Length (), TextViews.any)
        END WriteLn;

        PROCEDURE WriteString* (IN string: ARRAY OF CHAR);
        BEGIN
                Models.BeginModification (Models.clean, m);
                f.WriteString (string);
                Models.EndModification (Models.clean, m);
                Views.RestoreDomain (m.Domain ());
                TextViews.ShowRange (m, m.Length (), m.Length (), TextViews.any)
        END WriteString;

BEGIN
END TrialsNewWindow.

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-529807647_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEhpIGFsbCxccGFyDQpzb21lIHRpbWVzIGFnbyB0
aGVyZSB3YXMgYSBxdWVzdGlvbiBvbiB0aGUgbWFpbGluZyBsaXN0IGhvdyB0byBvcGVuIGEgIFxw
YXINCm5ldyBkb2N1bWVudCB3aW5kb3cgd2l0aCBzaXplIGFuZCBoZWlnaHQgYmVpbmcgZGlmZmVy
ZW50IHRvIHRoZSAgXHBhcg0Kc3RhbmRhcmQgdmFsdWVzLiBJIG5lZWQgdGhpcyBiZWhhdmlvdXIg
dG8gZGlzcGxheSBhIGNvdXBsZSBvZiB2ZXJ5ICBccGFyDQpzaG9ydCBsaW5lcyBvZiB0ZXh0IGFu
ZCB0byBmcmVlIHRoZSB1c2VyIGZyb20gaGF2aW5nIHRvIG1hbnVhbGx5ICBccGFyDQpzaHJpbmsg
ZG93biB0aGUgd2luZG93IHNpemUuXHBhcg0KXHBhcg0KQSBzZWNvbmQgdG9waWMgb24gdGhlIGxp
c3QgKCJ1cGRhdGluZyBhIHRleHQgd2luZG93Iikgc2hvd2VkIHVwIGhvdyAgXHBhcg0KdG8gdXBk
YXRlIHRoZSB3aW5kb3cgaW4gb3JkZXIgdG8gc2hvdyB0aGUgZW5kIG9mIHRleHQuXHBhcg0KXHBh
cg0KU28gSSB0cmllZCB0byBjb21iaW5lIHRoZXNlIGluZm9zIGludG8gYSBsaXR0bGUgbW9kdWxl
LlxwYXINClxwYXINClByb2JsZW06IHRoZSB3aW5kb3cgY29udGFpbmluZyBzb21lIGxpbmVzIG9m
IHRleHQgc2hvd2VzIGEgc3RyYW5nZSAgXHBhcg0KYmVoYXZpb3VyIHdoZW4gYmVpbmcgbmFycm93
ZWQgZG93biBtYW51YWxseSB1bnRpbCB0aGUgd2luZG93IHdpZHRoIGlzICBccGFyDQpzbWFsbGVy
IHRoYW4gdGhlIGxlbmd0aCBvZiB0aGUgbGluZXMuIEluIHRoaXMgY2FzZSBhbiBhZGRpdGlvbmFs
ICBccGFyDQpibGFuayBsaW5lIGFwcGVhcnMgYmVsb3cgZXZlcnkgbGluZSBvZiB0ZXh0IGV4Y2Vl
ZGluZyB0aGUgd2luZG93ICBccGFyDQp3aWR0aC4gT2YgY291cnNlIHRoZXNlIGJsYW5rIGxpbmVz
IGRvIG5vdCBleGlzdCBhbmQgd2lsbCBkaXNhcHBlYXIgIFxwYXINCmFnYWluIHdoZW4gdGhlIHdp
bmRvdyB3aWR0aCBpcyBtYWRlIGxhcmdlIGVub3VndGggdG8gc2hvdyB0aGUgbGluZXMgIFxwYXIN
Cm9mIHRleHQgaW4gZnVsbCBsZW5ndGguXHBhcg0KXHBhcg0KQ291bGQgYW55Ym9keSBwbGVhc2Ug
Z2l2ZSBtZSBhIGhpbnQgaG93IHRvIGF2b2lkIHRoaXMgYmVoYXZpb3VyID9ccGFyDQpQbGVhc2Ug
ZmluZCBteSBjb2RlIGJlbG93LlxwYXINClxwYXINClRoYW5rcyBhbmQgYmVzdCByZWdhcmRzLFxw
YXINClJhaW5lclxwYXINClxwYXINClxwYXINClxwYXINCk1PRFVMRSBUcmlhbHNOZXdXaW5kb3c7
XHBhcg0KXHBhcg0KXHRhYiBJTVBPUlQgQ29udGFpbmVycywgRG9jdW1lbnRzLCBQb3J0cywgVGV4
dE1hcHBlcnMsIE1vZGVscywgIFxwYXINClRleHRNb2RlbHMsIFRleHRWaWV3cywgVmlld3M7XHBh
cg0KXHBhcg0KXHRhYiBWQVJccGFyDQpcdGFiIGY6IFRleHRNYXBwZXJzLkZvcm1hdHRlcjtccGFy
DQpcdGFiIG06IFRleHRNb2RlbHMuTW9kZWw7XHBhcg0KXHRhYiB2OiBUZXh0Vmlld3MuVmlldztc
cGFyDQpcdGFiIFxwYXINClxwYXINClx0YWIgUFJPQ0VEVVJFIEZsdXNoKjtccGFyDQpcdGFiIEJF
R0lOXHBhcg0KXHRhYiBcdGFiIFZpZXdzLlJlc3RvcmVEb21haW4gKG0uRG9tYWluICgpKTtccGFy
DQpcdGFiIFx0YWIgVGV4dFZpZXdzLlNob3dSYW5nZSAobSwgbS5MZW5ndGggKCksIG0uTGVuZ3Ro
ICgpLCBUZXh0Vmlld3MuYW55KVxwYXINClx0YWIgRU5EIEZsdXNoO1xwYXINClxwYXINClxwYXIN
Clx0YWIgUFJPQ0VEVVJFIE9wZW5XaW5kb3cqO1xwYXINClx0YWIgXHRhYiBWQVJccGFyDQpcdGFi
IFx0YWIgXHRhYiBkOiBEb2N1bWVudHMuRG9jdW1lbnQ7XHBhcg0KXHRhYiBcdGFiIFx0YWIgYzog
Q29udGFpbmVycy5Db250cm9sbGVyO1xwYXINClx0YWIgQkVHSU5ccGFyDQpcdGFiIFx0YWIgbSA6
PSBUZXh0TW9kZWxzLmRpci5OZXcgKCk7XHBhcg0KXHRhYiBcdGFiIGYuQ29ubmVjdFRvIChtKTtc
cGFyDQpcdGFiIFx0YWIgdiA6PSBUZXh0Vmlld3MuZGlyLk5ldyAobSk7XHBhcg0KXHRhYiBcdGFi
IGQgOj0gRG9jdW1lbnRzLmRpci5OZXcgKHYsIDMwICogUG9ydHMubW0sIDYwICogUG9ydHMubW0p
O1xwYXINClx0YWIgXHRhYiBjIDo9IGQuVGhpc0NvbnRyb2xsZXIgKCk7XHBhcg0KXHRhYiBcdGFi
IGMuU2V0T3B0cyAoYy5vcHRzICsgXHtEb2N1bWVudHMud2luV2lkdGhcfSAtIFx7RG9jdW1lbnRz
LnBhZ2VXaWR0aFx9KTtccGFyDQpcdGFiIFx0YWIgVmlld3MuT3BlblZpZXcgKGQpXHBhcg0KXHRh
YiBFTkQgT3BlbldpbmRvdztccGFyDQpccGFyDQpccGFyDQpcdGFiIFBST0NFRFVSRSBXcml0ZUxu
KjtccGFyDQpcdGFiIEJFR0lOXHBhcg0KXHRhYiBcdGFiIE1vZGVscy5CZWdpbk1vZGlmaWNhdGlv
biAoTW9kZWxzLmNsZWFuLCBtKTtccGFyDQpcdGFiIFx0YWIgZi5Xcml0ZUxuO1xwYXINClx0YWIg
XHRhYiBNb2RlbHMuRW5kTW9kaWZpY2F0aW9uIChNb2RlbHMuY2xlYW4sIG0pO1xwYXINClx0YWIg
XHRhYiBWaWV3cy5SZXN0b3JlRG9tYWluIChtLkRvbWFpbiAoKSk7XHBhcg0KXHRhYiBcdGFiIFRl
eHRWaWV3cy5TaG93UmFuZ2UgKG0sIG0uTGVuZ3RoICgpLCBtLkxlbmd0aCAoKSwgVGV4dFZpZXdz
LmFueSlccGFyDQpcdGFiIEVORCBXcml0ZUxuO1xwYXINClxwYXINClx0YWIgUFJPQ0VEVVJFIFdy
aXRlU3RyaW5nKiAoSU4gc3RyaW5nOiBBUlJBWSBPRiBDSEFSKTtccGFyDQpcdGFiIEJFR0lOXHBh
cg0KXHRhYiBcdGFiIE1vZGVscy5CZWdpbk1vZGlmaWNhdGlvbiAoTW9kZWxzLmNsZWFuLCBtKTtc
cGFyDQpcdGFiIFx0YWIgZi5Xcml0ZVN0cmluZyAoc3RyaW5nKTtccGFyDQpcdGFiIFx0YWIgTW9k
ZWxzLkVuZE1vZGlmaWNhdGlvbiAoTW9kZWxzLmNsZWFuLCBtKTtccGFyDQpcdGFiIFx0YWIgVmll
d3MuUmVzdG9yZURvbWFpbiAobS5Eb21haW4gKCkpO1xwYXINClx0YWIgXHRhYiBUZXh0Vmlld3Mu
U2hvd1JhbmdlIChtLCBtLkxlbmd0aCAoKSwgbS5MZW5ndGggKCksIFRleHRWaWV3cy5hbnkpXHBh
cg0KXHRhYiBFTkQgV3JpdGVTdHJpbmc7XHBhcg0KXHBhcg0KQkVHSU5ccGFyDQpFTkQgVHJpYWxz
TmV3V2luZG93LlxwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2Vu
ZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNU
Uy5PQkVST04uQ0hccGFyDQp9
----boundary-LibPST-iamunique-529807647_-_---

Received on Fri Aug 21 2009 - 15:56:21 UTC