World: r3wp

Thanks a lot.

9 month time to invent some toys with embedded rebol? networked teddybears 
etc?

I still need to get used to the fact... it's all a bit abstract at 
the moment. But I'm sure this will change :-))

After baby is there, there is no time for inventing for some time 
:)

There's not much time for sleeping either!

Thats the time usually used for inventing ;)

He, he... I'm already sleeping way to less but who cares?

Now there will be someone. Wait a year, baby will know pretty well 
if you really pay attention while playing ;)

Congrats, Robert.

Robert - twins? :-)

No, that's for sure. A friend of mine got twins... hard job.

Congratulations, Robert!

Thanks to all of you...

Congratulations!

Hi Robert, cangratulations. I like babies. Especially if I'm able 
to say: "Hey, _your_ baby smells ! ..." ;-)

Big congratulations to Robert!

:-) Ingo, I will see... aehm... smell.

Congratulations to both of you Robert!

Don't forget this group, when replying to Announces!

Robert, congrats!!!   Doing your part to bring up that 1.3 birthrate. 
 If Germans don't do something soon, I suspect the landscape of the 
future will be a bunch of German's tended to by a lot of well trained 
and well paid Malaysians.  Not that this is a bad thing, just simply 
not a very different future than everyone expected.

Sorry, remove that last "not"

Thanks, up to now I just do my best to keep the 1.0 rate... ;-) We 
will see.

But I'm not scared that we Germans will die out. This country is 
crowded anyway ;-))

Oh, it will stay crowded, just not with Germans.

ich verstand nicht ganz, was er sagte

OOps sorry  ...wrong language =)

Hey, I almost understood that!

Glückwünsche tat ich nicht =))

nope, I'm lost

my too ... i was trying to say congratulations i didn't ( understand 
) i am trying to learn deutsch

I learned a little bit in school, which was too long ago

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.