From 35721da7943706ba365c329f309bbc00444756a6 Mon Sep 17 00:00:00 2001 Message-Id: <35721da7943706ba365c329f309bbc00444756a6.1714730831.git.mdw@distorted.org.uk> From: Mark Wooding Date: Mon, 6 Feb 2006 14:02:17 +0000 Subject: [PATCH] Removed some unnecessary reference functions Organization: Straylight/Edgeware From: espen --- gtk/gtkselection.lisp | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) diff --git a/gtk/gtkselection.lisp b/gtk/gtkselection.lisp index 7e7f52c..36ef3cc 100644 --- a/gtk/gtkselection.lisp +++ b/gtk/gtkselection.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: gtkselection.lisp,v 1.1 2006-02-06 11:57:27 espen Exp $ +;; $Id: gtkselection.lisp,v 1.2 2006-02-06 14:02:17 espen Exp $ (in-package "GTK") @@ -28,20 +28,6 @@ (in-package "GTK") ;;;; Selection -(defbinding %selection-data-copy () pointer - (location pointer)) - -(defbinding %selection-data-free () nil - (location pointer)) - -(defmethod reference-foreign ((class (eql (find-class 'selection-data))) location) - (declare (ignore class)) - (%selection-data-copy location)) - -(defmethod unreference-foreign ((class (eql (find-class 'selection-data))) location) - (declare (ignore class)) - (%selection-data-free location)) - (defbinding %target-list-ref () pointer (location pointer)) @@ -212,7 +198,7 @@ (defcallback %clipboard-clear-func (nil (clipboard pointer) (defbinding clipboard-set-with-data (clipboard targets get-func clear-func) gobject (clipboard clipboard) - (targets (vector target-entry)) + (targets (vector (inlined target-entry))) ((length targets) unsigned-int) (%clipboard-get-func callback) (%clipboard-clear-func callback) @@ -320,6 +306,7 @@ (defbinding clipboard-set-can-store () nil (defbinding clipboard-store () nil (clipboard clipboard)) + ;;;; Drag and Drop (defbinding drag-dest-set (widget flags targets actions) nil -- [mdw]