libs/xog/xog-dpy.f

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; UrForth level 1: self-hosting 32-bit Forth compiler
   3 ;; Copyright (C) 2020 Ketmar Dark // Invisible Vector
   4 ;; GPLv3 ONLY
   5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   6 ;; X11 OOF GUI -- open/close X11 Display
   7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   8 use-libs: x11
   9
  10
  11 also x11 also xconst
  12
  13 : xog-open-dpy-ex ( -- successflag )
  14   xog-dpy if true exit endif
  15   (xog-dpy-before-open)
  16   0 XOpenDisplay dup to xog-dpy ifnot false exit endif
  17   (xog-dpy-after-open)
  18   true
  19 ;
  20
  21
  22 : xog-open-dpy ( -- )
  23   xog-open-dpy-ex not-?abort" cannot open X11 display"
  24 ;
  25
  26
  27 : xog-close-dpy  ( -- )
  28   xog-dpy ifnot exit endif
  29   (xog-dpy-before-close)
  30   xog-dpy XCloseDisplay drop
  31   0 to xog-dpy
  32   (xog-dpy-after-close)
  33 ;
  34
  35 previous previous