[REBOL] Help with Panes
From: martin::middleton::speechworks::com at: 21-Dec-2001 17:46
OK, I'm sure somebody has already asked this question before, but it's
beyond my simple mind. I'm trying to create a GUI where I click on a button
and it opens a pane. Within that pane is another button, that opens up
another pane. When I click on the "Done" button I want to get back to the
same state I was in at the beginning, but I can't make it work.
Any help is GREATLY appreciated!
REBOL [Title: "Pain with Panes"]
main: layout [
vh2 "Automated Software Manufacturing Build System"
guide
button "Setup Phase" [panels/pane: init_panel show panels]
button "Source Phase" [panels/pane: source_panel show panels]
button "Build Phase" [panels/pane: build_panel show panels]
button "Package Phase" [panels/pane: package_panel show panels]
button "Post Phase" [panels/pane: post_panel show panels]
button "Quit" [quit]
return
guide box 2x300 maroon
return
panels: box 400x300 coal
]
; Initialization Functionality
init_panel: layout [
origin 0x0
vh3 "Setup the Environment"
guide
button "Add" [init_panel/pane: init_add_panel show init_panel]
button "Remove" [init_panel/pane: init_remove_panel show init_panel]
button "Modify" [init_panel/pane: init_modify_panel show init_panel]
button "View All" [init_panel/pane: init_view_panel show init_panel]
return
guide box 2x200 blue
return
init_panel: box 300x300 gray
]
init_add_panel: layout [
vtext "Enter the name of a variable and"
vtext "the value you want to assign to it."
across
label "Name:" var-name: field return
label "Value:" var-value: field return
button "Enter"
button "Cancel"
button "Done"
return
below
vtext "Click Enter to create the variable"
vtext "Click Cancel to clear the entries"
vtext "Click Done when all variables have been created"
]
init_remove_panel: layout [
vh1 "TBD"
]
init_modify_panel: layout [
vh1 "TBD"
]
init_view_panel: layout [
vh1 "TBD"
]
; Source Functionality
source_panel: layout [
origin 0x0
vh3 "Source Phase"
]
build_panel: layout [
origin 0x0
vh3 "Building Phase"
]
package_panel: layout [
origin 0x0
vh3 "Packaging Phase"
]
post_panel: layout [
origin 0x0
vh3 "Post Phase"
]
init_panel/offset: 0x0
source_panel/offset: 0x0
build_panel/offset: 0x0
package_panel/offset: 0x0
post_panel/offset: 0x0
view main
- martin