[cells-gtk-devel] Re: window ignoring resizable?

[Matthew Swank]

On Wed, 11 Jul 2007 18:58:30 -0500, Matthew Swank wrote:

> Given the following simple app:
> (defmodel foo (gtk-app) () (:default-initargs :resizable nil))
> 
> Does anyone else get a window that is still resizable?
> 
> Thanks,
> 
> Matt


Here's a patch:
Index: cells-gtk/widgets.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/widgets.lisp,v
retrieving revision 1.19
diff -u -r1.19 widgets.lisp
--- cells-gtk/widgets.lisp	7 Jun 2006 16:50:15 -0000	1.19
+++ cells-gtk/widgets.lisp	12 Jul 2007 21:25:22 -0000
@@ -323,6 +323,9 @@
 ;  :md-name :main-window
   :new-args (c? (list (wintype self))))
 
+(def-c-output resizable ((self window))
+  (gtk-window-set-resizable (id self) new-value))
+
 (def-c-output width ((self window))
   (when new-value
     (gtk-window-set-default-size (id self)