REBOL [ Title: "Multiple View Pages" Date: 20-May-2000 File: %pages.r Purpose: { Shows how to switch between pages using a navigation menu. } library: [ level: 'intermediate platform: none type: none domain: [GUI] tested-under: none support: none license: none see-also: none ] ] bay: load-thru/binary http://www.rebol.com/view/bay.jpg rice: load-thru/binary http://www.rebol.com/view/rice.jpg btn-styles: stylize [btn: button with [color: 20.20.160 edge: [XCLOR: 20.20.160]]] menu: [ ; A pane that is common to all pages styles btn-styles backdrop effect [contrast 10 gradmul 0x1 0.0.0 128.128.128] origin 10x10 text "Navigation" bold center 100x20 btn "Page 1" [view page1] btn "Page 2" [view page2] btn "Page 3" [view page3] btn "Quit" [quit] ] page1: layout [ styles btn-styles size 500x300 backtile rice 160.100.50 at 0x0 panel 120x300 menu origin 130x20 title "Page One" indent 30 text { This is page one. Click on any of the buttons to switch to other pages. } frame bay ] page2: layout [ styles btn-styles size 500x300 backtile rice 50.160.100 at 0x0 panel 120x300 menu origin 130x20 title "Page Two" indent 30 text { This is page two. Click on any of the buttons to switch to other pages. } frame bay effect compose [gradmul 1x1] ] page3: layout [ styles btn-styles size 500x300 backtile rice 100.50.160 at 0x0 panel 120x300 menu origin 130x20 title "Page Three" indent 30 text { This is page three. Click on any of the buttons to switch to other pages. } frame bay effect compose [multiply (rice)] ] view page1