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)
_______________________________________________
cells-gtk-devel site list
[email protected]
http://common-lisp.net/mailman/listinfo/cells-gtk-devel
