Re: [BLACKBOX] Close message?

From: Douglas G. Danforth <"Douglas>
Date: Thu, 13 Mar 2008 10:49:56 -0700

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

Chris,

That is perfect!

One must extend Views.Frame first
    TYPE
       MyFrame = POINTER TO RECORD(Views.Frame) END;
and then implement

        PROCEDURE (v: View) GetNewFrame (VAR f: Frame);
        VAR myFrame: MyFrame;
    BEGIN
        NEW(myFrame);
        f := myFrame;
        display := TRUE
    END GetNewFrame;

and

    PROCEDURE (f: MyFrame) Close;
    BEGIN
        display := FALSE;
    END Close;
   
With these two procedures and without any polling I now know if my
display is
open or closed.

Thank you very much!

-Doug Danforth


CFB Software wrote:
> Windows.Window.frame is a Views.RootFrame which is an extension of
> Views.Frame. Hence you may be able to implement your own version of:
>
> (From the Views documentation)
>
> ===================================================
> PROCEDURE (f: Frame) Close
> NEW, EMPTY
> Perform finalization before the frame is removed.
> After a call to Close, f.view and f.rider are set to NIL and
> f.ConnectTo(NIL) is called.
> Close is called internally.
> ===================================================
>
> Regards,
> Chris
>
> Chris Burrows
> CFB Software
> http://www.cfbsoftware.com/cp
>

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-43315283_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIENocmlzLFxwYXINClxwYXINClRoYXQgaXMgcGVy
ZmVjdCFccGFyDQpccGFyDQpPbmUgbXVzdCBleHRlbmQgVmlld3MuRnJhbWUgZmlyc3RccGFyDQog
ICAgVFlQRVxwYXINCiAgICAgICBNeUZyYW1lID0gUE9JTlRFUiBUTyBSRUNPUkQoVmlld3MuRnJh
bWUpIEVORDtccGFyDQphbmQgdGhlbiBpbXBsZW1lbnRccGFyDQpccGFyDQogICAgICAgIFBST0NF
RFVSRSAodjogVmlldykgR2V0TmV3RnJhbWUgKFZBUiBmOiBGcmFtZSk7XHBhcg0KICAgICAgICBW
QVIgbXlGcmFtZTogTXlGcmFtZTtccGFyDQogICAgQkVHSU5ccGFyDQogICAgICAgIE5FVyhteUZy
YW1lKTtccGFyDQogICAgICAgIGYgOj0gbXlGcmFtZTtccGFyDQogICAgICAgIGRpc3BsYXkgOj0g
VFJVRVxwYXINCiAgICBFTkQgR2V0TmV3RnJhbWU7XHBhcg0KXHBhcg0KYW5kXHBhcg0KXHBhcg0K
ICAgIFBST0NFRFVSRSAoZjogTXlGcmFtZSkgQ2xvc2U7XHBhcg0KICAgIEJFR0lOXHBhcg0KICAg
ICAgICBkaXNwbGF5IDo9IEZBTFNFO1xwYXINCiAgICBFTkQgQ2xvc2U7XHBhcg0KICAgXHBhcg0K
V2l0aCB0aGVzZSB0d28gcHJvY2VkdXJlcyBhbmQgd2l0aG91dCBhbnkgcG9sbGluZyBJIG5vdyBr
bm93IGlmIG15IFxwYXINCmRpc3BsYXkgaXNccGFyDQpvcGVuIG9yIGNsb3NlZC5ccGFyDQpccGFy
DQpUaGFuayB5b3UgdmVyeSBtdWNoIVxwYXINClxwYXINCi1Eb3VnIERhbmZvcnRoXHBhcg0KXHBh
cg0KXHBhcg0KQ0ZCIFNvZnR3YXJlIHdyb3RlOlxwYXINCj4gV2luZG93cy5XaW5kb3cuZnJhbWUg
aXMgYSBWaWV3cy5Sb290RnJhbWUgd2hpY2ggaXMgYW4gZXh0ZW5zaW9uIG9mXHBhcg0KPiBWaWV3
cy5GcmFtZS4gSGVuY2UgeW91IG1heSBiZSBhYmxlIHRvIGltcGxlbWVudCB5b3VyIG93biB2ZXJz
aW9uIG9mOlxwYXINCj5ccGFyDQo+IChGcm9tIHRoZSBWaWV3cyBkb2N1bWVudGF0aW9uKVxwYXIN
Cj5ccGFyDQo+ID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PVxwYXINCj4gUFJPQ0VEVVJFIChmOiBGcmFtZSkgQ2xvc2VccGFyDQo+IE5FVywgRU1QVFlc
cGFyDQo+IFBlcmZvcm0gZmluYWxpemF0aW9uIGJlZm9yZSB0aGUgZnJhbWUgaXMgcmVtb3ZlZC5c
cGFyDQo+IEFmdGVyIGEgY2FsbCB0byBDbG9zZSwgZi52aWV3IGFuZCBmLnJpZGVyIGFyZSBzZXQg
dG8gTklMIGFuZFxwYXINCj4gZi5Db25uZWN0VG8oTklMKSBpcyBjYWxsZWQuXHBhcg0KPiBDbG9z
ZSBpcyBjYWxsZWQgaW50ZXJuYWxseS5ccGFyDQo+ID09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT09PT09PT09PT09PT09PVxwYXINCj5ccGFyDQo+IFJlZ2FyZHMsXHBhcg0KPiBD
aHJpc1xwYXINCj5ccGFyDQo+IENocmlzIEJ1cnJvd3NccGFyDQo+IENGQiBTb2Z0d2FyZVxwYXIN
Cj4gaHR0cDovL3d3dy5jZmJzb2Z0d2FyZS5jb20vY3BccGFyDQo+ICAgXHBhcg0KXHBhcg0KXHBh
cg0KLS0tLVxwYXINClRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJ
R05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSH19AGZvcm0=
----boundary-LibPST-iamunique-43315283_-_---

Received on Thu Mar 13 2008 - 18:49:56 UTC