Re: [BLACKBOX] Close message?

From: [at]} <Robert>
Date: Tue, 11 Mar 2008 23:49:03 +0000

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

Doug

I have not thought about this for years, but maybe these fragments contain some
useful clues ...



TYPE
   CloseNotifier = POINTER TO RECORD (Sequencers.Notifier)
                       plotId : INTEGER
                     END;



PROCEDURE (c : CloseNotifier) Notify (VAR msg : Sequencers.Message);
   BEGIN
     WITH msg : Sequencers.CloseMsg DO
        ###########
     ELSE
     END
   END Notify;





   VAR
     cNotif : CloseNotifier;


   BEGIN
     c := Containers.Focus ();
     IF c # NIL THEN c.GetFirstView (Containers.any, v) END;

     IF (v # NIL) & (v IS Plotters.View) THEN
       NEW (cNotif); cNotif.plotId := 1;
       v.Domain ().GetSequencer ()(Sequencers.Sequencer).InstallNotifier
(cNotif) END;


Robert


Douglas G. Danforth wrote:
> Folks,
> How can I receive a "close message" when the user presses the
> close icon (little x in the upper right corner of a window)?
>
> I have the Views.View and Windows.Window pointers to the
> window that I opened. But where and how and what name
> is used to signal me that the window has been closed?
> Views.HandleCtrlMsg?
>
> I don't see it in View, Windows, Properties, Controls, ...
>
> (Message, message everywhere but not a one to close)
>
> -Doug Danforth
>
>
> ----
> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> LISTSERV{([at]})nowhere.xy
>
>

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-109148856_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIERvdWdccGFyDQpccGFyDQpJIGhhdmUgbm90IHRo
b3VnaHQgYWJvdXQgdGhpcyBmb3IgeWVhcnMsIGJ1dCBtYXliZSB0aGVzZSBmcmFnbWVudHMgY29u
dGFpbiBzb21lIFxwYXINCnVzZWZ1bCBjbHVlcyAuLi5ccGFyDQpccGFyDQpccGFyDQpccGFyDQpU
WVBFXHBhcg0KICAgQ2xvc2VOb3RpZmllciAgPSAgUE9JTlRFUiBUTyBSRUNPUkQgKFNlcXVlbmNl
cnMuTm90aWZpZXIpXHBhcg0KICAgICAgICAgICAgICAgICAgICAgICBwbG90SWQgIDogIElOVEVH
RVJccGFyDQogICAgICAgICAgICAgICAgICAgICBFTkQ7XHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0K
UFJPQ0VEVVJFIChjIDogQ2xvc2VOb3RpZmllcikgTm90aWZ5IChWQVIgbXNnIDogU2VxdWVuY2Vy
cy5NZXNzYWdlKTtccGFyDQogICBCRUdJTlxwYXINCiAgICAgV0lUSCAgbXNnIDogU2VxdWVuY2Vy
cy5DbG9zZU1zZyAgRE9ccGFyDQogICAgICAgICMjIyMjIyMjIyMjXHBhcg0KICAgICBFTFNFXHBh
cg0KICAgICBFTkRccGFyDQogICBFTkQgTm90aWZ5O1xwYXINClxwYXINClxwYXINClxwYXINClxw
YXINClxwYXINCiAgIFZBUlxwYXINCiAgICAgY05vdGlmICAgICAgOiAgQ2xvc2VOb3RpZmllcjtc
cGFyDQpccGFyDQpccGFyDQogICBCRUdJTlxwYXINCiAgICAgYyAgOj0gIENvbnRhaW5lcnMuRm9j
dXMgKCk7XHBhcg0KICAgICBJRiAgYyAgIyAgTklMICBUSEVOICBjLkdldEZpcnN0VmlldyAoQ29u
dGFpbmVycy5hbnksIHYpICBFTkQ7XHBhcg0KXHBhcg0KICAgICBJRiAgKHYgICMgIE5JTCkgICYg
ICh2ICBJUyAgUGxvdHRlcnMuVmlldykgIFRIRU5ccGFyDQogICAgICAgTkVXIChjTm90aWYpOyAg
Y05vdGlmLnBsb3RJZCAgOj0gIDE7XHBhcg0KICAgICAgIHYuRG9tYWluICgpLkdldFNlcXVlbmNl
ciAoKShTZXF1ZW5jZXJzLlNlcXVlbmNlcikuSW5zdGFsbE5vdGlmaWVyIFxwYXINCihjTm90aWYp
ICBFTkQ7XHBhcg0KXHBhcg0KXHBhcg0KUm9iZXJ0XHBhcg0KXHBhcg0KXHBhcg0KRG91Z2xhcyBH
LiBEYW5mb3J0aCB3cm90ZTpccGFyDQo+IEZvbGtzLFxwYXINCj4gSG93IGNhbiBJIHJlY2VpdmUg
YSAiY2xvc2UgbWVzc2FnZSIgd2hlbiB0aGUgdXNlciBwcmVzc2VzIHRoZVxwYXINCj4gY2xvc2Ug
IGljb24gKGxpdHRsZSB4IGluIHRoZSB1cHBlciByaWdodCBjb3JuZXIgb2YgYSB3aW5kb3cpP1xw
YXINCj4gXHBhcg0KPiBJIGhhdmUgdGhlIFZpZXdzLlZpZXcgYW5kIFdpbmRvd3MuV2luZG93IHBv
aW50ZXJzIHRvIHRoZVxwYXINCj4gd2luZG93IHRoYXQgSSBvcGVuZWQuICBCdXQgd2hlcmUgYW5k
IGhvdyBhbmQgd2hhdCBuYW1lXHBhcg0KPiBpcyB1c2VkIHRvIHNpZ25hbCBtZSB0aGF0IHRoZSB3
aW5kb3cgaGFzIGJlZW4gY2xvc2VkP1xwYXINCj4gVmlld3MuSGFuZGxlQ3RybE1zZz9ccGFyDQo+
IFxwYXINCj4gSSBkb24ndCBzZWUgaXQgaW4gVmlldywgV2luZG93cywgUHJvcGVydGllcywgQ29u
dHJvbHMsIC4uLlxwYXINCj4gXHBhcg0KPiAoTWVzc2FnZSwgbWVzc2FnZSBldmVyeXdoZXJlIGJ1
dCBub3QgYSBvbmUgdG8gY2xvc2UpXHBhcg0KPiBccGFyDQo+IC1Eb3VnIERhbmZvcnRoXHBhcg0K
PiBccGFyDQo+IFxwYXINCj4gLS0tLVxwYXINCj4gVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNz
YWdlIHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gXHBhcg0KPiBMSVNUU0VSVkBMSVNU
Uy5PQkVST04uQ0hccGFyDQo+IFxwYXINCj4gXHBhcg0KXHBhcg0KXHBhcg0KLS0tLVxwYXINClRv
IHVuc3Vic2NyaWJlLCBzZW5kIGEgbWVzc2FnZSB3aXRoIGJvZHkgIlNJR05PRkYgQkxBQ0tCT1gi
IHRvIExJU1RTRVJWQExJU1RTLk9CfX0Ac3VsdDogTm8tLTI=
----boundary-LibPST-iamunique-109148856_-_---

Received on Wed Mar 12 2008 - 00:49:03 UTC