AltME groups: search

In my area, you have to write:
layout [area-scroll hscroll vscroll]

to have both scrollers. Without 'hscroll 'vscroll, it's an area, 
so compatible.

REBOL [
	Title: "Local Index" 
	Type: 'index 
	dynamic: true 
	plugin-pane: 0.5
]

title "Local Files"
app 0.3

group "A" effect [multiply green] 
			 
group "B" icon %action.png

action "a\gitarre"    do [explore %/f/gitarre/]
action "a\view-root" do [explore view-root]
action "a\hamster"   do [call "H:\prog\Hamster\Hamster.exe"]

action "b\Internet" do [
	call "H:\Programme\offline-proxy-mm3\MM3-WebAssistant.bat"
	call "C:\Programme\discountsurfer\discountsurfer.exe"
	call "H:\Programme\Mozilla\Firefox\firefox.exe"
	call "C:\Programme\Opera75\Opera.exe"
] 


action "b\Firefox" do [	call "H:\Programme\Mozilla\Firefox\firefox.exe"] 
icon %web-surf-action.png

action "c\desktop"   do [editor view-root/desktop.r] 
action "c\imap"      do [editor %imap-handler.r] 

file "Info" %info.txt
file "T\Test" %test1.r 
file "T\Test2" %test2.r 
file "T\Test" %test3.r

; this is composed ----
file (form now/date) %dummy.r

action "Click me" #clickme do [
            alert "hi"

            [Text "This will be displayed within the desktop" [alert "ho"]]
          ]

action "Click me 2" #clickme2 do [
            alert "hi"
			; no return value, so nothing displayed in the desktop
          ]

action "PRINT" do [print "^/^/----------------------^/^/^/"]
action "prin somethin" do ["yea"]
file "t\Test" %dummy.r

; this will draw the plugin
app-draw [face /local cl-size][
   cl-size: to pair! reduce [face/size/x 50]
	face/pane: layout/offset[
		at 0x0 
	   text "00:00:00" cl-size center 255.155.40 with [
   		font: [size: 24]
	   	rate: 1
		   user-data: none
   		feel: make feel [
	   		engage: func [face action event i] [
		   		if user-data <> now/time [
			   		i: form user-data: now/time
				   	if 7 > length? i [append i ":00"]
					   face/text: i
   					show face
	   			]
		   	]
      	]
      ]
      text "TEST" 
		button "hi" [alert "you!"] 
   	button "CLOSE" [unview/all] 
	] 0x0 face/size 
]

; if you need to redraw after a resize, not yet used
app-resize [new-size][]

If you add to that the tendency for bikes to get stolen here, the 
layout of Chicago and commuting patterns, and the efficiency of our 
public transportation, it is rare for people to use bikes here except 
for recreation and the bike messengers downtown.

I've worked with Wikipedia for about an hour now and it's very nice 
to work in. Layout is fairly automatic and easy to learn.

view layout [btn "hi" "ho" with [flags: [toggle]] feel (get in get-style 
'toggle 'feel)]

same again with an action block

view layout [btn "hello" "goodbye" [print face/text] with [flags: 
[toggle]] feel (get in get-style 'toggle 'feel)]

I have a window that I want to make a dialog box .... so I do an 
inform on the layout.

Is it possible to make the resultant window resizable ... a la ... 
view/options layout [......] [resize]

the /Options refinement of layout simply sets a couple of flags in 
the face...

help layout
USAGE:

    LAYOUT specs /size pane-size /offset where /parent new /origin pos 
    /styles list /keep
/tight

DESCRIPTION:

     Return a face with a pane built from style description dialect.
     LAYOUT is a function value.

ARGUMENTS:

     specs -- Dialect block of styles, attributes, and layouts (Type: 
     block)

REFINEMENTS:
     /size

         pane-size -- Size (wide and high) of pane face (Type: pair)
     /offset
         where -- Offset of pane face (Type: pair)
     /parent
         new -- Face style for pane (Type: object word block)
     /origin
         pos -- Set layout origin (Type: pair)
     /styles
         list -- Block of styles to use (Type: block)
     /keep -- Keep style related data
     /tight -- Zero offset and origin

You should be able to set these options manually with something like...

lay: layout [text "testing"] 
lay/options: [resize]
view lay

Another thing ..... running on WinXP under view from 1.2.5 & upwards 
....
view/options layout [btn "Test"] [resize]

.... gives me a window that is only partly filled in with the default 
background color?

your code with the options against the layout works with inform ... 
thanks Ammon.

lay: layout [btn "Test"]
print lay/size
view/new lay
print lay/size
do-events

lay: layout [btn "Test"]
print lay/size
view/new/options lay [resize]
print lay/size
do-events

I think it'll be a very useful and worthy entry for DocBase, but 
it would also be nice to use Gabriele's PDF-MAKER or other page layout 
for a nice reference sheet printout.

; I did a dif between the functions in VIEW and those in CORE for 
a default install.  What I get is this ( I hope it is useful to have 
al 106  in one place )

 alert  brightness?  caret-to-offset  center-face  choose  clear-face 
  clear-fields  confine  crypt-strength?

 dbug  deflag-face  desktop  dh-compute-key  dh-generate-key  dh-make-key 
  do-events  do-face  do-face-alt  do-thru  

 draw  dsa-generate-key  dsa-make-key  dsa-make-signature  dsa-verify-signature 
  dump-face  dump-pane  edge-size?  

 editor  emailer  exists-thru?  find-key-face  find-window  flag-face 
  flag-face?  flash  focus  get-face  

 get-net-info  get-style  hide  hide-popup  hilight-all  hilight-text 
  hsv-to-rgb  in-window?  inform  

 insert-event-func  inside?  install  launch-thru  layout  link-relative-path 
  load-image  load-stock  

 load-stock-block  load-thru  local-request-file  make-face  notify 
  offset-to-caret  open-events  outside?  

 overlap?  path-thru  read-net  read-thru  remove-event-func  request 
  request-color  request-date  request-dir  

 request-download  request-file  request-list  request-pass  request-text 
  reset-face  resize-face  rgb-to-hsv  

 rsa-encrypt  rsa-generate-key  rsa-make-key  screen-offset?  scroll-drag 
  scroll-face  scroll-para  set-face  

 set-font  set-para  set-style  set-user  show  show-popup  size-text 
  span?  stylize  textinfo  unfocus  

 uninstall  unlight-text  unview  vbug  view  viewed?  win-offset? 
  within?

; interesting question ... Rebol lets me spell it "colour" if I really 
want to :-)
alias 'color "colour"
view layout [label with [colour: red] "hello"]

Here is my code:

append top text
pdf: copy []
page: compose/deep [
    textbox [  
        font Courier 4.5 as-is (:top) 
    ] 
] 
append/only pdf page
write/binary %deposit-slip.pdf layout-pdf pdf
browse %deposit-slip.pdf

I think there is great potential to unifying all the tools that are 
forming now: pdf-maker, AGG, SVG input and makedoc2. Allow these 
things to talk to eachother! imagine making a drawing in AGG or import 
an SVG into a DRAW and then use the very same block with layout-pdf. 
Future versions of makedoc could print pdfs as well as HTML through 
pdf-maker. by letting these tools use eachother, the combination 
could be a very fast and powerful document creation system.

I suppose my question should be: Can it print graphics easily? I 
want something like >>printout %//pc/printer to-image layout [title 
"TEST PRINT"]

Why I am getting this error?
>> do %pdf-maker.r
Script: "PDF Maker" (2-Jun-2006)
>> layout-pdf [[textbox ["This is some text."]]]
** Script Error: Cannot use add on none! value
** Where: make-pages
** Near: pid: (2 * length? pages) + i
foreach
>>

REBOL/View 1.3.50.3.1 14-Oct-2005 Core 2.7.0
Copyright 2000-2005 REBOL Technologies.  All rights reserved.
REBOL is a trademark of REBOL Technologies. WWW.REBOL.COM
>> change-dir winpath-to-file "C:\rebol\scripts\pdf_maker"
== %/C/rebol/scripts/pdf_maker/
>> do %pdf-maker.r
>> myLayPdf: layout-pdf [[textbox ["This is some text."]]]
** Script Error: Cannot use add on none! value
** Where: make-pages
** Near: pid: (2 * length? pages) + i
foreach
>>

There was a reason - already forgot it.

The only thing in user.r was the function above (except set-net) 
- and I removed it ;-)
But:
REBOL/View 1.3.2.3.1 5-Dec-2005 Core 2.6.3
Copyright 2000-2005 REBOL Technologies.  All rights reserved.
REBOL is a trademark of REBOL Technologies. WWW.REBOL.COM
>> change-dir to-rebol-file "C:\rebol\scripts\pdf_maker"
== %/C/rebol/scripts/pdf_maker/
>> do %pdf-maker.r
>> myLayPdf: layout-pdf [[textbox ["This is some text."]]]
** Script Error: Cannot use add on none! value
** Where: make-pages
** Near: pid: (2 * length? pages) + i


Could it be connected with that I am starting rebol with view.exe 
-i ?

>> do %pdf-maker.r
Script: "PDF Maker" (11-Aug-2005)
>> myLayPdf: layout-pdf [[textbox ["This is some text."]]]
== #{
255044462D312E330A342030206F626A0A3C3C202F54797065202F466F6E7420
2F53756274797065202F5479706531202F42617365466F6E74202F48656C...
>>

gabriele, I was more thinking about general page layout, not the 
lower level text flow functions, so you  can decide a general template 
for your pages on your own.

of course, you decide the layout. you can make text go from one textbox 
to another and so on. you can place the textboxes anywhere.

pdf maker can't do this, because manual intervention is in general 
not desirable. (i.e. an app that uses the pdf maker to produce invoices 
should not expect the user to manually fix the layout if there are 
problems)

notice that tables can be used for many things, for example to layout 
a numbered list, with the number in the first cell and the text in 
the second

the algorithm produces the layout with the least total demerits.

(you can do almost everything with TeX by using tricks, but you basically 
need to layout the table manually. it is not able to do that automatically 
- something that we need to do instead.)

(the table dialect is still very basic, just for testing. table layout 
seems to work well, uses the total-fit algorithm and should create 
optimal layouts in most usual cases. there are boundary cases where 
it can fail, but i hope we won't need to worry about them. check 
test.pdf for an example of a table.)

| 'image (
                push new
                gfx: none

                insert tail new/contents new: make default-space []

            ) opt [opt 'at [copy val1 2 number! | set val1 pair!] (if pair? val1 
            [val1: reduce [val1/x val1/y]] new/translate: val1)] ; <-- now translation 
            is optional, and can be a pair too

            opt [opt 'size [copy val1 2 number! | set val1 pair!] (if pair? val1 
            [val1: reduce [val1/x val1/y]] new/scale: val1)] ; <-- now scale 
            is optional, and can be a pair too
            any [
                'rotated set val1 number! (new/rotate: val1)

              | 'skew [copy val1 2 number! | set val1 pair!] (if pair? val1 [val1: 
              reduce [val1/x val1/y]] new/skew: val1) ; <-- now accepts a pair
            ]  set val1 [image! | file! | word!] (
                if word? val1 [val1: get val1]
                if file? val1 [val1: load val1]

                ;if none? new/translate [new/translate: [0 0]] ; <- default position 
                (could set this to "current layout position")

                if none? new/scale [new/scale: reduce [val1/size/x val1/size/y]] 
                ; <- default size

                insert insert tail used-images val2: join "Img" length? used-images 
                val1
                gfx-emit [to-refinement val2 'Do]
                new: pop gfx: none
            )

Sorry, defaults for what ?
The above changes allow eg:
	layout-pdf [ [ image logo.gif ] ]
	layout-pdf [ [ image 20x150 200x96 logo.gif ] ]

With the above patch, this:
	layout-pdf [ [ image logo.gif ] ]

shows the image with the size of  100x24 mm.

When rendered by Adobe Reader at 100%, that appears about 3.5 times 
larger in each direction than
	view layout [ image logo.gif ]


Actually, it would be better to multiply by the pixels/mm  ratio. 
Let me have a look...

there's also to say, that the layout-pdf dialect is still meant to 
be rather low level. a human would write in QML or makedoc or some 
high level dialect, not layout-pdf; thus the defaults for image would 
be useless (even if a human was to write it, they'd only cover some 
10-20% of the cases, since not all images have the same dpi, and 
99% of the time you don't want the image at the bottom left corner 
of the page).

I see, and I understand and accept your position regarding the "low-level-ness" 
of the dialect.

Sorry for the confusion, but I left the line setting the default 
position commented so you could uncomment it *if* you already had 
a "current layout position" variable handy. I thought any position 
would be better than no position.

You have, of course, the benefit of knowing how the dialect works 
inside out. People new to the dialect would like to find out how 
it works by experimenting. Then it would be good to be more friendly, 
not causing error on missing parameters, similar to LAYOUT.

also, since the result is a block of pages, you can modify the result 
and add anything after the layout process.

this works for me:


b: layout-pdf [[textbox [box 60 60 10 [image 0 0 40 40 load http://www.rebol.com/graphics/reb-logo.gif]]]]

b: layout-pdf [[textbox ["Image: " box 60 60 10 [image xbl ybl 40 
40 load http://www.rebol.com/graphics/reb-logo.gif] " inside text"]]]

I have this ...

if not value? 'layout-pdf [ *do %pdf-maker.r ]

I should have a layout-pdf2 .... so I can use both

this is the code whith image-patterns:


fnt: make face/font [size: 240] view layout [box 800x260 white effect 
[draw [pen logo.gif font fnt text 1 "REBOL"]]]

view layout [image img]   and I get a left top 1 pixel border. Is 
this a bug ?

Guest: this is not a bug. Try this code:

img: draw 50x50 [fill-pen green box 0x0 49x49]
view layout [image img]

you have to take in mind that the coordinate system starts from 0x0 
not 1x1. The white border is a 'stroke'  rendered by PEN (which is 
set to white by default). So if you want just plain box you have 
to write:


 view layout [box 50x50 effect [draw [pen none fill-pen red box 0x0 
 49x49]]]

ups, the last line should be:


view layout [box 50x50 effect [draw [pen none fill-pen red box 0x0 
50x50]]]

n: 1
plot: [
	pen black line-width n
	arc 190x130 60x60 90 270
	arc 390x130 60x60 180 270
	arc 190x330 60x60 0 270
	arc 390x330 60x60 270 270
]
							
view center-face layout [
	bx: box 580x450 effect [draw plot]
	sl: slider 580x20 [
		n: 1 + (sl/data * 70)
		show bx
	]
]

n: 0
plot: [
	pen black line-width 2
	arc 190x130 60x60 90 n closed
	arc 390x130 60x60 180 n closed
	arc 190x330 60x60 0 n closed
	arc 390x330 60x60 270 n closed
]
							
view center-face layout [
	bx: box 580x450 effect [draw plot]
	sl: slider 580x20 [
		n: 1 + (sl/data * 360)
		show bx
	]
]

n: 0
plot: [
	fill-pen red pen black line-width 5
	arc 190x130 60x60 90 n closed
	arc 390x130 60x60 180 n closed
	arc 190x330 60x60 0 n closed
	arc 390x330 60x60 270 n closed
]
							
view center-face layout [
	bx: box 580x450 effect [draw plot]
	sl: slider 580x20 [
		n: 1 + (sl/data * 360)
		show bx
	]
]

rebol [title: "ARC's Draw command test"]

begin: angle: 0
lines?: 'closed
plot: [
	fill-pen red pen black line-width 5
	arc 100x100 90x90 begin angle lines?
]
							
view center-face layout [
	bx: box 200x200 effect [draw plot]
	across
	style vt vtext 60 right

 vt "Start:" scroller 392x16 [angle: face/data * 360 show bx] return

 vt "Angle:" scroller 392x16 [begin: face/data * 360 show bx] return

 vt "Type :" toggle "open it" "closed it" [either face/data [lines?: 
 none] [lines?: 'closed] show bx]
]

Here's an example from the above layout.

Is it better than straight from REBOL to PDF?  I would have to say 
yes.  make-pdf gives you ultimate control over the page, but only 
for one page ie. you know the page layout already.   It is set up 
more like a desktop design package, whereas LaTeX to PDF is much 
more in the same spirit as make-doc.

Pekr: 

1. I don't know if i understand correctly, but if You give only one 
size (f.e. width), image will be scaled with aspect ratio to that 
size. You can set .photo size too of course (so it will not ruin 
Your layout)

2. Text under the image - I can't identify the problem. Can You give 
a link to it?

Yes, I know oscommerce (or xtcommerce which is IIRC a fork). I use 
Rapidweaver for Web-Pages so I would like to integrate all this.


The problem I have is, that all these shop system push you to use 
their layout engine etc. There is none I know, that just does the 
non-gui backend part.

Layout: Use what you like.

Item presentation: Dead simple integration into existing pages. No 
frills, simple to change.
Shopping Cart: Provides simple API that can be called via CGI
Payment Forwarding: Plug-Ins where to route the payment process

I don't know what it is about doing table-free designs, but I personally 
think it's damn hard to do. You have some parameters that you can 
adjust for CSS that are cryptic and difficult to guess how the layout 
will be. With a table, you have cells, adjustment, width and many 
predictable elements. I think it's because CSS is underpowered for 
what it's meant to do, and the ability to separate design from content 
(desktop vs. phones) is a tad overrated, if it just makes site design 
and construction that much harder.

Agreed with Henrik.  If you aren't expecting the site to be on mulitple 
end-user hardware platforms and not expecting drastic user customizable 
styles, I don't see the need to avoid tables for the layout.  CSS 
just for the fine-tuning.

There have been close to holy wars between the CSS purists and those 
who use tables for everything. The best position is one that balances 
the needs and priorities of your website and development team's aptitudes.

Here'ssome arguments for as few tables as possible for layout purposes 
(it's taken for granted that tables are good for tabular data):

http://www.chromaticsites.com/blog/13-reasons-why-css-is-superior-to-tables-in-website-design/

I'd possibly consider myself a CSS 'purist' - I like that it encourages 
a language oriented approach to page/site design (not a language 
of Rebol's calibre, indeed, but a nod in that direction : )   The 
trade off can be in the complexity in implementing layout, but really 
there are few patterns that have not been mapped out.

I use tables to presend data that belongs into tables and where it 
makes sense. I didn't use tables for general layout in a long time. 
I am not any purist but I find other ways much better than tables 
for this. It can make quite messy code and they don't degrade well 
to smaller screens.. etc..

I'll go with table free design for layout. I talked to few ppl and 
most don't use table for layout anymore ...

designing for a small browser still requires re-designing the layout. 
 no way round that.

New installement of "The REBOL Week" available.   A LOT happening, 
and a fresh new layout.   :-)
http://rebolweek.blogspot.com/

TOOLBAR version 0.0.3 released.


Toolbar is a new layout function for creating a MacOSX or Windows 
style toolbar for VID.

Files:

http://hmkdesign.dk/rebol/toolbar/toolbar-manual.html
http://hmkdesign.dk/rebol/toolbar/toolbar.r
http://hmkdesign.dk/rebol/toolbar/toolbar-demo.r

PAN-IMAGE version 0.0.1

http://www.hmkdesign.dk/rebol/panimage/pan-image.r


This is just a face which allows panning of an image larger than 
the face, by dragging the mouse around on the image. Supports keyboard 
and scrollwheel.

USAGE: view layout [pan-image 300x300 <huge-image>]

REBOL [
    Title:   "Slideshow"
    Date:    12-Oct-2006
    Name:    'SLIDESHOW  ; For window title bar
    Version: 1.0.0
    File:    %slideshow.r
    Author:  "Louis A. Turk"
    Rights:  "Public Domain; use at your own risk."
    Needs:   "A version of REBOL/VIEW supporting sound"

    Purpose: {To make possible simple, easy to make narrated slide shows.

              Hopefully can be used with the REBOL plugin to show narriated slides
              on a web site.

              Hopefully can an effective tool to teach REBOL programming.
    }
    Note: {
        The concept and design originated with Louis A. Turk.

        DideC helped considerably by answering programming questions and 
        giving bits of code;
        it would not have been possible without his help.
	Josh also answered programming questions.


        You can make wav files using the free program Audacity. http://audacity.sourceforge.net


        Advanced JEPG Compressor does and excellent job compressing graphics 
        files so they load 
        faster, but is not free.
    }
    History: [
        1.0.0 [ "First release." "Louis"]
    ]

    Language: 'English
]

;Requires a data file named %slides.r containing lines of blocks 
in the following format:

;Each block must contain: (1) slidename, (2) overlay, (3) caption, 
(4) sound.

;Example block: [%slide1.jpg "Overlay text." "A caption!" %sound.wav]
;Use "" for no overlay or caption.


;file: request-file/title/only "Select the slides data file to use." 
"Select Data File"

file: %slides.txt ;uncomment the above line, and comment this one 
to select data files with different names.
slides: load file
narrate: func [talk] [ ;--- Manage the sound
    sound-port: open sound://
    insert sound-port load talk
    wait sound-port
    close sound-port
]

view/new win: layout/size [] 650x650 ;<= Set the max size you need
wait 0  ;---Initialize REBOL's internal event handler.
foreach slide  slides [ ;--- Start the slide show
    set [graphic overlay caption narration] slide
    lay: layout [
        origin 0

        banner center bold red "A REBOL Produced Narriated Slide Show" 
        image graphic overlay 500x400 frame black [unview] [quit]
        text 500 bold caption
        button "Quit" center [quit]
    ]
    center-face/with lay win
    append clear win/pane lay
    show win
    narrate narration
]
do-events

Could anyone explain, what does following stupid hack mean?


;-- Must be done prior to loading anything that requires fonts on 
Linux.

layout [text "imanXwin kludge"] ;-throw this one away soon-- okay?

open-events

what about changing the hack to the resulting layout object. shouldn't 
that work the same way?

well, LAYOUT is a mezz and everything that happens to build that 
face is a mezz, so there should be a way to extrapolate a new hack 
that doesn't require VID.

I guess you can't just use the resulting layout object. It's very 
large.

then when you go to http://somewhere.com/index.r, it loads a "rebpage", 
i.e. VID layout right in the canvas.

Getting a weird behavior with an encapped app....


It works fine on most computers but on one computer an image in the 
face is not displaying properly...

its as if white space is being added to the right  and bottom sides 
throwing of the layout. 

I tried placing in a box with specific size. THis retains the basic 
layout but the image is squeezed up into a part of the box.
Only a problem on one computer so far ...

I originaly just had teh pic displayed in a layout with "image pic"

I later put in a 'box with specified size (matching the resolution 
of image)

The image was creaed from a layout (to-image)

But the layout also contains a jpg

And also when I encap with enface.exe or encmdview.exe, it works, 
but it says "layout has no value".

if you didn't then you might not have layout

No, this allows the layout to jump back to a bigger size if the designer 
made a mistake with min-size.

Correct, the code in question prior to latest build was:

	if find face/span #"W" [face/size/x: face/size/x + delta/x]
	if find face/span #"H" [face/size/y: face/size/y + delta/y]


which works well except that negative sizes seem to cause downstream 
problems. Suffice it to say that I'm now leaning towards a layout-min-size 
model to at least prevent negative sizes in the first place! ;) Good 
discussion.

Sounds reasonable. What about a double-click action as well? I was 
thinking of expanding the layout parsing rules such that *any* widget 
could be specified as:


 widget [default left-click action] [default right-click action] [default 
 double-click action]

but I'm not sure whether this is overkill or not.

the docs says that display has a /layout refinement, but it doesn't.

Looks like the layout is not parsed correctly when you specify a 
modal layout with /dialog

Working on a number of 'layout fixes and adding support for a "return-after 
n" type keyword that should reduce the number of 'return's used in 
certain types of displays.

Latest build available at: http://www.dobeash.com/files/RebGUI-037.zip

Issue log: http://www.dobeash.com/it/rebgui/issues.html


*** Unzip this file into your existing RebGUI 0.3.0 distribution. 
Requires View 1.3.1 ***

Highlights include:

	- Close handler refinement added to display function

 - Closing the main window when more than one is open now prompts 
 for confirmation

 - New 'after keyword added to layout (helps with displays that arrange 
 widgets in one or more columns)

 - Fixed major bugs with 'at positioning and window size determination
	- Couple of layout 'reverse bugs fixed
	- Documentation updated to reflect above changes
	- Number of minor bug fixes

In the works

	- revamped focus system
	- basic menu widget
	- context menu widget
	- field-level validation
	- stabilize existing code-base for 0.4.0 beta release

Because data is none?

>> layout [r: radio]
>> probe r/data
none

Ahh... sussed it.  I was composing the layout block inside a function, 
and forgot to copy before passing it to the display function.

I wanna have a go at it too. I'll try some simple stuff with a LAYOUT.

looks fine. I won't be doing more work today on it, but I might make 
a new frame that fits a little better into the presentation layout.

graph-layout: I won't have the time to get deeper into rebcode in 
the moment. So, here is a request, for something that gives a nice 
demo: I have the old graph-layout code, which uses the TouchGraph 
idea. Anyone interested to port it to rebcode and see howmany nodes 
we can handle?

Ok, I send it to you. I have serveral versions, one using faces, 
one using draw (but has problems with layout that doesn't converge). 
IMO a version using draw and rebcode would be nice.

I think it would be fun to have a little engine. I'm thinking something 
like:

view 3d-layout [sphere 50 red .... ] etc. :-)

Geomol, Thank you for your iRebcode function. Your inspire me to 
rewrite it into an "interactive draw" function:

>> iDraw: has [b canvas draw-blk temp-draw-blk] [
[        draw-blk: copy []

[        canvas: view/new layout [box 400x400 black effect [draw 
draw-blk]]
[        while [ (b: ask "iDraw >> ") <> "exit"] [
[                temp-draw-blk: copy draw-blk
[                if error? try [
[                        append draw-blk load b
[                        show canvas
[                    ] [
[                        print "Syntax error!"
[                        draw-blk: temp-draw-blk
[                    ]
[            ]
[        draw-blk ; return value
[    ]
>>
>> iDraw
iDraw >> fill-pen red circle 100x100 100
iDraw >> fill-pen 20 blue box 50x50 100x100
iDraw >> text "Fun"
iDraw >> exit
>>

rebol really is a browser in the same sense of why people use web 
browsers.  in fact rebol is a rebol language browser, and IE is an 
html browser.  both intepret a set of specifications.  Rebol has 
all the same limitations of a browser, it implements only a subset 
of what can be done by an OS by default.    but the only real advantage 
REBOL has over "the web" (not to mix up with "internet") is that 
all parts of the development are in the same language, from  layout, 
stylesheet, interactivity, DB, all of this is coded using one single 
language.

The IDE allows you to layout way faster than you can by hand.

Layout and styles in the R3 GUI are two very separate issues. That's 
a very nice thing, since I can build some styles, even though the 
layout engine is currently broken.

f: closure[ta][
 view layout [ta: area]
]

It's the layout and not 'ta that is returned though?

f: closure[ta sl][
 view layout [ta: area sl: slider [scroll-para ta sl]]

Is that just another way of wrapping locals in an object?
f: context [ta: none view layout [ta: area]]