[GUI] Example for thought

[David Sankel]

--0-1228435925-1049388834=:140
Content-Type: text/plain; charset=us-ascii
Content-Id: 
Content-Disposition: inline

--- David Sankel <camio@yahoo.com> wrote:
> What would a haskell solution look like?  In my
> opinion this functionality would be very desirable
> if
> not required.
> 
Here is one solution using normal MVars.  It is IMHO
uglier than the c++ version.  I think creating an
extention of MVars to allow callbacks on change and
syncronized variables would be very nice with this
example problem.  I would also suggest removing the
empty MVar status.
--0-1228435925-1049388834=:140
Content-Type: application/octet-stream; name="Test.hs"
Content-Transfer-Encoding: base64
Content-Description: Test.hs
Content-Disposition: attachment; filename="Test.hs"

bW9kdWxlIG1haW4obWFpbikgd2hlcmUKCmltcG9ydCBDR0EuU3BpbkJveApp
bXBvcnQgQ0dBLldpbmRvdwoKbWFpbiA9IGNnYUJlZ2luICQgZG8KICBteUlu
dCA8LSBuZXdNVmFyIE15SW50IDQgW10gLS1UaGUgaW5pdGlhbCB2YWx1ZSBv
ZiBpbnQgdmFyaWFibGUKICBkb09uQ2hhbmdlIG15SW50IChkbwogICAgICAg
ICAgICAgICAgICAgICAgIGEgPC0gZ2V0VmFsIG15SW50CiAgICAgICAgICAg
ICAgICAgICAgICAgcHV0U3RyIChzaG93IGEpCiAgICAgICAgICAgICAgICAg
ICAgKSAtLVRoaXMgc2hvd3MgbXlJbnQgb24gdGhlIHNjcmVlbiB3aGVuZXZl
ciBpdCBpcyBjaGFuZ2VkCiAgLS0gVGhlIGZvbGxvd2luZyB0d28gbGluZXMg
cHV0IHRoZSBNeUludCBpbnRlcmZhY2UgaW4gYSB3aW5kb3cKICBpbnRlcmZh
Y2UgPC0gbWFrZV9pbnRlcmZhY2UgbXlJbnQgCiAgd2luZG93IDwtIG5ld1dp
bmRvdyBbIHRpdGxlIDo9ICJzcGluYm94IHRlc3QiLCBhZGRDaGlsZCA6PSBp
bnRlcmZhY2UgXQoKY2xhc3MgT2JqZWN0IGEgd2hlcmUKICBtYWtlX2ludGVy
ZmFjZSA6OiBNVmFyIGEgLT4gV2lkZ2V0IGIKICBkb09uQ2hhbmdlLSAgICA6
OiBNVmFyIGEgLT4gKElPICgpKSAtPiBJTyAoKQoKZGF0YSBNeUludCA9IE15
SW50IEludCBbKElPKCkpXQoKZ2V0VmFsIDo6IE1WYXIgTXlJbnQgLT4gSU8o
IEludCApCmdldFZhbCB0aGVpbnQgPQogIE15SW50IGEgXyA8LSByZWFkTVZh
ciB0aGVpbnQKICByZXR1cm4gYQoKc2V0VmFsIDo6IE1WYXIgTXlJbnQgLT4g
SW50IC0+IElPICgpCnNldFZhbCB0aGVpbnQgdCA9IGRvCiAgbW9kaWZ5TVZh
ciB0aGVpbnQgKFwoTXlJbnQgXyBiKSAtPiByZXR1cm4gKE15SW50IHQgYikp
CiAgTXlJbnQgXyBjYWxsYmFja0xpc3QgPC0gcmVhZE1WYXIgdGhlaW50CiAg
c2VxdWVuY2VfIGNhbGxiYWNrTGlzdAogIHJldHVybiAoKQogIAppbnN0YW5j
ZSBPYmplY3QgSW50IHdoZXJlCiAgbWFrZV9pbnRlcmZhY2UgdGhlaW50ID0g
ZG8gCiAgICBpIDwtIGdldFZhbCB0aGVpbnQgCiAgICB3aWRnZXQgPC0gU3Bp
bkJveCBbIHZhbHVlIDo9IGksIG9uU3BpbkNoYW5nZSA6PSAoc2V0VmFsIGkp
IF0KICAgIGRvT25DaGFuZ2UgdGhlaW50IChkbwogICAgICAgICAgICAgICAg
ICAgICAgICAgYSA8LSBnZXRWYWwgdGhlaW50CiAgICAgICAgICAgICAgICAg
ICAgICAgICBzZXQgd2lkZ2V0IFsgdmFsdWUgOj0gYSBdCiAgICAgICAgICAg
ICAgICAgICAgICAgICByZXR1cm4gKCkgLS1KdXN0IGluIGNhc2UgKQogIGRv
T25DaGFuZ2UgdGhlaW50IGNhbGxiYWNrID0gZG8KICAgIG1vZGlmeU1WYXIg
dGhlaW50IChcKE15SW50IGEgYikgLT4gcmV0dXJuIChNeUludCBhIChjYWxs
YmFjazpiKSkpCg==

--0-1228435925-1049388834=:140--