From 3ae9640627513248b1918edca5fd69e7d3cb88bd Mon Sep 17 00:00:00 2001 Message-Id: <3ae9640627513248b1918edca5fd69e7d3cb88bd.1714938456.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 8 Feb 2006 21:58:49 +0000 Subject: [PATCH] Bug fixes Organization: Straylight/Edgeware From: espen --- gtk/gtkselection.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/gtk/gtkselection.lisp b/gtk/gtkselection.lisp index c1c6efb..f0481ff 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.2 2006/02/06 14:02:17 espen Exp $ +;; $Id: gtkselection.lisp,v 1.3 2006/02/08 21:58:49 espen Exp $ (in-package "GTK") @@ -47,12 +47,12 @@ (defbinding %target-list-new () pointer ((length targets) int)) (defmethod initialize-instance ((target-list target-list) &key targets) - (setf - (slot-value target-list 'location) + (setf + (slot-value target-list 'location) (%target-list-new targets)) (call-next-method)) -(defbinding target-list-add (target-list targets &optional flags info) nil +(defbinding target-list-add (target-list target &optional flags info) nil (target-list target-list) (target gdk:atom) (flags unsigned-int) @@ -174,7 +174,7 @@ (defbinding selection-data-targets-include-image-p (selection-data &optional wri (defbinding selection-data-targets-include-text-p (selection-data) boolean (selection-data selection-data)) -(defbinding selection-remove-all (selection-data) boolean +(defbinding selection-remove-all () boolean (widget widget)) -- [mdw]