Re: [BLACKBOX] AW: [BLACKBOX] limiting integer values in interactor field

From: [at]} <Robert>
Date: Tue, 12 Jan 2010 20:48:03 +0000

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

On 12/01/2010 17:08, Bernhardt, Gunnar wrote:
> Folks,
>
> thank you for the feedback on this one!

> {([at]})nowhere.xy


I attach below an example from one of my Modules:


TYPE
   Notifier = POINTER TO RECORD (Services.Action)
                  from, to : INTEGER
                END;

PROCEDURE Notify* (op, from, to : INTEGER);
   BEGIN
     IF op = Dialog.changed THEN
       ...
       Dialog.Update (dlg)
     END
   END Notify;

PROCEDURE NotifyLater* (op, from, to : INTEGER);
   BEGIN
     IF op = Dialog.changed THEN
       Services.RemoveAction (notifier);
       notifier.from := from;
       notifier.to := to;
       Services.DoLater (notifier, Services.Ticks () + Services.resolution)
     END
   END NotifyLater;

PROCEDURE (notifier : Notifier) Do;
   BEGIN
     Notify (Dialog.changed, notifier.from, notifier.to)
   END Do;


Regards

Robert


----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-2008863522_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIE9uIDEyLzAxLzIwMTAgMTc6MDgsIEJlcm5oYXJk
dCwgR3VubmFyIHdyb3RlOlxwYXINCj4gRm9sa3MsXHBhcg0KPlxwYXINCj4gdGhhbmsgeW91IGZv
ciB0aGUgZmVlZGJhY2sgb24gdGhpcyBvbmUhXHBhcg0KXHBhcg0KPiBAUm9iZXJ0OiBEZWxheWlu
ZyB0aGUgdmFsaWRpdHkgY2hlY2sgKGFuZCB0aGUgc3Vic2VxdWVudCBjYWxjdWxhdGlvbnMpIHdp
dGggU2VydmljZXMuQWN0aW9uIG1pZ2h0IGp1c3QgYmUgZWFzeSBlbm91Z2ggZm9yIG1lIHRvIGdp
dmUgaXQgYSB0cnkuIDotKVxwYXINClxwYXINClxwYXINCkkgYXR0YWNoIGJlbG93IGFuIGV4YW1w
bGUgZnJvbSBvbmUgb2YgbXkgTW9kdWxlczpccGFyDQpccGFyDQpccGFyDQpUWVBFXHBhcg0KICAg
Tm90aWZpZXIgID0gIFBPSU5URVIgIFRPICBSRUNPUkQgKFNlcnZpY2VzLkFjdGlvbilccGFyDQog
ICAgICAgICAgICAgICAgICBmcm9tLCB0byAgOiAgSU5URUdFUlxwYXINCiAgICAgICAgICAgICAg
ICBFTkQ7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFICBOb3RpZnkqIChvcCwgZnJvbSwgdG8gOiBJTlRF
R0VSKTtccGFyDQogICBCRUdJTlxwYXINCiAgICAgSUYgIG9wICA9ICBEaWFsb2cuY2hhbmdlZCAg
VEhFTlxwYXINCiAgICAgICAuLi5ccGFyDQogICAgICAgRGlhbG9nLlVwZGF0ZSAoZGxnKVxwYXIN
CiAgICAgRU5EXHBhcg0KICAgRU5EICBOb3RpZnk7XHBhcg0KXHBhcg0KUFJPQ0VEVVJFICBOb3Rp
ZnlMYXRlciogKG9wLCBmcm9tLCB0byA6IElOVEVHRVIpO1xwYXINCiAgIEJFR0lOXHBhcg0KICAg
ICBJRiAgb3AgID0gIERpYWxvZy5jaGFuZ2VkICBUSEVOXHBhcg0KICAgICAgIFNlcnZpY2VzLlJl
bW92ZUFjdGlvbiAobm90aWZpZXIpO1xwYXINCiAgICAgICBub3RpZmllci5mcm9tICA6PSAgZnJv
bTtccGFyDQogICAgICAgbm90aWZpZXIudG8gICAgOj0gIHRvO1xwYXINCiAgICAgICBTZXJ2aWNl
cy5Eb0xhdGVyIChub3RpZmllciwgU2VydmljZXMuVGlja3MgKCkgKyBTZXJ2aWNlcy5yZXNvbHV0
aW9uKVxwYXINCiAgICAgRU5EXHBhcg0KICAgRU5EICBOb3RpZnlMYXRlcjtccGFyDQpccGFyDQpQ
Uk9DRURVUkUgKG5vdGlmaWVyIDogTm90aWZpZXIpIERvO1xwYXINCiAgIEJFR0lOXHBhcg0KICAg
ICBOb3RpZnkgKERpYWxvZy5jaGFuZ2VkLCBub3RpZmllci5mcm9tLCBub3RpZmllci50bylccGFy
DQogICBFTkQgIERvO1xwYXINClxwYXINClxwYXINClJlZ2FyZHNccGFyDQpccGFyDQpSb2JlcnRc
cGFyDQpccGFyDQpccGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdl
IHdpdGggYm9keSAiU0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNI
fX0AAEQQAA==
----boundary-LibPST-iamunique-2008863522_-_---
Received on Tue Jan 12 2010 - 21:48:03 UTC

This archive was generated by hypermail 2.3.0 : Thu Sep 26 2013 - 06:30:37 UTC