World: r3wp

Sounds very cool Ingo! Won't have time to play for a while, but thanks!

Thanks Gregg, it's quite nice, now I have my very own rebol integrated 
program launcher (using /pro) ... ;-)

I even used it to get different viewtops on different computers (I 
had rebol on a usb stick, and depending on the computers name, my 
local fold showed different icons)

fold = folder

Ingo, I executed your viewtop code .. but it looks the same.  Are 
there any cosmetic differences as well?

no, no cosmetics

the header contains some example index.r files

I use some different icons, I created just for 'actions, but didn't 
include them.

REBOL [
	Title: "Local Index" 
	Type: 'index 
	dynamic: true 
	plugin-pane: 0.5
]

title "Local Files"
app 0.3

group "A" effect [multiply green] 
			 
group "B" icon %action.png

action "a\gitarre"    do [explore %/f/gitarre/]
action "a\view-root" do [explore view-root]
action "a\hamster"   do [call "H:\prog\Hamster\Hamster.exe"]

action "b\Internet" do [
	call "H:\Programme\offline-proxy-mm3\MM3-WebAssistant.bat"
	call "C:\Programme\discountsurfer\discountsurfer.exe"
	call "H:\Programme\Mozilla\Firefox\firefox.exe"
	call "C:\Programme\Opera75\Opera.exe"
] 


action "b\Firefox" do [	call "H:\Programme\Mozilla\Firefox\firefox.exe"] 
icon %web-surf-action.png

action "c\desktop"   do [editor view-root/desktop.r] 
action "c\imap"      do [editor %imap-handler.r] 

file "Info" %info.txt
file "T\Test" %test1.r 
file "T\Test2" %test2.r 
file "T\Test" %test3.r

; this is composed ----
file (form now/date) %dummy.r

action "Click me" #clickme do [
            alert "hi"

            [Text "This will be displayed within the desktop" [alert "ho"]]
          ]

action "Click me 2" #clickme2 do [
            alert "hi"
			; no return value, so nothing displayed in the desktop
          ]

action "PRINT" do [print "^/^/----------------------^/^/^/"]
action "prin somethin" do ["yea"]
file "t\Test" %dummy.r

; this will draw the plugin
app-draw [face /local cl-size][
   cl-size: to pair! reduce [face/size/x 50]
	face/pane: layout/offset[
		at 0x0 
	   text "00:00:00" cl-size center 255.155.40 with [
   		font: [size: 24]
	   	rate: 1
		   user-data: none
   		feel: make feel [
	   		engage: func [face action event i] [
		   		if user-data <> now/time [
			   		i: form user-data: now/time
				   	if 7 > length? i [append i ":00"]
					   face/text: i
   					show face
	   			]
		   	]
      	]
      ]
      text "TEST" 
		button "hi" [alert "you!"] 
   	button "CLOSE" [unview/all] 
	] 0x0 face/size 
]

; if you need to redraw after a resize, not yet used
app-resize [new-size][]

This is my %local/index.r  with some tests, and I hope all references 
to my icons removed

one thing about security: i would check that against a directory. 

 if find/match clean-path/file dirize view-root/local ["its my local 
 file, allow more"]

about this split-view thing: i once thought about showing some more 
text, what this directory is about. for help, or maybe some kind 
of "dungean-game". Now you have this split-view, could you extend 
it to show some text? maybe [ info {You are here ...} ] ?

(and for call you need no /pro anymore :)

that computername-thing is smart. I even use directory too, making 
a url from both. 
  rejoin[comp:// read dns:// what-dir]

but my use is testing, this way i can have different configurations 
on the same drive.

Thanks Volker, I have thought about checking for local access, too, 
but wasn't sure whether it's enough. (Files in the cache are local, 
too.)

No they aren't, they are in view-root/public/

Ahh, you're right ... using the complete path to %local should be 
OK.

protest about rising gasolene prices.

Where can I sign to support rising prices? I think that fossil fuel 
usage should be strongly discouraged

Support it by buying petrol.

The greater the consumption, the higher the prices will rise .. and 
the sooner people will start looking for alternatives to fossil fuels 
( dead dinosaurs )

Maybe thats good for another yurasic park? Growing dinos to make 
fuel from them?

Only takes a few million years though to see the benefits

That's a fairly long investment timeframe.

Naa, remember that in in yp everything grows much much faster.

Jurassic Park ?

right. Spelled it wrong. BTW we are in An-Reply here?!

yes, we are replying to Steve's call to protest.

Have looked there, right, there was an anounce.

I'm not sure what the use of it is though ..you have to buy the day 
after anyway.

Shht! :-)

if you really want to protest, get your converted to run on vege 
oil

get your car converted

Smell like you work at McDonalds

Ok, buy a Toyata Prius instead then!

What's wrong with a bicycle?

Dinosaurs can eat you easier. Or suvs.

Let me see .. you live in Holland ??

Knocking off bicycles is a sport in some US towns.  I've been lucky...

Ah, yes, I thought that would give me away :-)

I'm guessing you don't live in a city with lots of dead cyclists

OK, so there's nothing wrong with bicycles, but apparently there's 
something wrong with US citizens

Is it as bad in New Zealand?

I bought myself a mountain bike a couple of weeks ago.

Still healing from the wounds caused by impacting with the asphalt.

On your own or by a car?

myself :(  Skidded against the curb when I hit it at a too shallow 
angle.

didn't see that in the manual.

:-)