World: r3wp

volker, I need specific mail content. is it possible to specify the 
body for an external mailer?

good question..

Here Henrik, try running this in the console:

ctx-viewtop: context ctx-viewtop

do bind [if block? ctx-prefs-gui [ctx-prefs-gui: context ctx-prefs-gui]] 
ctx-viewtop
;do bind [slide-to email-settings] ctx-viewtop/ctx-prefs-gui
do bind [
	use [face][

  face: foreach face prefs-face/pane [if all [face/style = 'tog face/text 
  = "Email settings"][break/return face]]
		face/feel/engage face 'down none
	]
] ctx-viewtop/ctx-prefs-gui
ctx-viewtop/view-prefs

(Actually first line only needs to be done if ctx-viewtop is still 
a block.)

You just need to insert that code into the error handler of ctx-emailer.

I have a bunch of *.bmp with a transparent color (effect[key]) and 
want to make animated gifs from them. how can i do that? Cn rebol 
help, or which tools?

For a website ?

Volker, Gifsicle might be what you want:
http://www.lcdf.org/gifsicle/

Also try search sourceforge for "gif"

Henrik: yes, you can specify the content in a mailto URL.

http://email.about.com/od/mailtoemaillinks/a/mailto_elements.htm

incredible... thanks

Does date plotting working in q-plot?

this doesn't look at all like it should

translate-draw: func [
	height [integer!]
	blk [block!]
	/local dr p
][

 parse blk [some ['draw set dr block! (parse dr [some [p: pair! (p/1: 
 as-pair p/1/x height - p/1/y) | skip]]) | skip]]
	blk
]

view layout [
	origin 0
	bx: box 400x400 black effect translate-draw 400 [
		draw [
			pen red
			line 50x50 350x50
			pen blue
			line 50x50 50x350
			pen yellow
			line 50x50 100x200 200x150 300x250 350x225
			pen white
			text aliased 10x350 "Y axis"
			text aliased 320x40 "X axis"
		]
	]
]

Oopss...

wrong one ..

do %q-plot.r


date-data: [ 6-Apr-1993 11-Apr-1993 15-Apr-1993 27-Apr-1993 11-May-1993 
25-May-1993 22-Jun-1993 27-Jul-1993 7-Oct-1993 15-Feb-1994 4-Oct-1994]
y-data: [ 2.3 3.2 3.4 3.8 4.45 5.0 6.6 7.53 8.7 9.4 11.1]
val: 6

view quick-plot [
	800x600
	x-data [(date-data)]
	line [(y-data)]
	x-axis (val) border
	x-grid (val)
]

view layout [box red key 'f5 [print "how do I capture F-keys?"]]

view layout [button "F5 Button" keycode 'f5 [print "got F5"]]

thanks

from plugin-2, launching *.r with doubleclick, locally: i usually 
right-click, choose "open with/others" and get a checkbox to make 
rebol default. Although when installing fresh, rebol is already there.

Ok, from RebGUI group, as it's not just related to RebGUI:


I have the following problem from time to time on my system and always 
on the system of one of my testers.


On my system: I start my app, the gui comes up and I click the first 
widget and the app falls back to the console. Without an error. This 
happens as do-events returns.


The same problem is on the other system, but here I only can do one 
click on a widget.

I really couldn't specify it more narrow. I have the same effect 
on my system, when my app exited with an error. I hack in UNVIEW 
and than restart it, I alway return to the console immediatly. Doing 
it once again, UNVIEW and restart, than it works.

If I use UNVIEW two times, it works immediatly.

Has anyone an idea what the problem might be, or even how we could 
track it down?

probe first system/view 
probe get in system/view/event-port 'awake 
make system/view [source wake-event] 
system/view/wake-event: func [port /local event no-btn] bind [
    event: pick port 1 
print remold [event/type event/offset event/key] 
    if none? event [

        if debug [print "Event port awoke, but no event was present."] 
        return false
    ] 
    either pop-face [

        if in pop-face/feel 'pop-detect [event: pop-face/feel/pop-detect 
        pop 
            -face event
        ] 
        do event 
        found? all [
            pop-face <> pick pop-list length? pop-list 
            (pop-face: pick pop-list length? pop-list true)
        ]
    ] [
        do event 
        empty? screen-face/pane
    ]
] system/view 
echo on 
print "con" 
view layout [button "test" [probe "test"]]

For tracking.

Thx. So I just add this code before my app and see what's spit out?

Yes.

This is called from system/view/event-port/awake. when it returns 
false, the do-events should terminate.

so i guess it returns false on some occasions. maybe something triggers 
a none-event, that would trigger it.

then we patch it to check for a face in system/view/screen-face/pane

would be my guess. maybe he has some tool which sends something unusual 
to windows, which wakes rebol but  is not recognised, so none.

Here is what I get:
[time 73x39 none]
[time 73x39 none]
[time 73x39 none]
[down 73x39 none]
company-selected
[time 73x39 none]
[time 73x39 none]
[time 73x39 none]
[time 73x39 none]
[up 73x39 none]
>>

So, where company-selected is printed, my code is executed.

Hmm. i made a bug, the 
  print remold [event/type event/offset event/key]
only works if 'event is not none ..
But you get no error, do-events simply returns?

can you probe do-events? as it is a 'wait, maybe it returns someweird 
port.

yep

print[type? event]
if event! = type? event[ 
print remold [event/type event/offset event/key] 
]

when i close the window here, do-events returns the event-port

(above as fix for thewake-event)

can you please post the complete snippet?

system/view/wake-event: func [port /local event no-btn] bind [
    event: pick port 1
print[type? event]
if event! = type? event[ 
print remold [event/type event/offset event/key] 
]
    if none? event [

        if debug [print "Event port awoke, but no event was present."] 
        return false
    ] 
    either pop-face [

        if in pop-face/feel 'pop-detect [event: pop-face/feel/pop-detect 
        pop 
            -face event
        ] 
        do event 
        found? all [
            pop-face <> pick pop-list length? pop-list 
            (pop-face: pick pop-list length? pop-list true)
        ]
    ] [
        do event 
        empty? screen-face/pane
    ]
] system/view 
echo on 
print "con" 
view/new layout [button "test" [probe "test"]]

probe do-events

Hmm... I now have added to records to my app and since then it works. 
What could cause do-events to exit?

usually some port returning false

claiming to be closed. seems to happen sometimes even is the port 
is not in the wait-list.

IIRC. but did not investigate further.

thats why the probe of do-eents would be interesting.

or some internal bug..