Re: [BLACKBOX] Close message?

From: [at]} <Aubrey.McIntosh{>
Date: Thu, 13 Mar 2008 13:08:09 -0500

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

While there,

Would you take a moment to add and report:

        PROCEDURE (v: View) GetBackground (VAR color: Ports.Color);
        BEGIN
                color := Ports.RGBColor(2BH, 8BH, 22H);
        END GetBackground;



On Thu, Mar 13, 2008 at 12:49 PM, Douglas G. Danforth
<Danforth{([at]})nowhere.xy
> 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
>

-- 
-- 
Aubrey McIntosh, Ph.D.
1502 Devon Circle
Austin TX 78723-1814
http://home.grandecom.net/~amcintosh/aubrey/Search/
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1031149224_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFdoaWxlIHRoZXJlLFxwYXINClxwYXINCldvdWxk
IHlvdSB0YWtlIGEgbW9tZW50IHRvIGFkZCBhbmQgcmVwb3J0OlxwYXINClxwYXINClx0YWIgUFJP
Q0VEVVJFICh2OiBWaWV3KSBHZXRCYWNrZ3JvdW5kIChWQVIgY29sb3I6IFBvcnRzLkNvbG9yKTtc
cGFyDQpcdGFiIEJFR0lOXHBhcg0KXHRhYiBcdGFiIGNvbG9yIDo9ICBQb3J0cy5SR0JDb2xvcigy
QkgsIDhCSCwgMjJIKTtccGFyDQpcdGFiIEVORCBHZXRCYWNrZ3JvdW5kO1xwYXINClxwYXINClxw
YXINClxwYXINCk9uIFRodSwgTWFyIDEzLCAyMDA4IGF0IDEyOjQ5IFBNLCBEb3VnbGFzIEcuIERh
bmZvcnRoXHBhcg0KPERhbmZvcnRoQGdyZWVud29vZGZhcm0uY29tPiB3cm90ZTpccGFyDQo+IENo
cmlzLFxwYXINCj5ccGFyDQo+ICBUaGF0IGlzIHBlcmZlY3QhXHBhcg0KPlxwYXINCj4gIE9uZSBt
dXN0IGV4dGVuZCBWaWV3cy5GcmFtZSBmaXJzdFxwYXINCj4gICAgIFRZUEVccGFyDQo+ICAgICAg
ICBNeUZyYW1lID0gUE9JTlRFUiBUTyBSRUNPUkQoVmlld3MuRnJhbWUpIEVORDtccGFyDQo+ICBh
bmQgdGhlbiBpbXBsZW1lbnRccGFyDQo+XHBhcg0KPiAgICAgICAgIFBST0NFRFVSRSAodjogVmll
dykgR2V0TmV3RnJhbWUgKFZBUiBmOiBGcmFtZSk7XHBhcg0KPiAgICAgICAgIFZBUiBteUZyYW1l
OiBNeUZyYW1lO1xwYXINCj4gICAgIEJFR0lOXHBhcg0KPiAgICAgICAgIE5FVyhteUZyYW1lKTtc
cGFyDQo+ICAgICAgICAgZiA6PSBteUZyYW1lO1xwYXINCj4gICAgICAgICBkaXNwbGF5IDo9IFRS
VUVccGFyDQo+ICAgICBFTkQgR2V0TmV3RnJhbWU7XHBhcg0KPlxwYXINCj4gIGFuZFxwYXINCj5c
cGFyDQo+ICAgICBQUk9DRURVUkUgKGY6IE15RnJhbWUpIENsb3NlO1xwYXINCj4gICAgIEJFR0lO
XHBhcg0KPiAgICAgICAgIGRpc3BsYXkgOj0gRkFMU0U7XHBhcg0KPiAgICAgRU5EIENsb3NlO1xw
YXINCj5ccGFyDQo+ICBXaXRoIHRoZXNlIHR3byBwcm9jZWR1cmVzIGFuZCB3aXRob3V0IGFueSBw
b2xsaW5nIEkgbm93IGtub3cgaWYgbXlccGFyDQo+ICBkaXNwbGF5IGlzXHBhcg0KPiAgb3BlbiBv
ciBjbG9zZWQuXHBhcg0KPlxwYXINCj4gIFRoYW5rIHlvdSB2ZXJ5IG11Y2ghXHBhcg0KPlxwYXIN
Cj4gIC1Eb3VnIERhbmZvcnRoXHBhcg0KPlxwYXINCj5ccGFyDQo+XHBhcg0KPlxwYXINCj4gIENG
QiBTb2Z0d2FyZSB3cm90ZTpccGFyDQo+ICA+IFdpbmRvd3MuV2luZG93LmZyYW1lIGlzIGEgVmll
d3MuUm9vdEZyYW1lIHdoaWNoIGlzIGFuIGV4dGVuc2lvbiBvZlxwYXINCj4gID4gVmlld3MuRnJh
bWUuIEhlbmNlIHlvdSBtYXkgYmUgYWJsZSB0byBpbXBsZW1lbnQgeW91ciBvd24gdmVyc2lvbiBv
ZjpccGFyDQo+ICA+XHBhcg0KPiAgPiAoRnJvbSB0aGUgVmlld3MgZG9jdW1lbnRhdGlvbilccGFy
DQo+ICA+XHBhcg0KPiAgPiA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09
PT09PT09PT09PT1ccGFyDQo+ICA+IFBST0NFRFVSRSAoZjogRnJhbWUpIENsb3NlXHBhcg0KPiAg
PiBORVcsIEVNUFRZXHBhcg0KPiAgPiBQZXJmb3JtIGZpbmFsaXphdGlvbiBiZWZvcmUgdGhlIGZy
YW1lIGlzIHJlbW92ZWQuXHBhcg0KPiAgPiBBZnRlciBhIGNhbGwgdG8gQ2xvc2UsIGYudmlldyBh
bmQgZi5yaWRlciBhcmUgc2V0IHRvIE5JTCBhbmRccGFyDQo+ICA+IGYuQ29ubmVjdFRvKE5JTCkg
aXMgY2FsbGVkLlxwYXINCj4gID4gQ2xvc2UgaXMgY2FsbGVkIGludGVybmFsbHkuXHBhcg0KPiAg
PiA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1ccGFy
DQo+ICA+XHBhcg0KPiAgPiBSZWdhcmRzLFxwYXINCj4gID4gQ2hyaXNccGFyDQo+ICA+XHBhcg0K
PiAgPiBDaHJpcyBCdXJyb3dzXHBhcg0KPiAgPiBDRkIgU29mdHdhcmVccGFyDQo+ICA+IGh0dHA6
Ly93d3cuY2Zic29mdHdhcmUuY29tL2NwXHBhcg0KPiAgPlxwYXINCj5ccGFyDQo+XHBhcg0KPiAg
LS0tLVxwYXINCj4gIFRvIHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJ
R05PRkYgQkxBQ0tCT1giIHRvIExJU1RTRVJWQExJU1RTLk9CRVJPTi5DSFxwYXINCj5ccGFyDQpc
cGFyDQpccGFyDQpccGFyDQotLSBccGFyDQotLSBccGFyDQpBdWJyZXkgTWNJbnRvc2gsIFBoLkQu
XHBhcg0KMTUwMiBEZXZvbiBDaXJjbGVccGFyDQpBdXN0aW4gVFggNzg3MjMtMTgxNFxwYXINCmh0
dHA6Ly9ob21lLmdyYW5kZWNvbS5uZXQvfmFtY2ludG9zaC9hdWJyZXkvU2VhcmNoL1xwYXINClxw
YXINClxwYXINCi0tLS1ccGFyDQpUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBi
b2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0byBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hccGFyDQp9
----boundary-LibPST-iamunique-1031149224_-_---

Received on Thu Mar 13 2008 - 19:08:09 UTC