forked from dmitryvk/cl-gtk2
-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathgdk.selections.lisp
97 lines (80 loc) · 2.81 KB
/
gdk.selections.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
(in-package :gdk)
(defparameter *selection-primary* "PRIMARY")
(export '*selection-primary*)
(defparameter *selection-secondary* "SECONDARY")
(export '*selection-secondary*)
(defparameter *selection-clipboard* "CLIPBOARD")
(export '*selection-clipboard*)
(defparameter *target-bitmap* "BITMAP")
(export '*target-bitmap*)
(defparameter *target-colormap* "COLORMAP")
(export '*target-colormap*)
(defparameter *target-drawable* "DRAWABLE")
(export '*target-drawable*)
(defparameter *target-pixmap* "PIXMAP")
(export '*target-pixmap*)
(defparameter *target-string* "STRING")
(export '*target-string*)
(defparameter *selection-type-atom* "ATOM")
(export '*selection-type-atom*)
(defparameter *selection-type-bitmap* "BITMAP")
(export '*selection-type-bitmap*)
(defparameter *selection-type-colormap* "COLORMAP")
(export '*selection-type-colormap*)
(defparameter *selection-type-drawable* "DRAWABLE")
(export '*selection-type-drawable*)
(defparameter *selection-type-integer* "INTEGER")
(export '*selection-type-integer*)
(defparameter *selection-type-pixmap* "PIXMAP")
(export '*selection-type-pixmap*)
(defparameter *selection-type-window* "WINDOW")
(export '*selection-type-window*)
(defparameter *selection-type-string* "STRING")
(export '*selection-type-string*)
(defcfun gdk-selection-owner-set :boolean
(owner (g-object gdk-window))
(selection gdk-atom-as-string)
(time :uint32)
(send-event :boolean))
(export 'gdk-selection-owner-set)
(defcfun gdk-selection-owner-set-for-display :boolean
(display (g-object display))
(owner (g-object gdk-window))
(selection gdk-atom-as-string)
(time :uint32)
(send-event :boolean))
(export 'gdk-selection-owner-set-for-display)
(defcfun gdk-selection-owner-get (g-object gdk-window)
(selection gdk-atom-as-string))
(export 'gdk-selection-owner-get)
(defcfun gdk-selection-owner-get-for-display (g-object gdk-window)
(display (g-object display))
(selection gdk-atom-as-string))
(export 'gdk-selection-owner-get-for-display)
(defcfun gdk-selection-convert :void
(requestor (g-object gdk-window))
(selection gdk-atom-as-string)
(target gdk-atom-as-string)
(time :uint32))
(export 'gdk-selection-convert)
(defcfun gdk-selection-property-get :int
(requestor (g-object gdk-window))
(selection gdk-atom-as-string)
(target gdk-atom-as-string)
(time :uint32))
(export 'gdk-selection-property-get)
(defcfun gdk-selection-send-notify :void
(requestor native-window)
(selection gdk-atom-as-string)
(target gdk-atom-as-string)
(property gdk-atom-as-string)
(time :uint32))
(export 'gdk-selection-send-notify)
(defcfun gdk-selection-send-notify-for-display :void
(display (g-object display))
(requestor native-window)
(selection gdk-atom-as-string)
(target gdk-atom-as-string)
(property gdk-atom-as-string)
(time :uint32))
(export 'gdk-selection-send-notify-for-display)