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

[REBOL] Re: To do or not to do?

From: sanghabum:aol at: 28-Nov-2001 19:23

Thanks to Romano, Sterling, and Joel for the instant enlightenment Sterling writes:
> NOOOOOOOOOO!!!! > There is always a way not to do strings. :) <snip> > I hope this has helped you out. If you have any more questions about > it, please ask... we all cringe here at REBOL HQ when we see the > unnecessary use of DO with strings..
Let me show you the depths of my ignorance, which might help or inspire someone to write a best-downloading how-to on Blocks and their uses..... I hate to see a grown man cringe, so I'll close my eyes as I write the next sentence..... I almost always build a 'Layout as a string. Why? Because building one with blocks seems to require lots of special tricks. There's a synthetic example below what I mean. It shows in miniature the sort of things that happen if a 'Layout is made up of loads of components sourced from different places (user color choices from one file, screen metric calculations from elsewhere, list of fields needed from a CSV file, etc). As a string, I can do it in moments, and get on with my life. Blocks just seem too darned difficult in this instance. But, as I said last time, maybe it's not Rebol. Maybe it's my brain that's at fault. Colin Rebol [] ========================================= ;; layout we want to achieve: ;; ======================== Wanted: [across b: box 99x100 green Return c: box 45x33 green + 150.150.150 zz: text "last field" ] ;; Various bits of derived data needed ;; =================================== MaxBoxWidth: 99 MaxBoxdepth: 100 BoxColor: "Green" LastField: "zz" ;; A function to do it with strings ;; ================================ makelayout: func [/local lay] [ lay: join "across " [ " b: box " to-pair (MaxBoxWidth MaxBoxDepth) " " boxcolor " return " " c: box " to-pair (to-integer MaxBoxWidth / 2 to-integer MaxBoxDepth / 3) " " boxcolor " + 150.150.150 " lastfield ": text {last field}" ] return lay ] ;; go do it ;; ======== unview/all view layout load MakeLayout