From cc74b2c987edc3e2bc85413e92f33e2690a32b1c Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Wed, 8 Feb 2006 22:20:22 +0000 Subject: [PATCH] Changed to use of settable FOREIGN-LOCATION Organization: Straylight/Edgeware From: espen --- gdk/gdk.lisp | 4 ++-- gtk/gtk.lisp | 4 ++-- gtk/gtkselection.lisp | 6 ++---- gtk/gtktree.lisp | 4 ++-- rsvg/rsvg.lisp | 4 ++-- 5 files changed, 10 insertions(+), 12 deletions(-) diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp index 3ea51ac..6528895 100644 --- a/gdk/gdk.lisp +++ b/gdk/gdk.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: gdk.lisp,v 1.19 2006-02-07 13:22:14 espen Exp $ +;; $Id: gdk.lisp,v 1.20 2006-02-08 22:20:22 espen Exp $ (in-package "GDK") @@ -425,7 +425,7 @@ (defbinding rgb-init () nil) (defmethod initialize-instance ((cursor cursor) &key type mask fg bg (x 0) (y 0) (display (display-get-default))) (setf - (slot-value cursor 'location) + (foreign-location cursor) (etypecase type (keyword (%cursor-new-for-display display type)) (pixbuf (%cursor-new-from-pixbuf display type x y)) diff --git a/gtk/gtk.lisp b/gtk/gtk.lisp index b3dc6fa..63d4f54 100644 --- a/gtk/gtk.lisp +++ b/gtk/gtk.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: gtk.lisp,v 1.50 2006-02-08 15:22:33 espen Exp $ +;; $Id: gtk.lisp,v 1.51 2006-02-08 22:21:07 espen Exp $ (in-package "GTK") @@ -1096,7 +1096,7 @@ (defmethod initialize-instance ((dialog message-dialog) flags text #+gtk 2.6 secondary-text transient-parent) (setf - (slot-value dialog 'location) + (foreign-location dialog) (%message-dialog-new transient-parent flags message-type buttons)) (when text (message-dialog-set-markup dialog text)) diff --git a/gtk/gtkselection.lisp b/gtk/gtkselection.lisp index c4b528e..9fa169e 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.3 2006-02-08 21:58:49 espen Exp $ +;; $Id: gtkselection.lisp,v 1.4 2006-02-08 22:21:07 espen Exp $ (in-package "GTK") @@ -47,9 +47,7 @@ (defbinding %target-list-new () pointer ((length targets) int)) (defmethod initialize-instance ((target-list target-list) &key targets) - (setf - (slot-value target-list 'location) - (%target-list-new targets)) + (setf (foreign-location target-list) (%target-list-new targets)) (call-next-method)) (defbinding target-list-add (target-list target &optional flags info) nil diff --git a/gtk/gtktree.lisp b/gtk/gtktree.lisp index 7abcc9c..9b408f5 100644 --- a/gtk/gtktree.lisp +++ b/gtk/gtktree.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: gtktree.lisp,v 1.12 2006-02-06 18:13:13 espen Exp $ +;; $Id: gtktree.lisp,v 1.13 2006-02-08 22:21:07 espen Exp $ (in-package "GTK") @@ -293,7 +293,7 @@ (defbinding %tree-row-reference-new () pointer (defmethod initialize-instance ((reference tree-row-reference) &key model path) (setf - (slot-value reference 'location) + (foreign-location reference) (%tree-row-reference-new model path)) (call-next-method)) diff --git a/rsvg/rsvg.lisp b/rsvg/rsvg.lisp index 212c1f1..489ef4c 100644 --- a/rsvg/rsvg.lisp +++ b/rsvg/rsvg.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: rsvg.lisp,v 1.1 2005-11-10 08:53:24 espen Exp $ +;; $Id: rsvg.lisp,v 1.2 2006-02-08 22:21:26 espen Exp $ (in-package "RSVG") @@ -118,7 +118,7 @@ (defmethod initialize-instance ((handle handle) &key filename) (t (%handle-new))) (if gerror (signal-gerror gerror) - (setf (slot-value handle 'location) location))) + (setf (foreign-location handle) location))) (call-next-method)) -- [mdw]