World: r3wp

set-face and get-face are the answer to this problem. accessors still 
need to be written for some styles though.

A puzzle this brings up; where is the 'value referred to by this 
function
>> layout [text-list with [print mold :update]]
func [/local item value][
    sld/redrag lc / max 1 length? data
    if item: find data picked/1 [
        sld/data: min 1 (index? item) / (max 1 lc)
        sn: max 0 to-integer sld/data * ((1 + length? data) - lc)
    ] [
        sld/value: 0.0    ; <----------- ?
        pane/offset: 0x0
    ]
    self
]
>> layout [scroller with [?? value]]
** Script Error: value has no value
** Where: ??
** Near: mold name: get name

that's face/sld/value, not face/value

yes, I know.

ah, also, you're comparing text-list and scroller. mmm.

sld is a scroller

but if you do:
>> find mold svv/vid-styles/scroller "value:"
== none

that's most likely a bug. should be sld/data

i think /value is the remains of a very old scroller style :)

Yes, If you examine
 write clipboard:// mold svv/vid-styles/text-list

then you cannot see any reference to "value:"  (ie. the text-list's 
scroller is not extended with the 'value facet either).

I agree. So maybe the text-list/update function is not used much 
any more ?

submit to rambo (if not already there)

well, /update should be used by users. maybe noone found the bug 
so far.

OK.

I'm too tired right now to do a more full analysis unfortunately.. 
but I'll submit at least.

yes, just a reminder about this problem. replacing that with data 
will fix it.

layout [t: text-list]
t/update   ; <--- what is strange is this doesn't cause any error
t/sld/value
;** Script Error: Invalid path value: value
;** Near: t/sld/value

anyway...

hehe, it's not strange. but, i had to look at it very closely to 
see why :)

oh.. :-/ ok.. c'mon brain...

and, this explains why noone noticed it so far.

(submitted ticket)

there's an if instead of an 'either too.

so looks like someone changed that code while being a bit distracted 
:)

oh my god ! I just fixed a bug of mine like that earlier today. :) 
It survived a couple of days before I noticed it.

you might want to update the ticket with that bug fix too..

actually i changed my local version of teh code already, so i'm sure 
not to forget about this. that pane/offset: 0x0 seems pointless too, 
but i'll need to investigate.

if you look closer at the code, you also note that there is an 'if 
instead of an 'either, so its death code. IIRC update was somewhat 
broken, maybe not cleanly fixed?

View 1.3 bug!?:

>> img: to-image layout [slider with [data: 0.5]]
>> view layout [image img]


I see a black square at the top of the slider. Can others confirm 
this?

Confirmed. I think something similar (a problem rendering without 
diplsaying) came up recently.

I've made a quick list of the VID-styles found in REBOL/View 1.3. 
Some are explained with a definition, some by an image showing the 
style in use. The list can be found here:
http://home.tiscali.dk/john.niclasen/

Geomol, I think the problem is because the dragger is only correctly 
positioned in feel/redraw. See the feel:
	layout [slider with [?? feel]]

This means that the dragger is only set in the correct position when 
there is a redraw event, and the face must be viewed in order to 
receive events. The initial position ( layout [slider with [?? init]] 
) does not take into account that DATA may be non-zero.

This could be fixed by modifying INIT, I am pretty sure.

Indeed:

view layout [image to-image layout [slider with [append init [feel/redraw 
self 'draw none] data: 0.5]]]

OK, submitted this bug and fix to RAMBO.

Thanks! :-)

I have a problem with the arrow style. It's default pointing up, 
but should be able to be rotated (according to the old REBOL/View 
Developer's Guide) like:

view layout [arrow effect [rotate 90]]


I can't get it to work in View 1.3 or View 1.2 for that matter. Is 
it a real old not found bug, or am I doing something wrong?

Oh, this works:

view layout [arrow right]

so maybe the rotation is not needed.

Do this and you will see why your first test didn't work:

layout [arrow with [?? init]]

So to use effect with arrow, you have to do something like this:

view layout [arrow effect [fit arrow black 0.7 rotate 90]]
same as:
view layout [arrow right]

Geomol, what were you doing when you discovered the slider bug, above 
? I would like to know the reason why you needed that functionality. 
It might be good in the bug report.

Anton, I was producing the quick list of VID-styles found on my homepage 
and needed some images to go with it. I saw the bug, when I was making 
the image to show slider functionality.

Great, thanks. That's the same reason (documentation) I stumbled 
on this long ago. Now it's in rambo it can't escape.

work in progress:  do http://krutek.info/rebol/styles/demo.r

there is a bug somewhere ...

knob.r or tachometer.r - run clean View session ....

ah, now it works, strange ...

yes there was a bug