rebol vid 面板和偏移 0x0 的问题

Question

这不起作用，

panel1.layout: layout [
  offset: 0x0
  yuml-image: image img
]

panel2.layout: layout [
  offset: 0x0
  area (yuml-command0) yellow
]

panelbuttons.layout: layout [

    button "Save" [request-save]
    button "Refresh" [request-refresh]
    button "Quit" [quit]

]

Main: layout [
  panel1: box 640x300 white
  return
  panelbuttons: box 640x20
  return
  panel2: box 640x180 yellow
]

panel1/pane: panel1.layout
panel2/pane: panel2.layout
panelbuttons/pane: panelbuttons.layout

view/title/options center-face Main "askuml.com" [no-border]

我只是想要与此等效的内容：

Main: layout [
    offset: 0x0
    yuml-image: image img
    return
    across
    button "Save" [request-save]
    button "Refresh" [request-refresh]
    button "Quit" [quit]
    return
    area (yuml-command0) yellow
]

另外，为什么我有边框，而我要求偏移 0x0 看到下面丑陋的灰色边框： 替代文本 http://askuml.com/files/2010/07/ uml-online-tool.gif

更新：现在我有这个丑陋的窗口 替代文本 http://askuml.com/files/2010/07/vid- ugly.gif

请参阅http://askuml.com/blog /yuml-use-case-desktop-client/

我现在更新了代码，我看不到（甚至是你的:)）按钮：

Answer 1

我想说你的第一直觉是正确的，但会这样修改它：

Main: layout [
    origin 0 space 6
    yuml-image: image img 600x400
    across pad 6
    btn "Save" [request-save]
    btn "Refresh" [request-refresh]
    btn "Quit" [quit]
    below
    area (yuml-command0) yellow 600x200
]

如果你真的需要分解面板，让“面板样式”完成繁重的工作：

image-panel: [
    yuml-image: image 600x400 img
]

btn-panel: [
    across origin 6 space 6
    btn "Save" [request-save]
    btn "Refresh" [request-refresh]
    btn "Quit" [quit]
]

area-panel: [
    area yellow 600x200
]

main: layout [
    origin 0 space 0
    panel image-panel
    panel btn-panel
    panel area-panel
]

Answer 2

您需要：

layout [
    origin 0x0
    ...
]

您还需要 space 0x0 和 backcolor 238.234.221 来消除灰色。我也偏向于更改区域边缘 - 区域边缘 [大小：1x1 效果：无]

其他一些选项：布局/紧密 [...] （空格和原点 0)，布局/原点 [...]0x0。

view/options [no-border] 指操作系统窗口。布局方言中的任何set-word!特指为后续样式分配一个单词。

Answer 3

试试这个，

w: layout/size [backcolor red btn "test"] 300x300
v: layout/tight [box blue 100x100]
append w/pane v
view w

或者使用 insert 而不是append 将面放在其他面后面：

insert w/pane v

Answer 4

面板只是一个布局，没有别的。
您可以创建布局并将它们添加到另一个布局的窗格中，或者仅使用面板样式。

http://www.rebol.com/how-to/subpanels.html

view layout [backcolor yellow size 200x200 origin 0x0 space 0x0 b: panel red [btn "test" lbl "Test"] return panel blue [btn "x" lbl "rest" lbl "x"]]
>> ? b
== B is an object of value:
type            word!     face      ;<--- just a face
offset          pair!     0x0
size            pair!     36x49
span            none!     none
pane            block!    length: 2 ;<--- btn & lbl
...