World: r3wp

site: select load-thru http://www.reboltech.com/index.r[folder "Anton"]
clear find site %index.r
do-thru site/library/include.r
include [site/library/window.r [test-find-face-deep]]
push: func ["push a value onto stack"
	[catch]
	stack [series!]
	value [any-type!]
][
	throw try [return insert/only tail stack value]
]
pop: func ["pop a value from stack"
	[catch]
	stack [series!] /local v
][
	throw try [
		v: last stack ; copy last element

  remove at stack length? stack ; remove last element without modifying 
  index
		return v
	]
]
test-find-face-deep

test-find-face-deep has no value error ...

Sorry, need to update window.r probably. Do this:
	load-thru/update site/library/window.r

and try the above demo again.

What it does is, given an "absolute" mouse offset relative to the 
window face, as may be supplied by a DETECT function, finds the face 
which it is over.

I have fixed it to handle face edges, *and...* iterated pane functions 
:-)

still does not work, Include: Couldn't load-thru http://www.lexicon.net/anton/rebol/library/window.r

load-thru/update http://www.reboltech.com/index.r; and try above 
demo again

it works, thanks ... cool!

Cool. Searching for an my old drag-drop-demo now :) And the button-list 
is cool too btw :) Maybe that complete state-saving should be supported 
by rebol, and focus could include a focal-index .

Thanks Sunanda for the AM/PM tip.

Volker, still working on the state saving idea...

I think thats a big project, patching a lot of styles. and that focal-thing 
must be done internal. For now i prefer only to think about it. But 
then you are good at workarounds :)

Oh no..  I have already a way to avoid patching all the styles :) 
 I have to think about focal-face some more, but I think it can be 
done with a ctx-text patch in the way I have already used in tree-face.

SOunds interesting :)

It is :) I'm just about burning up with this one.

Is there a way to use request-file to return a path without having 
to select a file within that path? I'm writing a reblet that requests 
a path so it can work on its contents. If I have to select a file 
then so be it .

help shows a request-dir. but i guess not native.

I'll try that right now

maybe its possible to suggest a file, and if the user does not change 
the text that name is returned? need experimenting.

request-file/file %dummy ; works with wine-requester, i hope real 
windows too?

Volker, no, doesn't work. Don't worry about it. This is a personal 
reblet so I can take the extra step.

Thanks.

Again is there a way to know how many data is beeing saves to a file 
? write-net ? for example or is it just not possible w / rebol ? 
writing and reading both should share the callback option

Yes, it is possible. Will take a while to implement and bug-test, 
though. Ports must be opened in direct mode, eg. port: open/direct 
url

I have an iterated face function. This funciton stores some information 
that is than used later by an other function.


The problem I have is that the iterated function is executed when 
the VIEW command is exectuted. How can I call my other function AFTER 
the iterated function was exectued (the drawing is finished)? I thought 
that the iterated function is called at the time the LAYOUT command 
is used. Than I could call my other function before issuing a VIEW 
and it all would work. (BTW: The fact that the iterated function 
is called on VIEW and not LAYOUT should be documented).

Think of iterated function as another way of "show". Only that this 
show is called multiple times on a real show. One time for each row. 
so you can feed different data (and offsets!). Looks like multiple 
faces, needs space for one.

HI again. I was wondering how you would approach this matter: I have 
a block of objects (all the same type - they are records of first 
name, last name, unique id, etc) I want to find the index of a particular 
object by unique id. I usually just go through a loop and check each 
object's id for a match and that works but is there a better way? 
 Thanks.

James,  I have always (like sometimes) found it is better not to 
use index values but to use the REBOL block structure and expose 
the unique key separately in your data structure. e.g. 

data: [
    a [
        name "A"
        last-name "Alphabet"
    ]    
    b [
        name "B"
        last-name "Alphabet"
    ]
]

foreach [id blk] data [
    print [id blk/name]
]


The only reason that I can see to know the index is if you want to 
use it to index into a related data block / table but it would be 
better (in my opinion) to set the keys to allow that.  You don't 
need to know the index in this example because you can get the data 
block using the REBOL path notation.  Either 
select data 'b 
or data/b
or data/b/name

MikeL, Very cool idea. Thanks.

James: see http://www.compkarori.com/vanilla/display/aa.r

Is there a way to copy a part of an image from a certain position 
to another image at a certain position? Something like:

change/part at image1 5x5 at image2 10x10 20x20


That should take 20x20 pixels from image2 at position 10x10 and put 
them in image1 at position 5x5, but it takes from the start of image2, 
so it doesn't work as intended.

use SKIP not AT, I think. Let me test...

I kept tripping over that one...

Ahh.. Actually, yes, you can't control the start of image2. Yes, 
I asked about this soon after the release and was told it's not that 
important to implement in CHANGE. So you have to make a temporary 
image with the part of image2 that you want first.

That's a frustrating one. It would be so beautiful if that were implemented...

Robert, you can see http://www.rebol.com/docs/view-system.html#section-10
for more insight on how pane functions work.

An iterated face function is there to save memory, so it must be 
executed every time the display is refreshed. It creates the illusion 
of many faces by moving one face around very quickly.
It does not create and position new faces like LAYOUT.

What LAYOUT allows you to do is set up the pane function that will 
be used afterwards when SHOW is used or VIEW is used and events start 
flowing.

Anton, maybe this is to way to do it? It seems to work:

change at image1 5x5 copy/part at image2 10x10 20x20

Using skip here seems to work aswell:

change at image1 5x5 copy/part skip image2 10x10 20x20

Yes, that is the way to do it.

Makes me wonder about the difference between 'at' and 'skip'. Both 
are actions.

1.

say I have: layout [a: tog true of 'panel b: tog of 'panel c: tog 
of 'panel]


what's the correct way for setting b to true so that a, b and c still 
behave as part of 'panel?

b to true = b/state to true

Henrik, this is the engage function for toggles:

engage: func [face action event][
    if find [down alt-down] action [
        if face/related [
            foreach item face/parent-face/pane [

                if all [flag-face? item toggle item/related item/related = face/related 
                item/data] [item/data: item/
state: false show item]
            ]
        ]
        face/data: face/state: not face/state

        either action = 'down [do-face face face/data] [do-face-alt face 
        face/data]
        show face
    ]
]

you should basically do the same thing (the foreach above)

Someone had contacted me a month or so ago and asked for my modified 
text-list and was looking to make some updates.  I don't recall who 
it was but if your here - can you tell me if you improved such.

paul, was that the one which supported custom colors per line?

I remember such a discussion, but that was 3-4 months ago. I didn't 
get anything done with it.