[REBOL] Re: How dynamic can we be?
From: carl:cybercraft at: 24-Nov-2002 14:36
Hmmm - errors, Gabriele...
Unknown word or style: Btn
Unknown word or style: font
Unknown word or style: trebuchet
Unknown word or style: font-size
Misplaced item: 16
Unknown word or style: bold
Misplaced item: -1x28
** Script Error: Scroller has no value
** Where: do-facets
** Near: Scroller 17x300 [
tsize: size-text a
a/para/scroll/y: 280 - tsize/y * face/data
show a
]
Carl.
On 24-Nov-02, Gabriele Santilli wrote:
> Hello all,
> view lay: layout code: [Do [trebuchet: [name: "Trebuchet MS" size:
> 14]]
> Style Button Btn font trebuchet font-size 16 bold -1x28
> Banner center 600 font trebuchet font-size 38 bold yellow "The
> REBOL evolving GUI"
> Text right 600 font trebuchet font-size 16 "by Gabriele
> Santilli"
> Pad -10 Text right 600 font trebuchet italic "(original idea by
> Baron R.K. Von Wolfsheild)"
> Text 600 font trebuchet
> {Maybe I'm just crazy, but this is so much fun! It is amazing to
> see how easy I can be amazed by these short things... I wonder if
> any other language could do this in so few lines of code, and with
> this readability...}
> Across
> Text font trebuchet right 50 "Title:"
> Pad -8 tit: Field either value? 'window-title [window-title]
> ["Evolving GUI"] 550 font trebuchet Return
> a: Area font trebuchet 583x300 (mold/only code)
> Pad -8 Scroller 17x300 [
> tsize: size-text a
> a/para/scroll/y: 280 - tsize/y * face/data
> show a
> ]
> Return
> Button "Update" 255.200.50 [
> attempt [
> window-title: tit/text
> lay2: layout code: any [attempt [load a/text] code]
> lay/pane: lay2/pane
> lay/size: lay2/size
> show lay
> lay/text: window-title
> lay/changes: 'text
> show lay
> ]
> ]
> Button "Copy" 50.240.100 [
> write clipboard:// join "view lay: layout code: " mold code
> ]
> ]
> Regards,
> Gabriele.
--
Carl Read