32 lines
822 B
Text
32 lines
822 B
Text
#!/usr/local/bin/newlisp
|
|
;;
|
|
;; border-layout-demo.lsp - demonstrate the border layout
|
|
|
|
;;;; initialization
|
|
(set-locale "C")
|
|
(load (append (env "NEWLISPDIR") "/guiserver.lsp"))
|
|
|
|
(gs:init)
|
|
|
|
|
|
;;;; describe the GUI
|
|
(gs:frame 'BorderDemo 100 100 400 300 "Border layout demo")
|
|
(gs:set-border-layout 'BorderDemo 0 0)
|
|
(gs:panel 'NorthPanel 50 50)
|
|
(gs:set-color 'NorthPanel 0.5 0 0)
|
|
(gs:panel 'WestPanel 50 50)
|
|
(gs:set-color 'WestPanel 0.5 0.5 0)
|
|
(gs:panel 'CenterPanel 50 50)
|
|
(gs:set-color 'CenterPanel 0.0 0.5 0)
|
|
(gs:panel 'EastPanel 50 50)
|
|
(gs:set-color 'EastPanel 0.0 0.5 0.5)
|
|
(gs:panel 'SouthPanel 50 50)
|
|
(gs:set-color 'SouthPanel 0.0 0 0.5)
|
|
(gs:add-to 'BorderDemo 'NorthPanel "north" 'WestPanel "west" 'CenterPanel "center"
|
|
'EastPanel "east" 'SouthPanel "south")
|
|
(gs:set-visible 'BorderDemo true)
|
|
|
|
(gs:listen)
|
|
|
|
;; eof
|
|
|