(unknown charset) Re: [BLACKBOX] Control for SETs

From: (unknown charset) unknown charset <no email>
Date: Mon, 28 May 2012 21:41:04 +0400

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

You will be surprised, but native Check Box controls do work for SET's

MODULE PrivSet;
        
        IMPORT Log;
        
        VAR
                s*: SET;
                
        PROCEDURE CheckNotifier* (op, from, to: INTEGER);
        BEGIN
                Log.Set(s); Log.Ln;
        END CheckNotifier;
        
BEGIN
        s:={};
END PrivSet.

and these <http://i.minus.com/ibjSJ1Vw0ZUONp.JPG> settings of CheckBox
controls works fine



On Mon, 28 May 2012 19:31:29 +0400, Campbell, Robert (SELEX GALILEO, UK)
<robert.d.campbell{([at]})nowhere.xy

> Has anyone developed (and published) a Control suitable for specifying
> the elements
> in a SET (or the bits in a computer register if you prefer)?
>
>
> I know that you can use a Check Box, but I wanted something a bit neater
> (32 Check Boxes
> rather clutters up a Form).
>
> Does anyone have a suitable example of such a Control in another
> language / environment from which I
> might copy the visual appearance?
>
>
> Regards
>
> Robert
> SELEX Galileo Ltd
> Registered Office: Sigma House, Christopher Martin Road, Basildon, Essex
> SS14 3EL
> A company registered in England & Wales. Company no. 02426132
> ********************************************************************
> This email and any attachments are confidential to the intended
> recipient and may also be privileged. If you are not the intended
> recipient please delete it from your system and notify the sender.
> You should not copy it or use it for any purpose nor disclose or
> distribute its contents to any other person.
> ********************************************************************
>
>
> ----
> To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to
> LISTSERV{([at]})nowhere.xy

-- 
Using Opera's revolutionary email client: http://www.opera.com/mail/
----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-347371391_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTFcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFlvdSB3aWxsIGJlIHN1cnByaXNlZCwgYnV0IG5h
dGl2ZSBDaGVjayBCb3ggY29udHJvbHMgZG8gd29yayBmb3IgU0VUJ3NccGFyDQpccGFyDQpNT0RV
TEUgUHJpdlNldDtccGFyDQpcdGFiIFxwYXINClx0YWIgSU1QT1JUIExvZztccGFyDQpcdGFiIFxw
YXINClx0YWIgVkFSXHBhcg0KXHRhYiBcdGFiIHMqOiBTRVQ7XHBhcg0KXHRhYiBcdGFiIFxwYXIN
Clx0YWIgUFJPQ0VEVVJFIENoZWNrTm90aWZpZXIqIChvcCwgZnJvbSwgdG86IElOVEVHRVIpO1xw
YXINClx0YWIgQkVHSU5ccGFyDQpcdGFiIFx0YWIgTG9nLlNldChzKTsgTG9nLkxuO1xwYXINClx0
YWIgRU5EIENoZWNrTm90aWZpZXI7XHBhcg0KXHRhYiBccGFyDQpCRUdJTlxwYXINClx0YWIgczo9
XHtcfTtccGFyDQpFTkQgUHJpdlNldC5ccGFyDQpccGFyDQphbmQgdGhlc2UgPGh0dHA6Ly9pLm1p
bnVzLmNvbS9pYmpTSjFWdzBaVU9OcC5KUEc+IHNldHRpbmdzIG9mIENoZWNrQm94ICBccGFyDQpj
b250cm9scyB3b3JrcyBmaW5lXHBhcg0KXHBhcg0KXHBhcg0KXHBhcg0KT24gTW9uLCAyOCBNYXkg
MjAxMiAxOTozMToyOSArMDQwMCwgQ2FtcGJlbGwsIFJvYmVydCAoU0VMRVggR0FMSUxFTywgVUsp
ICBccGFyDQo8cm9iZXJ0LmQuY2FtcGJlbGxAc2VsZXhnYWxpbGVvLmNvbT4gd3JvdGU6XHBhcg0K
XHBhcg0KPiBIYXMgYW55b25lICBkZXZlbG9wZWQgKGFuZCBwdWJsaXNoZWQpIGEgQ29udHJvbCBz
dWl0YWJsZSBmb3Igc3BlY2lmeWluZyAgXHBhcg0KPiB0aGUgZWxlbWVudHNccGFyDQo+IGluIGEg
U0VUIChvciB0aGUgYml0cyBpbiBhIGNvbXB1dGVyIHJlZ2lzdGVyIGlmIHlvdSBwcmVmZXIpP1xw
YXINCj5ccGFyDQo+XHBhcg0KPiBJIGtub3cgdGhhdCB5b3UgY2FuIHVzZSBhIENoZWNrIEJveCwg
YnV0IEkgd2FudGVkIHNvbWV0aGluZyBhIGJpdCBuZWF0ZXIgIFxwYXINCj4gKDMyIENoZWNrIEJv
eGVzXHBhcg0KPiByYXRoZXIgY2x1dHRlcnMgdXAgYSBGb3JtKS5ccGFyDQo+XHBhcg0KPiBEb2Vz
IGFueW9uZSBoYXZlIGEgc3VpdGFibGUgZXhhbXBsZSBvZiBzdWNoIGEgQ29udHJvbCBpbiBhbm90
aGVyICBccGFyDQo+IGxhbmd1YWdlIC8gZW52aXJvbm1lbnQgZnJvbSB3aGljaCBJXHBhcg0KPiBt
aWdodCBjb3B5IHRoZSB2aXN1YWwgYXBwZWFyYW5jZT9ccGFyDQo+XHBhcg0KPlxwYXINCj4gUmVn
YXJkc1xwYXINCj5ccGFyDQo+IFJvYmVydFxwYXINCj4gU0VMRVggR2FsaWxlbyBMdGRccGFyDQo+
IFJlZ2lzdGVyZWQgT2ZmaWNlOiBTaWdtYSBIb3VzZSwgQ2hyaXN0b3BoZXIgTWFydGluIFJvYWQs
IEJhc2lsZG9uLCBFc3NleCAgXHBhcg0KPiBTUzE0IDNFTFxwYXINCj4gQSBjb21wYW55IHJlZ2lz
dGVyZWQgaW4gRW5nbGFuZCAmIFdhbGVzLiAgQ29tcGFueSBuby4gMDI0MjYxMzJccGFyDQo+ICoq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqXHBhcg0KPiBUaGlzIGVtYWlsIGFuZCBhbnkgYXR0YWNobWVudHMgYXJlIGNvbmZp
ZGVudGlhbCB0byB0aGUgaW50ZW5kZWRccGFyDQo+IHJlY2lwaWVudCBhbmQgbWF5IGFsc28gYmUg
cHJpdmlsZWdlZC4gSWYgeW91IGFyZSBub3QgdGhlIGludGVuZGVkXHBhcg0KPiByZWNpcGllbnQg
cGxlYXNlIGRlbGV0ZSBpdCBmcm9tIHlvdXIgc3lzdGVtIGFuZCBub3RpZnkgdGhlIHNlbmRlci5c
cGFyDQo+IFlvdSBzaG91bGQgbm90IGNvcHkgaXQgb3IgdXNlIGl0IGZvciBhbnkgcHVycG9zZSBu
b3IgZGlzY2xvc2Ugb3JccGFyDQo+IGRpc3RyaWJ1dGUgaXRzIGNvbnRlbnRzIHRvIGFueSBvdGhl
ciBwZXJzb24uXHBhcg0KPiAqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKioqKlxwYXINCj5ccGFyDQo+XHBhcg0KPiAtLS0tXHBh
cg0KPiBUbyB1bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJM
QUNLQk9YIiB0byAgXHBhcg0KPiBMSVNUU0VSVkBMSVNUUy5PQkVST04uQ0hccGFyDQpccGFyDQpc
cGFyDQotLSBccGFyDQpVc2luZyBPcGVyYSdzIHJldm9sdXRpb25hcnkgZW1haWwgY2xpZW50OiBo
dHRwOi8vd3d3Lm9wZXJhLmNvbS9tYWlsL1xwYXINClxwYXINClxwYXINCi0tLS1ccGFyDQpUbyB1
bnN1YnNjcmliZSwgc2VuZCBhIG1lc3NhZ2Ugd2l0aCBib2R5ICJTSUdOT0ZGIEJMQUNLQk9YIiB0
byBMSVNUU0VSVkBMSVNUUy5PQn19ADM3OTAuNDY3NSk7
----boundary-LibPST-iamunique-347371391_-_---

Received on Mon May 28 2012 - 19:41:04 UTC