[REBOL] Re: windows events
From: ammoncooke::yahoo::com at: 4-Oct-2001 19:26
You're awesome! Now the question, "What's this little bug?"
insert-event-func func [face event][
if equal? to-string event/type "resize"[
wrkspc/size: (mn/size - 140x50)
bldr-cr/size: wrkspc/size
bldr-cr-dt/size: (wrkspc/size - 30x70)
bldr-cr-fls/size/x: (wrkspc/size/x - 230)
bldr-cr-cls/offset/x: (wrkspc/size/x - 22)
bldr-cr-dt-sly/offset/x: (bldr-cr-dt/size/x + bldr-cr-dt/offset/x)
bldr-cr-dt-sly/size/y: bldr-cr-dt/size/y
bldr-cr-dt-slx/offset/y: (bldr-cr-dt/size/y + bldr-cr-dt/offset/y)
bldr-cr-dt-slx/size/x: bldr-cr-dt/size/x
show mn
]
return event
]
this code acts exactly as expected except that bldr-cr-dt-slx does not
resize when the window is resized in both directions. It does resize
properly when only the x dimension is changed. I only ask this because
bldr-cr-dt-sly resizes 100% properly. BTW bldr-cr-dt-slx, & bldr-cr-dt-sly
are sliders running on the x, y dimensions.
Thanks!!
Ammon
