X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/c775862ea87960c2d8ab55a82b9c315c0660ae6d..9adccb27da69b60d058aa37867d55ea20ecf97ca:/gtk/gtkwidget.lisp diff --git a/gtk/gtkwidget.lisp b/gtk/gtkwidget.lisp index e04d7f7..bd62906 100644 --- a/gtk/gtkwidget.lisp +++ b/gtk/gtkwidget.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gtkwidget.lisp,v 1.9 2004-10-31 12:05:52 espen Exp $ +;; $Id: gtkwidget.lisp,v 1.10 2004-11-06 21:39:58 espen Exp $ (in-package "GTK") @@ -361,7 +361,7 @@ received." (defun widget-get-size-request (widget) (multiple-value-bind (width height) (%widget-get-size-request widget) - (values (unless (= width -1) width) (unless (= height -1) height)))) + (values (unless (= width -1) width) (unless (= height -1) height)))) (defbinding widget-set-size-request (widget width height) nil (widget widget)