40 lines
1.6 KiB
Common Lisp
40 lines
1.6 KiB
Common Lisp
(in-package :de.anvi.ncurses)
|
|
|
|
;;; opaque
|
|
;;; curses window properties
|
|
;;; http://invisible-island.net/ncurses/man/curs_opaque.3x.html
|
|
|
|
;;; C prototypes
|
|
|
|
;; bool is_cleared(const WINDOW *win);
|
|
;; bool is_idcok(const WINDOW *win);
|
|
;; bool is_idlok(const WINDOW *win);
|
|
;; bool is_immedok(const WINDOW *win);
|
|
;; bool is_keypad(const WINDOW *win);
|
|
;; bool is_leaveok(const WINDOW *win);
|
|
;; bool is_nodelay(const WINDOW *win);
|
|
;; bool is_notimeout(const WINDOW *win);
|
|
;; bool is_pad(const WINDOW *win);
|
|
;; bool is_scrollok(const WINDOW *win);
|
|
;; bool is_subwin(const WINDOW *win);
|
|
;; bool is_syncok(const WINDOW *win);
|
|
;; WINDOW *wgetparent(const WINDOW *win);
|
|
;; int wgetscrreg(const WINDOW *win, int *top, int *bottom);
|
|
|
|
;;; Low-level CFFI wrappers
|
|
|
|
(defcfun ("is_cleared" %is-cleared) :boolean (win window))
|
|
(defcfun ("is_idcok" %is-idcok) :boolean (win window))
|
|
(defcfun ("is_idlok" %is-idlok) :boolean (win window))
|
|
(defcfun ("is_immedok" %is-immedok) :boolean (win window))
|
|
(defcfun ("is_keypad" %is-keypad) :boolean (win window))
|
|
(defcfun ("is_leaveok" %is-leaveok) :boolean (win window))
|
|
(defcfun ("is_nodelay" %is-nodelay) :boolean (win window))
|
|
(defcfun ("is_notimeout" %is-notimeout) :boolean (win window))
|
|
(defcfun ("is_pad" %is-pad) :boolean (win window))
|
|
(defcfun ("is_scrollok" %is-scrollok) :boolean (win window))
|
|
(defcfun ("is_subwin" %is-subwin) :boolean (win window))
|
|
(defcfun ("is_syncok" %is-syncok) :boolean (win window))
|
|
|
|
(defcfun ("wgetparent" %wgetparent) window (win window))
|
|
(defcfun ("wgetscrreg" %wgetscrreg) :int (win window) (top (:pointer :int)) (bottom (:pointer :int)))
|