Problem with Library ObjectIO

[Alfonso Meléndez]

--0-636625079-1030918089=:73244
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Content-Disposition: inline

Hello

my name is alfonso melendez, haskell user since 1998,
actually i am developing a project and i am working 
with the clean library objectio, my problem is:

the setControlLook function apparently does not work 
with CompoundControl i have tried to create a 
CompoundControl and I can not t put graphics text on
it using the setControlLook function. What I am trying
to d 
o is to create a scrolling box with CompoundControl
but it does not work.

I appreciate if you can help me



With this e -mail I send the code of my program, the
line that doesnt work is line  70

=====
Alfonso Meléndez
Escuela Colombiana de Ingeniería
Centro de Estudios Informáticos
tel:6762666 Ext:224

_______________________________________________________________
Yahoo! Messenger
Nueva versión: Webcam, voz, y mucho más ¡Gratis! 
Descárgalo ya desde http://messenger.yahoo.es
--0-636625079-1030918089=:73244
Content-Type: application/x-unknown-content-type-JCreator.hs; name="return.hs"
Content-Transfer-Encoding: base64
Content-Description: return.hs
Content-Disposition: attachment; filename="return.hs"

bW9kdWxlIFJldHVybihtYWluKSB3aGVyZQoKCmltcG9ydCBHcmFwaGljcy5V
SS5PYmplY3RJTwppbXBvcnQgQ2hhcgppbXBvcnQgUHJlbHVkZSBoaWRpbmcg
KExlZnQpCi0tIGltcG9ydCBHZW5UZW9zICh1bmxpbmVzJykKCgoKbWFpbjo6
IElPKCkKbWFpbj0gc3RhcnRJTyBTREkgInRlb3JlbWEiIChpbmljaW8gKSBb
UHJvY2Vzc0Nsb3NlIGNsb3NlUHJvY2VzcyBdCgpzY3JGdW4gZGggdmlld2Zy
YW1lIChTbGlkZXJTdGF0ZXtzbGlkZXJUaHVtYj1zbGlkZXJUaHVtYn0pIG1v
dmUKCQkJCT0gY2FzZSBtb3ZlIG9mCgkJCQkJU2xpZGVySW5jU21hbGwgLT4g
c2xpZGVyVGh1bWIrZGgKCQkJCQlTbGlkZXJEZWNTbWFsbCAtPiBzbGlkZXJU
aHVtYi1kaAoJCQkJCVNsaWRlckluY0xhcmdlIC0+IHNsaWRlclRodW1iKyh3
IChyZWN0YW5nbGVTaXplIHZpZXdmcmFtZSkpKjkgYGRpdmAgMTAKCQkJCQlT
bGlkZXJEZWNMYXJnZSAtPiBzbGlkZXJUaHVtYi0odyAocmVjdGFuZ2xlU2l6
ZSB2aWV3ZnJhbWUpKSo5IGBkaXZgIDEwCgkJCQkJU2xpZGVyVGh1bWIgeCAg
LT4geAppbmljaW8gcHMgPSBkbwoJCQkJaWRDYWphMTwtIG9wZW5JZAoJCQkJ
aWRDYWphMiA8LSBvcGVuSWQKCQkJCWlkV2luZCA8LSBvcGVuSWQKCQkJCWlk
Q29tcDwtIG9wZW5JZAoJCQkJcHMgPC0gb3BlbldpbmRvdyAiYmVjYSIgKHZl
bnRhbmEgIGlkQ29tcCBpZFdpbmQgaWRDYWphMSBpZENhamEyIHBzKSBwcwoJ
CQkJcmV0dXJuIHBzCgkJCQkKCiAKCiAKIAp2ZW50YW5hICBpZENvbXAgaWRX
aW5kIGlkQ2FqYTEgaWRDYWphMiBwcz0gCiAgICBXaW5kb3cgInJldHVybiIg
CiAgICAgICAgICAgKCBFZGl0Q29udHJvbCAiYWFhIGJiYiBjY2NjIGRkZGRk
IGVlZWVlIiBhbiBhbCAKICAgICAgICAgICAJCQkJCQkJW0NvbnRyb2xJZCBp
ZENhamExLAogICAgICAgICAgIAkJCQkJCSAgICBDb250cm9sUG9zIChMZWZ0
Qm90dG9tLCB6ZXJvKQogICAgICAgICAgIAkJCQkJCSAgICBdIDorOgogICAg
ICAgICAgICAgRWRpdENvbnRyb2wgIiIgYW4gYWwgIFtDb250cm9sSWQgaWRD
YWphMl0gOis6CiAgICAgICAgICAgICBCdXR0b25Db250cm9sICJQYXNhciIg
W0NvbnRyb2xGdW5jdGlvbiAoZGlidWphciAgaWRDb21wIGlkV2luZCBpZENh
amExIGlkQ2FqYTIgKQogICAgICAgICAgICAgCQkJCQkgICAgXSA6KzoKICAg
ICAgICAgICAgIEJ1dHRvbkNvbnRyb2wgImVzdGFkbyIgW0NvbnRyb2xGdW5j
dGlvbiAoZXN0YWRvICBpZENhamEyICkKICAgICAgICAgICAgIAkJCQkJICAg
IF0gOis6CiAgICAgICAgICAgICAJCQkJCSAgICAKICAgICAgICAgICAgIENv
bXBvdW5kQ29udHJvbCBOaWxMUwogICAgICAgICAgICAgCQkJCQkJW0NvbnRy
b2xJZCBpZENvbXAsQ29udHJvbFBvcyAoUmlnaHRUb3AsemVybyksCiAgICAg
ICAgICAgICAJCQkJCQlDb250cm9sVmlld1NpemUgKFNpemUgMjAwIDIwMCks
CiAgICAgICAgICAgICAJCQkJCQktLUNvbnRyb2xWaWV3RG9tYWluIHJlLAog
ICAgICAgICAgICAgCQkJCQkJQ29udHJvbEhTY3JvbGwgKHNjckZ1biAxMCks
CiAgICAgICAgICAgICAJCQkJCQlDb250cm9sVlNjcm9sbCAoc2NyRnVuIDEw
KV0KICAgICAgICAgICAgIAkJCQkJCS0tQ29udHJvbFBlbiBbUGVuQmFjayBH
cmVlbl1dCiAgICAgICAgICAgICAJCQkJCQktLUNvbnRyb2xMb29rIEZhbHNl
IChsb29rIHBzKV0KICAgICAgICAgICAKICAgICAgICAgICAgKSAJCQkJCQkJ
ICAgIAogICAgICAgICAgIFtXaW5kb3dJZCBpZFdpbmQsIAogICAgICAgICAg
ICBXaW5kb3dWaWV3U2l6ZSAoU2l6ZSA4MDAgNTAwKSwKICAgICAgICAgICAg
V2luZG93SFNjcm9sbCAoc2NyRnVuIDEwKSwKICAgICAgICAgICAgV2luZG93
VlNjcm9sbCAoc2NyRnVuIDEwKV0KIAogCmVzdGFkbyBpZENhamEyIChscyxw
cykgPSBkbwogc2V0Q29udHJvbFRleHQgaWRDYWphMiAobHMrK3BzKQogcmV0
dXJuIChscyxwcykKCmRpYnVqYXIgIGlkQ29tcCBpZFdpbmQgaWRDYWphMSBp
ZENhamEyICAobHMscHMpID0gZG8gewoJCQk7IChfLEp1c3QgdCk8LWdldENv
bnRyb2xUZXh0IGlkQ2FqYTEKCQkJOyBzZXRDb250cm9sVGV4dCBpZENhamEy
IHBzCgkJCS0tOyBkcmF3SW5Db250cm9sIGlkQ29tcCAoIGRpYiB0KQoJCQlz
ZXRDb250cm9sTG9vayBpZENvbXAgIFRydWUgIChUcnVlLChsb29rICB0KSkK
CQkKCQkJO3JldHVybiAobHMsdCkKCQkJfQoKCmRpYiB0ZXh0byA9IGRvICAJ
eyB1bmZpbGwgcmUKCQkJCQk7IHNlcXVlbmNlXyBbIGRyYXdBdCBwdSBsaW5l
YSB8IChwdSxsaW5lYSkgPC0gemlwIHB1bnRvcyAod29yZHMgdGV4dG8pXQoJ
CQkJCX0KCXdoZXJlCgkgIHB1bnRvcz1bIFBvaW50MiAxMCB5IHwgeTwtWzIw
LDQwLi5dXQoJCQpsb29rICB0ID0gKFxfIGZyIC0+IGRpYnVqZSAgKG5ld0Zy
YW1lIGZyKSB0KQoKZGlidWplICBmcmFtZSB0ZXh0byA9IGRvCiAgCQkJCXVu
ZmlsbCBmcmFtZQogIAkJCQlzZXRQZW5Db2xvdXIgQmxhY2sKICAJCQkJCiAg
CQkJCWxldCBwdW50b3MgPSBbIFBvaW50MiAxMCB5IHwgeTwtWzIwLDQwLi5d
XQogIAkJCQlzZXF1ZW5jZV8gWyBkcmF3QXQgcHUgbGluZWEgfCAgKHB1LGxp
bmVhKSA8LSB6aXAgcHVudG9zICh3b3JkcyB0ZXh0byldCiAgCQkJCQoKCgkJ
CQpwPSBQb2ludDIgKDEwKSAoMTApCQpyZT0gUmVjdGFuZ2xlIHAxIHAyCnAx
PSBQb2ludDIgKC0xMCkgKC0xMCkJCnAyPSBQb2ludDIgMTAwMCAxMDAwCmFu
PSBQaXhlbFdpZHRoIDEwMAphbD0yCgogIAo=

--0-636625079-1030918089=:73244--