gdk/gdk.selections.lisp

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