Slide show from Collaboration
[1/4] from: lmecir::mbox::vol::cz at: 3-Oct-2004 19:12
my slide-show can be run in View/beta as follows:
do http://www.fm.vslib.cz/~ladislav/rebol/present.r
-L
[2/4] from: AJMartin::orcon::net::nz at: 5-Oct-2004 6:03
Ladislav wrote:
> my slide-show can be run in View/beta as follows:
>
> do http://www.fm.vslib.cz/~ladislav/rebol/present.r
>> do http://www.fm.vslib.cz/~ladislav/rebol/present.r
** Script Error: unless has no value
** Where: tfunc
** Near: unless string? pick spec 1
:(
---
Andrew Martin
ICQ: 26227169
http://www.rebol.it/Valley/
http://valley.orcon.net.nz/
http://valley.150m.com/
[3/4] from: Izkata:Comcast at: 4-Oct-2004 18:49
> Ladislav wrote:
> > my slide-show can be run in View/beta as follows:
<<quoted lines omitted: 5>>
> ** Near: unless string? pick spec 1
> :(
Dang a Native or I'd just copy the source lol -
>> ? unless
USAGE:
UNLESS condition block
DESCRIPTION:
Evaluates the block if condition is not TRUE.
UNLESS is a native value.
ARGUMENTS:
condition -- (Type: any)
block -- (Type: block)
I am using V 1.2.46.3.1 which I got from
http://www.rebol.net/projects/view1.3/downloads/
[4/4] from: lmecir::mbox::vol::cz at: 5-Oct-2004 10:45
A J Martin napsal(a):
>Ladislav wrote:
>>my slide-show can be run in View/beta as follows:
<<quoted lines omitted: 9>>
>** Near: unless string? pick spec 1
>:(
Hi Andrew,
you can define Unless as follows:
unless: func [
"Evaluates the block if condition is not TRUE."
[throw]
condition
block [block!]
] [
either condition [none] block
]
, but I am not sure that is everything what is needed to run the script
-L
Notes
- Quoted lines have been omitted from some messages.
View the message alone to see the lines that have been omitted