World: r3wp

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.

:-)

Well, it's pretty flat over here

Yeah, so in such a place, it's reasonable to bicycle .. but in the 
USA .. when you have monster upteen lane highways... may not be so 
realistic.

We'll see when the oil price hits the projected $200 the barrel

I'm pretty glad I don't have a car these days. Except, you know, 
when I have to go somewhere more than a few miles away.

Graham -- sorry to hear about your injuries.

I can put the opposite case: my cycle odometer says I'm just coming 
up to 5,000 miles this year. With zero accidents or injuries; zero 
time stuck in traffic; total annual running costs of around USD150 
for servicing and parts; and a lot of health benfits.

Good to know there are positive benefits to bicycle ownership !  
 :)

In Chicago we have a mayor who is an avid cyclist. He has been repainting 
a lot of streets on the north side to give them cycle lanes. The 
problem is that many of these streets aren't wide enough for this. 
In some cases 4-lane roads were converted to 2-lane to make room 
for the bike lanes, in some cases parking was sacrificed. On many 
roads this has caused traffic to slow to a crawl. Of course these 
bike lanes are barely used, and mostly serve as a place for drivers 
getting out of their parked cars to stand. The mayor isn't affected 
by these problems though, as he is a southsider.

If you add to that the tendency for bikes to get stolen here, the 
layout of Chicago and commuting patterns, and the efficiency of our 
public transportation, it is rare for people to use bikes here except 
for recreation and the bike messengers downtown.