Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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