From 7126772159863888c1ab35a0e6eeb6655baab821 Mon Sep 17 00:00:00 2001 Message-Id: <7126772159863888c1ab35a0e6eeb6655baab821.1714606380.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 26 Feb 2006 15:24:46 +0000 Subject: [PATCH] Added PRINT-OBJECT method for widget class and a small bug fix Organization: Straylight/Edgeware From: espen --- gtk/gtkwidget.lisp | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) diff --git a/gtk/gtkwidget.lisp b/gtk/gtkwidget.lisp index 85a1f0c..142548b 100644 --- a/gtk/gtkwidget.lisp +++ b/gtk/gtkwidget.lisp @@ -20,11 +20,21 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gtkwidget.lisp,v 1.19 2006-02-08 22:00:09 espen Exp $ +;; $Id: gtkwidget.lisp,v 1.20 2006-02-26 15:24:46 espen Exp $ (in-package "GTK") +#-debug-ref-counting +(defmethod print-object ((widget widget) stream) + (if (and + (proxy-valid-p widget) + (slot-boundp widget 'name) (not (zerop (length (widget-name widget))))) + (print-unreadable-object (widget stream :type t :identity nil) + (format stream "~S at 0x~X" + (widget-name widget) (sap-int (foreign-location widget)))) + (call-next-method))) + (defmethod shared-initialize ((widget widget) names &key (visible nil visible-p)) (when (and visible-p (not visible)) ; widget explicit set as not visible (setf (user-data widget 'hidden-p) t) @@ -150,7 +160,7 @@ (defbinding widget-size-allocate () nil (defbinding widget-add-accelerator (widget signal accel-group key modifiers flags) nil (widget widget) - ((name-to-string signal) string) + ((signal-name-to-string signal) string) (accel-group accel-group) ((gdk:keyval-from-name key) unsigned-int) (modifiers gdk:modifier-type) -- [mdw]