Nested panels

[JohnW]

Is it possible to nest a panel within another panel?

For example, I have panel1 a box 400x800
on top of this panel I want to have another panel that has 3 buttons.

Is there a way to do this?

[GerardCote]

Hi JohnW,

I don't see any reason not to be able to add a panel on another panel using View.

Instead of giving you this single recipe here I will instead invite you to look at the vid-usage.r script in the official Library REBOL Library.

It was posted about january 10th 2004 and I am actually reviewing it for Cybarite to get any constructive feedback about it. So he'll be able to do the necessary adjustments and small fixes for the small flaws I found.

Then you'll have a lot to experiment with about View. And it will be more pleasant to read than my lengthy explanations would be. If you need more information come back.

It would also be nice to start a room for sharing design ideas and REBOL code to play with. We could name it the REBOL SANDBOX.

Some programmers that already use REBOL for the real thing will even be invited to write in condensed form the way they attack a new problem when elaborating their solution. Expressing their way of doing thing in a general way and also based on some suggested problem to solve we will serve them as thinking tools to start with.

May be some SMALL projects could similarly be started collectively this way and even just small code examples for exploring the many refinements of most REBOL words would be as useful as the rest.

In fact Im just planning to create some REBOL dictionary add-on that will take the form of many small code examples.

I'll share it along the process with the members of this forum to get some code ideas and feedback about the resulting product as soon I will be ready.

Regards,
Gerard

[DefiantPc]

Here is a small example of stacked panels.

Code:

rebol[title:"Stacked panels"]

out: layout [
origin 0

at 1x1 p: box ivory 800x600
at 400x30    text bold black "This in the main box,  panel 0 is on top of this box."

        ]

  p/pane: layout [

  origin 0 space 0x0
  backdrop navy
  across
     text bold white "This in panel 0"

  p1: box 160x145  black
  below
  text bold white "Sub- panel 1 is on top of the black box above"

  p2: box 360x80 red
  text bold white "Sub- panel 2 is ontop of the red box above"

  ]

   p1/pane: layout[

   origin 0
   space 2x0
   backdrop  green
   button "p1 butt1" [unview]
   button "p1 butt2" [unview]
   button "p1 butt3" [unview]
   text bold black "Sub- panel 1"

    ]

   p2/pane: layout[

   origin 0
   backdrop white
    space 1x0
    across
   button "p2 butt1" [unview]
   button "p2 butt2" [unview]
   button "p2 butt3" [unview]
   below
   text bold black "Sub- panel 2"

   ]

       view out

Hope this helps,

 -Maryjane