Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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