From 18c83e092e3dc05a65dd6411bdba7b60f88e9d9c Mon Sep 17 00:00:00 2001 Message-Id: <18c83e092e3dc05a65dd6411bdba7b60f88e9d9c.1714510032.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 6 Feb 2006 11:59:47 +0000 Subject: [PATCH] Added types for selections Organization: Straylight/Edgeware From: espen --- gtk/gtktypes.lisp | 33 ++++++++++++++++++++++++++++++--- 1 file changed, 30 insertions(+), 3 deletions(-) diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp index 8e0fb81..ecd8ba0 100644 --- a/gtk/gtktypes.lisp +++ b/gtk/gtktypes.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtktypes.lisp,v 1.40 2006-02-04 12:18:12 espen Exp $ +;; $Id: gtktypes.lisp,v 1.41 2006-02-06 11:59:47 espen Exp $ (in-package "GTK") @@ -1183,7 +1183,6 @@ (define-enum-type drop-position :no-drop :drop-into :drop-left :drop-right :drop-above :drop-below) - (defclass target-entry (struct) ((target :allocation :alien @@ -1202,4 +1201,32 @@ (defclass target-entry (struct) :type unsigned-int)) (:metaclass struct-class)) -(deftype target-list () 'pointer) + +(defclass selection-data (boxed) + ((selection + :allocation :alien :type gdk:atom + :reader selection-data-selection) + (target + :allocation :alien :type gdk:atom + :reader selection-data-target) + (type + :allocation :alien :type gdk:atom + :reader selection-data-type) + (format + :allocation :alien :type int + :reader selection-data-format) + (data + :allocation :alien :type pointer + :reader selection-data-data) + (length + :allocation :alien :type int + :reader selection-data-length) + (display + :allocation :alien :type gdk:display + :reader selection-data-display)) + (:metaclass boxed-class)) + + +(defclass target-list (proxy) + () + (:metaclass proxy-class)) -- [mdw]