World: r3wp

not quite enough apparently. If  I activate the emailer from the 
console and the SMTP server, etc. is not set correctly, it correctly 
prompts this, but it then doesn't start the viewtop to let me set 
this with SET-USER. Instead it just shows the emailer window.

why not brosing mailto: ?

Henrik, just look through ctx-viewtop to see where it opens the network 
settings window. Then you can try hack ctx-emailer to make the same 
call.

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.