Initial commit of newLISP.
[newlisp.git] / guiserver / border-layout-demo.lsp
blob89b42e6bfa454500e671f2f6fe364eb62161f9cb
1 #!/usr/bin/newlisp
2 ;;
3 ;; border-demo.lsp - demonstrate the border layout
5 ;;;; initialization
6 (set-locale "C")
7 (load (append (env "NEWLISPDIR") "/guiserver.lsp"))
9 (gs:init)
12 ;;;; describe the GUI
13 (gs:frame 'BorderDemo 100 100 400 300 "Border layout demo")
14 (gs:set-border-layout 'BorderDemo 0 0)
15 (gs:panel 'NorthPanel 50 50)
16 (gs:set-color 'NorthPanel 0.5 0 0)
17 (gs:panel 'WestPanel 50 50)
18 (gs:set-color 'WestPanel 0.5 0.5 0)
19 (gs:panel 'CenterPanel 50 50)
20 (gs:set-color 'CenterPanel 0.0 0.5 0)
21 (gs:panel 'EastPanel 50 50)
22 (gs:set-color 'EastPanel 0.0 0.5 0.5)
23 (gs:panel 'SouthPanel 50 50)
24 (gs:set-color 'SouthPanel 0.0 0 0.5)
25 (gs:add-to 'BorderDemo 'NorthPanel "north" 'WestPanel "west" 'CenterPanel "center"
26 'EastPanel "east" 'SouthPanel "south")
27 (gs:set-visible 'BorderDemo true)
29 (gs:listen)
31 ;; eof