World: r3wp

I've also just updated the menu with today's improvements, by the 
way.

Not yet. Have to run and watch my daughter open presents right now. 
She's 12 today.

Ah ok.

The fix worked for me...

Very good.

I've just updated the menu with a backwards compatibility fix so 
it can also work on View 1.3.2.

load-thru/update http://anton.wildit.net.au/rebol/gui/menu.r
do http://anton.wildit.net.au/rebol/gui/demo-menu.r

I use do-service to issue a RS request. But it's not blocking my 
GUI. I want to keep the user away from clicking around.  How can 
I block the processing of GUI events?

Interesting, the doc string for do-service in my 19-Nov-2005 copy 
says {Send request to a REBOL service and wait for response. Return 
result.}

I suppose you could remove the event-port from the wait-list temporarily, 
until you get a result or a timeout occurs. (how to specify a timeout... 
?)

yes how to specify a time-out..i have that to here in another issue.. 
not so easy actualy when not having threads..

do-service calls wait-service, which has a default timeout of 60 
seconds.

so all you should need to do to block the gui is remove the event 
port.

eg.
remove system/ports/wait-list system/view/event-port

do-service ...  ; <-- trap errors here so you don't block your gui 
forever
insert system/ports/wait-list system/view/event-port

Thansk, will try this.

I have the feeling that wild mouse-clicks be qued? Can I remove those 
too?

Hmmm... maybe CLEAR event-port ? Or just COPY it until it's empty 
before adding it back to wait-list.

I experimented quickly and this seems to work.

view layout [
	button "reset" [n: 0]
	button "read" [
		;remove find system/ports/wait-list system/view/event-port
		
		old-wake-event: get in system/view 'wake-event
		
		system/view/wake-event: func [port][
			while [pick port 1][] ; remove and ignore all queued events
			false
		]
		
		print n: n + 1
		probe length? read http://anton.wildit.net.au/rebol/index.html
		
		; clean queued events
		wait 0.0001
		
		system/view/wake-event: :old-wake-event
		
		;insert system/ports/wait-list system/view/event-port
	]
]

The READ + WAIT should be roughly equivalent to DO-SERVICE in your 
case.

(And you can see I commented out my first suggestion, it didn't seem 
to be enough.)

Mmm.. maybe it's good to keep the temporary removal of the event-port.
I did a little more experimenting and doc here:
http://anton.wildit.net.au/rebol/doc/clearing-queued-events.txt

Thx. I take a look at keep trying.

How can I avoid the console coming up, when using CALL?

I use async-call from Doc but it fails with: CreatProcess failed!

I try to launch a PDF by just providing the PDF filename.

Is there a native request-directory funciton available?

I really can't believe that the current Rebol has problems with supporting 
native requestors (didn't used them yet) and getting call done right...

I seem to recall having issues with Acrobat. Let me look...

My old issue was with making it print automatically. I used both 
CALL and ShellExecute with it, but I also had logic to find the actual 
Acrobat EXE.

You directly called ShellExecute? Do you have the LIBRARY definition 
at hand?

Search for Gregg's win-shell.r file.

I cached it from 2004.
http://anton.wildit.net.au/rebol/os/windows/win-shell.r

Thanks Anton. I have it here, too, if you need Robert.

Ok, if the web-version is the actual one that's fine.

My win-shell module has a lot of other API funcs in it as well, for 
finding windows by title, etc.

:-) Would be nice if you could either sync it here, or on HQ or send 
it by mail to me.

Will do.

Thx

insert-even-func to the rescue again.

insert-event-func ..

i just use browse pdf .. and that loads up the browser, and most 
browsers have acrobat installed as a plugin

small useless demo: do http://bolek.techno.cz/reb/wall-street.r

This is kind of stuff, which should be presented after R3 release, 
and plug-in release, in demo category ...

Does somebody know how to change the color of individual lines of 
a text-list?

I believe that was the original reason I wrote LIST-VIEW :-)

Can't do that with text-list, but you can with LIST. LIST-VIEW is 
very complete though. LIST is lower level.

Henrik: is that in REBGUI?

unfortunately not

OK