World: r4wp

There's no better response than: it can be done.
You just have to correct the bugs as they come.

:)

is the complete error that one ?

** Script Error: Invalid argument: a: "100.0"

** Where: to-decimal
** Near: to decimal! :value

yes

so you are trying to convert to a decimal something not convertible

add a probe, just after to-decimal

hmmm...not that i know of...just using the test data i put in here:

>> probe objs
[make object! [
        a: make object! [
            a: "100.0"
        ]
    ] make object! [
        a: make object! [
            a: "99.0"
        ]
    ] make object! [
        a: "199.0"
    ]]

you are trying to convert an object to a decimal

as long as fact1: 'a/a it works fine.
if fact1: 'a - boom!

because your objects have structures which are not always the same

how do i tackle this?

what is the name of the decimal attribute ?

a


blk: any [greater? to-decimal probe do bind reduce [fact1] obj num1 
| greater? to-decimal do bind obj/:fact1 obj num1]??

Currenlty 'a stands for either an object or a string, you can't be 
that vague.
You must choose a clear name  to identify the decimal attribute

rats!

or you must check in your code when 'a is an object!

and fact1 must be initialized accodingly.
Either with 'a either with 'a/a

question:
an object 'a always has only one property called 'a ?

yes

ok it's simpler then, let me try...

fact1: 'a
get-prop: func [o][either object? o [first next second o][o]]

blk: [greater? to-decimal get-prop do bind reduce [fact1] obj num1]objs: 
[]

another question. 

Why are you using the blk variable instead of coding directly in 
the foreach loop ?
The code would be simpler.

meaning?

This is the same thing without the need of the blk code:

foreach obj objs [
	if num1 < get-prop obj/:fact1 [print obj/a]]
]

much simpler, no need to rebind anything

small mistake, missed the to-decimal.

foreach obj objs [
	if num1 < get-prop to-decimal obj/:fact1 [print obj/a]]
]

arghhh

foreach obj objs [
	if num1 < to-decimal get-prop obj/:fact1 [print obj/a]]
]

Anyway, you see the idea

yes...

much simpler

Is it possible to change the background color of the view led? Or 
are the only states available 'true' and 'false' which are green 
and red? I want different background colors for 'true' and 'false' 
states.

view center-face layout [
	across
	l1: led
	label "State" state: field

	btn "Change led state" [
		either l1/data [
			l1/data: false
			state/text: "False"
		][
			l1/data: true
			l1/data: true
			state/text: "True"
		]
		show [l1 state]
	]
]

caelum, take a look at the style code. the colors are likely embedded 
in it:

>> get in get-style 'led 'colors
== [0.255.0 255.0.0]

Then something like this:

stylize [
	led: led with [colors: [<your colors here>]]
]

should probably be STYLIZE/MASTER, sorry.

you can also do this:

view layout [led with [colors: [<your colors here>]]]

Got it, exactly what I was looking for. Thanks.

You're ramping up fast sujoy. Most people don't get to using BIND 
for a long time. :-)

As Steeve has pointed out "it can be done" is *almost* always the 
answer with REBOL, and usually done in many ways. REBOL is great 
for practical use, as well as learning to think about problems in 
new ways.

thanks Gregg. am loving rebol... :)

you took the red pill then :)

haha! looks like it Endo!

He's one of us now Endo. Next thing, he'll b3 wondering why every 
other programming language has only 6 or 8 datatypes and why they 
don't have a PARSE function. :-)

has anyone written parse rules for phone numbers?   I need to setup 
a set of rules for international numbers, local numbers, cell numbers, 
1800 etc for use in asterisk and prevent users from making toll calls 
unless authorise

To make it easier I will strip out alll non-digits first

I guess i should just make a rule for each type of call and then 
combine them.

Here's something for US phone numbers I did a long time ago

set 'parse-phone-num func [
        num [string!]
        /local  digit digits sep _ext_  ch nums pin ext
    ] [
        digit:  charset "0123456798"
        digits: [some digit]
        sep:    charset "()-._"
        _ext_:  ["ext" opt "." | "x"]

        nums: copy ""
        rules: [
            any [
                some [sep | copy ch digit (append nums ch)]
                | _ext_ copy ext digits
                | "pin" copy pin digits
            ]
            end
        ]
        either parse trim num rules 
            [reduce ['num nums 'ext ext 'pin pin]]
            [none]
    ]

    set 'well-formed-phone-number? func [num /local data] [
        either none? data: parse-phone-num num [false] [
            any [
                found? find [7 10] length? data/num
                all [11 = length? data/num  data/num/1 = #"1"]
            ]
        ]
    ]

And a formatter that goes the other way:

set 'format-phone-number func [
        num [string! object!] "String or object with /text value"
        /def-area-code area-code [string! integer!]
        /local left right mid obj res
    ] [
        left:  func [s len][copy/part s len]
        right: func [s len] [copy skip tail s negate len]
        mid:   func [s start len][copy/part at s start len]

        if object? num [obj: num  num: obj/text]

        res: either data: parse-phone-num num [
            ; discard leader if it's there.
            if all [11 = length? data/num  data/num/1 = #"1"] [
                data/num: right data/num 10
            ]
            rejoin [
                rejoin switch/default length? data/num [
                    7  [ compose [

                        (either area-code [rejoin ["(" area-code ") "]][])
                        left data/num 3 "-" right data/num 4
                    ]]
                    10 [[
                        "(" left data/num 3 ") "
                        mid data/num 4 3 "-" right data/num 4
                    ]]
                ][[data/num]]

                reduce either data/ext [[" ext" trim data/ext]] [""]

                reduce either data/pin [[" pin" trim data/pin]] [""]
            ]
        ][num]

        if obj [
            obj/text: res
            attempt [if 'face = obj/type [show obj]]
        ]
        res
    ]

Ok, so this checks for legally formatted numbers.  Or formats numbers 
into the common format.

need to reboot .. clipboard not working.  When is openme coming :(