dpf/misc.lisp at master · xrme/dpf · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(in-package "DPF")

(defun cgfloat (n)
  (float n #+32-bit-target 0s0
           #+64-bit-target 0d0))

;;; #$NSAppKitVersionNumber10_6 isn't in the interface database
(defconstant snow-leopard-appkit-version 1038d0)

(defun lionp ()
  (> (floor #$NSAppKitVersionNumber) snow-leopard-appkit-version))

(defconstant $fullscreen-window-mask-bit 14)

(defloadvar *black-color* (#/retain (#/blackColor ns:ns-color)))
(defloadvar *clear-color* (#/retain (#/clearColor ns:ns-color)))

(defun shift-key-now-p ()
  (let* ((event (#_CGEventCreate +null-ptr+))
	 (flags (#_CGEventGetFlags event)))
    (prog1
	(logtest flags #$kCGEventFlagMaskShift)
      (#_CFRelease event))))