Zdravim,
please, look at my problem:
I need two functions - first makes derivation of some object and the second
makes block that sets values in the new object and than makes a function found
in the same object. From the command line the function works but when called
in the block, REBO says it does not exists.
Can anybody help me please?
>> parent-object: make object! [ a: 1 b: 2 f: func[][print [a b]]]
;; this is the 'base' object
>> block: [hu [a: 3 b: 4]]
== [hu [a: 3 b: 4]]
;; block with settings (function 'f' is same for all derivations)
;; in format [name [values] another-name [another-values] ...]
>> set first block do [make parent-object second block]
;; this selects needed values and makes object out of them
>> probe hu
make object! [
a: 3
b: 4
f: func [][print "sucsess"]
]*
*
;; still seems OK
>> main: copy []
>> foreach [n v] second block [
insert tail main compose [(to-set-word rejoin [first block "/" :n]) (v)]
]
insert tail main to-word join first block "/f"
>> head main
== [hu/a: 3 hu/b: 4 hu/f]
;; this makes block that changes values in the existing object
;; and than evaluates 'f function
>> hu/f
3 4
;; BUT, NOW LOOK AT THE PROBLEM!!!!
>> do main
** Script Error: hu/f has no value.
** Where: hu/f
If I insert probe hu into the block there IS 'f function in 'hu object.
Do I have to make new object with the same name everytime I want just to
change some values in the object?
Louci se
--
--you've been/byl jsi contacted/kontaktovan
---------------
[EMAIL PROTECTED]
-------------www.volny.cz/weirddream
------------------------------------
