World: r3wp

Is the R3 Host Kit available?

IIRC, some people have it for testing purpose, if you ask for it 
on "R3 - chat", perhaps you'll get it

Nicolas, unfortunately due the system-port bug in R2 it is possibe 
to detect ALT etc. keys only in the Rebol console window.

Cyphre - and as for R3? btw - what does it have to do with the system 
port? Are all keyboard events captured via a system port, or just 
only special keys?

Yes, all system events are captured by system port first. IIRC in 
R3 there is currently no way how to capture non-rebol-defined events 
but in R2 this is possible though only from the console.
I believe the event port capabilities in R3 will be enhanced.

I'm trying to extract info from faces in a panel but I can't get 
it...


I can see the objects! with mypanel/pane but what is the rest of 
the path to get to say a buttons "data:" field?

that would be for example mypanel/pane/1/data if the button is the 
first element.

I tried that but 'm getting an invalid path...

I'm trying to step through them with a foreach statement...i've done 
it with scroll panels but can't figure it out for a simple panel/pane

the pane can also be an object. in that case the path would be mypanel/pane/pane/1/data

still error1


** Script Error: copy expected value argument of type: series port 
bitset
** Where: expand-specs
** Near: specs: copy specs
foreach var

where are you putting this foreach statement? this looks like a dialect 
error.

can you post the code?

The above error was from this probe : probe cal_panel/pane/pane/1/data


Here is a segment of the generated code that I pass through LAYOUT 
before i attach to panel :

[origin 0x0 space 0x0 styles cal_styles across return box 81x81 192.192.192 
with [

edge/size: 1x1] [data: compose [28-Mar-2010]] effect [draw [pen yellow 
text 25x5 "

10-15" pen blue text 25x18 "25-5" font italic-font pen black 40x50 
text "28"]] [pr

int face/data] box 81x81 192.192.192 with [edge/size: 1x1] [data: 
compose [29-Mar-

2010]] effect [draw [pen yellow text 25x5 "13-18" pen blue text 25x18 
"3-8" font i
talic-font pen black 40x50 text "29"]] [print face/data]

the above code is in a block called matrix_panel
then attached to cal_panel with :

cal_panel/pane: layout/tight matrix_panel

where do you call foreach?

just after : cal_panel/pane: layout/tight matrix_panel

with [edge/size: 1x1] [data: compose [28-Mar-2010]]

-->  with [edge/size: 1x1 data: compose [28-Mar-2010]]

Does that work?

bingo ...thanks guys...weird though as I only added the edge a moment 
ago..

Awesome. You're the first guy I've helped.

I can now go to bed...thanks double

View question ... http://synapse-ehr.com/forums/showthread.php?46-mouse-over-events

don't worry ... I debugged it for him.

Oldes, do you still have that nice "color picker" code somewhere? 
 I want to embed that into GLASS as a style, I'd put it in the default 
release with your permission.

Oldes I found a link to color-lab.r... and it fails since there seems 
to be a file missing on the server:

http://oldes.multimedia.cz/color-lab/ctx-color-lab.gz

managed to find the .rip files... all is good.

Fine... just found them as well. The latest is from year 2005 so 
I don't know how it works.

seems to work fine in 2.7.6

If you don't mind, I'll make a derived version and include it with 
GLASS.  full credits will be attributed.  :-)

I don't mind. You are welcome to use it as you like:)

thanks

btw. I think Rebolek has a ColorPicker as well.

ah  battle of the color pickers then...  Rebolek is your picker available, 
I'm curious to see it?

Maxim, I think I saw it somewhere few months ago, I'll have a look 
in the morning, if you don't mind.

So it was on my HDD, interesting. It's here: http://www.filedropper.com/colorsliders

It's a overkill, I know, you can remove half of functionality without 
problem. But, OTOH, it's easier to remove than to add ;)

wow two contenders  :-)


If you don't mind, I think I'll merge your stuff with the one from 
Oldes.


two completely different paradigms.  its always fun to be able to 
chose.


I'll also add stuff of my own, like a user palette which saves to 
disk.

actually I think yours will be easy to convert to glass, since its 
already in AGG

max, you didn't answer my question!

what question?

oh ... you did

REBOL/view R2 CRASHES when I use a linear fill-pen... with a box!!!!!

has anyone else had this problem too?


I'll try to build an example 10 line script which shows this happening...

I think I pinned the issue.  


I think its triggered by some memory optimization within linear-fill, 
(something to do with the dialect parser probably).

draw-blk:  [ ... contains a linear fill ...]

face/effect: reduce ['draw draw-blk]
show face
face/effect: reduce ['draw draw-blk]
show face

the above crashes REBOL


note we use the same draw block within two different effect wrappers, 
consecutively.

even doing a copy/deep on it doesn't work  darn!

its a bit more complex than this but I'm still searching for an exact 
replicatable example with a real draw block as example.

Maxim, I can't get it crash easily here. Using this simple test:

r: 0

dr: [pen red fill-pen linear 50x50 -50 50 r 1 1 red yellow green 
cyan blue magenta box]
view/new layout [bx: box]
loop 1000 [
	r: r + 1
	bx/effect: reduce ['draw dr]
	show bx
]
do-events