guiserver/border-layout-demo.lsp

   1 #!/usr/bin/newlisp
   2 ;;
   3 ;; border-demo.lsp - demonstrate the border layout
   4
   5 ;;;; initialization
   6 (set-locale "C")
   7 (load (append (env "NEWLISPDIR") "/guiserver.lsp"))
   8
   9 (gs:init)
  10
  11
  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)
  28
  29 (gs:listen)
  30
  31 ;; eof
  32