World: r3wp

Hello Max. Yes, I have used sometimes DRAW on Linux.

Try this, work for me at Kubuntu.

do %rebgui.r

if system/version/4 = 4 [ face/font/name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf" 
]

example: [ font face/font ]

append example [ pen blue line 20x70 30x50 40x55 50x40 60x60 70x55 
80x70 90x50 100x40 110x50 120x70 130x65 140x60 150x55 160x50 170x30 
180x70 190x50 200x40 210x50 220x70 230x65 240x60 250x55]


append example [ pen red fill-pen red box 20x75 22x60 box 30x75 32x50 
box 40x75 42x40 box 60x75 62x40 box 70x75 72x60 box 80x75 82x65 box 
90x75 92x40 ]

append example [ box 100x75 102x60 box 110x75 112x60 box 120x75 122x60 
box 140x75 142x40 box 150x75 152x45 box 160x75 162x40 box 170x75 
172x60 box 180x75 182x65 box 190x75 192x40 ]


append example [ pen green fill-pen green box 50x75 52x30 box 130x75 
132x50 ]

append example [ pen black text 10x10 "Transazioni" ]
append example [ text 30x30 "$200" text 30x50 "$100" ]

append example [ line 20x25 20x75 line 15x35 25x35 line 15x55 25x55 
]
append example [ line 20x75 310x75 ]

append example [ text 20x80 "28-Jul-2010" text 250x80 "26-Sep-2010" 
]
append example [ pen blue text 300x10 "Cassa" ]
append example [ text 320x30 "$2000" text 320x50 "$1000" ]

append example [ line 310x25 310x75 line 305x35 315x35 line 305x55 
315x55 ]


display "Example" [ aaa_stats: box white 100x30 effect [ draw example 
] button "ok" tab button "cancel" [ unview/all ] ]
do-events

on linux, you need the full path to the font you are trying to use. 
 ttf fonts are supported.

Is that comic repetition ?
:-)

I am assuming this is a linux thing. I am learning really basic stuff 
as a Rebol newbie. When I try running the expamle from http://www.rebol.com/docs/core23/rebolcore-3.html

print read ftp://ftp.rebol.com/pub

I get the following error:

>> print read ftp://ftp.rebol.com/pub
** User Error: Server error: tcp 530 Login authentication failed
** Near: print read ftp://ftp.rebol.com/pub

I was expecting this to work. What am I doing wrong?

i'm pretty sure that rebol.com doesn't have ftp enabled

I guess it was once enabled, but has

since been closed, for security reason.

they were hit by a hacker who defaced their site ...

I think they came in via ftp

try this 

 print read ftp://ftp.compkarori.com/

or, you can do this

>> trace/net on
>> print read ftp://ftp.rebol.com/
URL Parse: none none ftp.rebol.com none none none
Net-log: ["Opening" "tcp" "for" "FTP"]
connecting to: ftp.rebol.com
Net-log: [none ["220" "230"]]

Net-log: {220---------- Welcome to Pure-FTPd [privsep] [TLS] ----------}
Net-log: "220-You are user number 3 of 150 allowed."
Net-log: "220-Local time is now 20:15. Server port: 21."
Net-log: "220-This is a private system - No anonymous login"
Net-log: {220-IPv6 connections are also welcome on this server.}

Net-log: {220 You will be disconnected after 30 minutes of inactivity.}
Net-log: [["USER" port/user] "331"]
Net-log: "331 User anonymous OK. Password required"
Net-log: [["PASS" port/pass] "230"]
** User Error: Server error: tcp 530 Login authentication failed
** Near: print read ftp://ftp.rebol.com/

Hmm.. I thought Carl disabled ftp .. .but it's still actives

It does say "no anonymous login" though.

I  used Manum example, but I get:
** Script Error: Cannot use path on none! value

** Near: face/font/name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf"

Do you have a file FreeSans.ttf at that location?
Look for it with linux shell command:
	locate FreeSans.ttf

I'm not using View for a very long time, but I guess you must first 
make the font object!

MaxV has released a Debian package ... http://synapse-ehr.com/forums/showthread.php?130-Ubuntu-Debian-package&p=764#post764

Anyone running Debian who can test it?

Works fine.

And it is View ?

Nope. Core 2.7.7.

I have been playing with this for hours and have not made any progress 
after reading everything I could find about ports and ftp. Why does 
the following script not work?

    ftp-port: open [
        scheme: 'ftp 
        host: "ftp.mysite.org" 
        port-id: 21 
        user: "[user-:-mysite-:-org]" 
        pass: "xxxxxxxxxx"
    ] 
    write ftp-port "Test File" 
    close ftp-port

It gives the following error.


** Script Error: write expected destination argument of type: file 
url object block
** Where: func [face value]

You haven't specified a file to write to

you can try to use this: http://rebol.wik.is/Rebol3/Schemes/Ftp

Also as you can see, READ and WRITE does not support PORT! as an 
argument... at least not in R2

uh... sorry, now I see the link is for R3

Just dont' use the OPEN in the first line! And it will be working.

ftp-port: [scheme: 'ftp  host: "ftp.mysite.org"  user: "[user-:-mysite-:-org]" 
 pass: "xxxxxxxxxx"]
read ftp-port

Thanks Oldes, I'll give that a try.

ftp-port: [scheme: 'ftp  host: "ftp.mysite.org"  user: "[user-:-mysite-:-org]" 
 pass: "xxxxxxxxxx" target: %test.txt]
write ftp-port "hello"

Maybe there is some better way.. I don't remember it as I'm not using 
such a script.

I guess you are not using clasic way because of the #"@" char in 
user name.

I think you just need to change the host to ftp.mysite.org/testfile 
and it should work

You are correct, I cannot use the classic way due to the #['-:-'].

but the way you have it above you haven't specificed a target file

Oh, you are right, no target file.

Script Error: write expected destination argument of type: file url 
object block

Also note that you must use path if you don't want to write to root! 
Don't listen Graham, Host is just Host

the errors are meaningful!

Yep! One day I'll learn to read.

sorry ... you need a path element in your object

block ...

scheme host path port user and pass

port-id

You can tell I haven't done this for a long while either

maybe this will work??


write ftp://user%40mysite.org:[xxxx-:-ftp-:-mysite-:-org]/testfile.txt "hello"

ie. url-encode the username

actually this conversation should be in 'Core group

Anyway... using block or url is same.. the connection is cached... 
right.

url-encode the username. I tried that, did not work.