guiserver/frameless-demo.lsp

   1 #!/usr/bin/newlisp
   2
   3 ;; frameless-demo.lsp - frameless and transparent (on MacOS X)
   4
   5 (set-locale "C")
   6 (load (append (env "NEWLISPDIR") "/guiserver.lsp"))
   7
   8 (gs:init)
   9
  10 (gs:window 'Window 100 100 400 100)
  11 (gs:set-background 'Window 0 0 0.5 0.2)
  12 (gs:set-border-layout 'Window)
  13 (gs:label 'Time " ")
  14 (gs:set-font 'Time "Mono Spaced" 40 "bold")
  15 (gs:set-foreground 'Time 1 1 0 )
  16 (gs:add-to 'Window 'Time "center")
  17 (gs:button 'Button 'button-handler "close")
  18 (gs:add-to 'Window 'Button "south")
  19 (gs:set-visible 'Window true)
  20
  21 (define (button-handler) (exit))
  22
  23 (while (gs:check-event 10000)
  24         (sleep 200)
  25         (gs:set-text 'Time (date (date-value) 0 "%b %d %H:%M:%S"))
  26 )
  27
  28 ;; eof