[REBOL] Dynamic Content
From: ammoncooke::yahoo::com at: 14-Sep-2001 15:16
Hi,
I have created a system to dynamically create a face, but for some reason I think it
is breaking some things. This is the dynamic creation function:
bx: [box edge: none ]
pn: [ pane: ]
spc: [ ]
crt-tl: func [
"adds a box to an object, & a pane to the box"
fc "The pane to add the box to"[object!]
nm "The name of the face"
] [
append wrkspc-dt rejoin[bx nm spc fc/size pn fc]
wrkspc/pane: wrkspc-dt
show wrkspc
]
; the following is the pane that is loaded
bldr-cr: layout/offset [
size 640x480
at 20x20 vh1 "tl-src" 55x28
at 5x45 bldr-cr-fsl: text-list 150x400
at 155x45 bldr-cr-dt: area 459x400 240.240.240
] 0x0
For some reason, when this face gets loaded, & I try to type in the area box It throws
the following error:
** Script Error: find-key-face expected face argument of type: object
** Where: find-key-face
** Near: if all [object? f f: find-key-face f keycode] [result: f break]
It doesn't throw this error if I just 'view the layout.
Any ideas?
Thanks!!
Ammon