[gtk-cffi-cvs] CVS gtk-cffi/examples

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/examples
In directory tiger.common-lisp.net:/tmp/cvs-serv22502/examples

Modified Files:
	editor.lisp 
Log Message:
Refactored GBoxed structs. Now they can be garbage collected


--- /project/gtk-cffi/cvsroot/gtk-cffi/examples/editor.lisp	2011/08/26 17:16:13	1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/examples/editor.lisp	2011/08/28 10:31:30	1.2
@@ -8,23 +8,29 @@
 (defparameter *window*
   (gtk-model 
     'window :signals '(:destroy :gtk-main-quit)
-    :width 400 :height 400
-    ('h-box
+    :width 400 :height 400 :title "Editor"
+    ('v-box
      :expand nil
-
-
- ;    ('h-paned
-     ('scrolled-window
-      ('tree-view))
+     ('menu-bar)
      :expand t
-     ('v-box
+     ('h-box
       :expand nil
-      ('label :text "12323")
+      
+
+                                       ;    ('h-paned
+      ('scrolled-window
+       ('tree-view))
       :expand t
+      ('v-box
+       :expand nil
+       ('label :text "12323")
+       :expand t
+       ('scrolled-window
+        ('text-view :id :text2)))
       ('scrolled-window
-       ('text-view :id :text2)))
-     ('scrolled-window
-      ('text-view :id :text3)))))
+       ('text-view :id :text3)))
+     :expand nil
+     ('statusbar))))
 
 ;(setf ;(text (buffer (object-by-id :text1))) "1"
 ;      (text (buffer (object-by-id :text2))) "2"