guiserver/properties-demo.lsp

   1 #!/usr/bin/newlisp
   2 ;;
   3 ;; property-demo.lsp - demonstrate gs:get-screen and gs:get-version
   4
   5 ;;;; initialization
   6 (set-locale "C")
   7 (load (append (env "NEWLISPDIR") "/guiserver.lsp"))
   8
   9 (gs:init)
  10 ;;;; describe the GUI
  11
  12 (gs:get-screen)
  13 (set 'x (/ (- (gs:screen 0) 450) 2))
  14 (set 'y (/ (- (gs:screen 1) 400) 2))
  15
  16 (gs:frame 'PropertyDemo x y 450 400 "Properties")
  17 (gs:text-area 'Output 'gs:no-action')
  18 (gs:set-editable 'Output nil)
  19 (gs:add-to 'PropertyDemo 'Output)
  20 (gs:set-visible 'PropertyDemo true)
  21
  22 (gs:set-text 'Output (join (map string (gs:get-fonts)) "\n"))
  23 (gs:set-text 'PropertyDemo
  24         (string "GUI-server v." (gs:get-version)
  25                         " screen: " (gs:screen 0) "x" (gs:screen 1)
  26                         ", " (gs:screen 2) " dots/inch"))
  27
  28 ;;;; listen for incoming action requests and dispatch
  29
  30 (gs:listen)
  31
  32 ;; eof
  33