[REBOL] Re: [VID][layout] Changing origin and space
From: atruter:labyrinth:au at: 22-Mar-2004 12:41
A simple function to set some of those "hard-coded" layout values.
<code>
set-layout: function [
"Changes layout settings."
/origin margin [pair!] "default is 20x20"
/space size [pair!] "default is 8x8"
/way dir [pair!] "'below (0x1, the default) or 'across (1x0)"
/tabs stop [pair!] "default is 100x100"
][
blk
][
blk: second first next find third system/words [layout:]
if any [
20 <> index? find blk [origin:]
26 <> index? find blk [space:]
28 <> index? find blk [way:]
33 <> index? find blk [tabs:]
][to-error "layout version not supported"]
if all [origin pair? blk/25/1][change blk/25 margin]
if all [space pair? blk/27][poke blk 27 size]
if all [way pair? blk/29 find [0x1 1x0] dir][poke blk 29 dir]
if all [tabs pair? blk/34][poke blk 34 stop]
return
]
</code>
Regards,
Ashley