Layout

Hi Bertrand, I think this how-to would be the best answer to your question... http://www.rebol.com/how-to/subpanels.html If it's not what you're after, do ask again - you'll most certainly get an answer. This is a very helpful list. There's also "real" panels. Meaning, VID has a 'panel word, but I know of no description of how it should be used. Yes, that's a question for this very helpful list. (; -- Carl Read

layout. I read from the VID documentation that it is possible, unless I miss-understood.

Hi, Bertrand, I am not sure that I know exactly what you are looking for, but maybe it is somewhere in this example. data: ["Scott" "123 Main" "Carl" "456 Maple" "Bertrand" "789 Oak"] lo-func: func [] [ layout [ origin 0x0 text data/1 area data/2 ] ] lo: layout [ origin 10x10 b: box 200x200 button "Previous" [ if not head? data [ data: skip data -2 b/pane: lo-func show b ] ] button "Next" [ if not tail? data: skip data 2 [ b/pane: lo-func show b ] ] do [b/pane: lo-func] ] view lo --Scott Jones

Hi, Bertrand, Unfortunately (or perhaps fortunately ;-), I am not familiar with Microsoft Word, but I certainly understand the concept. This is *not* pretty, but I believe that it demonstrates the concept of adding to a layout after it has been laid out. Hopefully the concept show through that one can add additional "subfaces" to the pane of a face. This example shows a quick and dirty approach, but I am sure that you would want to add better text management, do some refactoring and make it more generic. svv: system/view/vid data: [ "Scott" "123 Main" "Carl" "456 Maple" "Bertrand" "789 Oak" ] lo-func: func [txt-str] [ new-pane: make select svv/vid-styles 'text [ text: txt-str color: 142.128.110 size: 200x200 ] if not empty? b/pane [ pane-count: length? b/pane new-pane/offset: b/pane/:pane-count/offset + 0x34 ] new-pane ] lo: layout [ origin 10x10 b: box 200x200 button "Add Info" [ my-text: rejoin [data/1 "^/^-" data/2] next-pane: lo-func my-text append b/pane next-pane show b data: skip data 2 if tail? data [data: head data] ] do [b/pane: copy []] ] view lo ;############## Please let me know how it works and if this is closer to that which you seek and if you need further comments to explain the functionality. --Scott Jones

Yes. Attention to line break. view layout [ size 200x400 button "add button" [ for e 1 10 1 [ insert tail face/parent-face/pane make-face/offset/spec 'button 20x30 + (0x20 * e) [ text: join "button-" e ] ] show face/parent-face ] ] --- Ciao Romano

Hi, Bertrand, Some of REBOL itself is written in code that is platform specific, and these parts are referred to as native. A surprising amount of REBOL is coded in REBOL. The first level of this code is also called the mezzanine. One can get at this level through the path word 'system. Warning: it makes calls itself, and used to lock up when probed with "probe system". The recursion is limited now for probe, but the code is long, so it is usually more helpful to look at sections as needed.

[self version build product components words license options user script console ports network schemes error standard view stats locale user-license]

[self screen-face focal-face caret highlight-start highlight-end title-size resize-border no-resize-border line-info VID event-port debug pop-face pop-list wake-event window-feel]

[self verbose warn word-limits vid-feel icon-image radio.bmp radio-on.bmp vid-colors vid-face state-flags vid-words vid-styles track error warning facet-words fw-with fw-feel spot expand-specs grow-facets do-facets next-tab choice-face set-edge] So one can work ones way through the path refinements to get to sections of the source code. svv was assigned to this path to merely keep the code from wrapping. vid-styles is a block that contains all the vid styles found in VID. I merely used a select to get to the face template for text. There are other ways to make faces, and in fact Romano shows another way in an earlier submission. TIMTOWTDI There is more than one way to do it" (Thanks, Larry Wall) There are benefits to some over others, and I don't pretend to be an expert to know in which situations where one is better than another. As a final note about the REBOL system, one can get the source code for mezzanine-level or higher functions using source.

source: func [ "Prints the source code for a word." 'word [word!] ][ prin join word ": " if not value? word [print "undefined" exit] either any [native? get word op? get word action? get word] [ print ["native" mold third get word] ] [print mold get word] ] If you do source on the function that Romano uses, make-face, you will see that at one point it gets a base style by using get-style which ends up doing essentially what I did. 'make-face is a more complete and generic wrapper around what I did manually. I hope this submission makes sense. And, by the way, reading the system source is great way to learn some great tricks from the masters: the RT folks themselves! On a freshly started REBOL console, paste the following and *be patient*: echo %//windows/desktop/system.txt probe system quit Then puruse system.txt to your hearts content. --Scott Jones

== true

== true

== true --Gregg