Slim sliders
[1/2] from: oliva:david:seznam:cz at: 17-Nov-2001 16:14
Slim sliders
============
Hi there,
some of you send me, that the slim sliders, that I used in my 'color-lab script are so
slim, that it's difficult to drag them. That was true, because I was using the standart
Rebol slider feel. I think that this is the simplest way how to fix it:
rebol [
title: "another slider"
author: "Oldes"
]
view layout [
style test-slider slider with [
feel: make feel [
engage: func [face action event][
if find [over away down] action [
face/data: event/offset
svvf/drag-off face face/pane event/offset - (face/pane/size / 2)
show face
]
]
]
]
text 300 "Default Rebol slider:"
slider 300x15
text 300 "and improved slider:"
test-slider 300x15
text 300 "So now you will not have problems with ultra slim draggers like this one:"
test-slider 300x15 edge [size: 1x1 color: black] with [
init: [
pane: make dragger [
color: white
edge: make edge [size: 1x1 color: black]
]
either size/y >= size/x [
pane/size/y: 4 pane/edge/size/x: 0
][ pane/size/x: 4 pane/edge/size/y: 0]
]
]
]
;-----------------------------
BTW: thank's for your RGB<->HSB advices.
Oldes
[2/2] from: ammonjohnson::yahoo::com at: 17-Nov-2001 13:16
Hi Oldes,
What Color-Lab Script are you talking about? I checked you rebsite, &
didn't see anything but ReBox. Where can I find it?
Thanks!!
Ammon
----- Original Message -----
From: <[oliva--david--seznam--cz]>
To: <[rebol-list--rebol--com]>
Sent: Saturday, November 17, 2001 8:14 AM
Subject: [REBOL] Slim sliders
> Slim sliders
> >
> Hi there,
> some of you send me, that the slim sliders, that I used in my 'color-lab
script are so slim, that it's difficult to drag them. That was true, because
I was using the standart Rebol slider feel. I think that this is the
simplest way how to fix it: