[cells-gtk-cvs] CVS update: root/cells-gtk/test-gtk/test-buttons.lisp root/cells-gtk/test-gtk/test-gtk.lisp

[Kenny Tilton]

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk
In directory common-lisp.net:/tmp/cvs-serv25746/cells-gtk/test-gtk

Modified Files:
	test-buttons.lisp test-gtk.lisp 
Log Message:
Ongoing port to Lispworks
Date: Mon Dec  6 21:04:18 2004
Author: ktilton

Index: root/cells-gtk/test-gtk/test-buttons.lisp
diff -u root/cells-gtk/test-gtk/test-buttons.lisp:1.2 root/cells-gtk/test-gtk/test-buttons.lisp:1.3
--- root/cells-gtk/test-gtk/test-buttons.lisp:1.2	Sun Dec  5 07:33:31 2004
+++ root/cells-gtk/test-gtk/test-buttons.lisp	Mon Dec  6 21:04:17 2004
@@ -1,10 +1,5 @@
 (in-package :test-gtk)
 
-;;;(ff-defun-callable :cdecl :void button-toggled-cb (self event data)
-;;;  (declare (ignorable event data))
-;;;  (let ((state (gtk-toggle-button-get-active self)))
-;;;    (setf (md-value self) state)))
-
 (defmodel test-buttons (vbox)
   ((nclics :accessor nclics :initform (c-in 0)))
   (:default-initargs


Index: root/cells-gtk/test-gtk/test-gtk.lisp
diff -u root/cells-gtk/test-gtk/test-gtk.lisp:1.2 root/cells-gtk/test-gtk/test-gtk.lisp:1.3
--- root/cells-gtk/test-gtk/test-gtk.lisp:1.2	Sun Dec  5 07:33:31 2004
+++ root/cells-gtk/test-gtk/test-gtk.lisp	Mon Dec  6 21:04:17 2004
@@ -13,10 +13,10 @@
     :position :center
     :splash-screen-image "/000000/root/test-images/splash.png"
     :width 550 :height 550
-    :kids (let ((tabs '("Buttons" "Display" "Layout" "Menus"
-                        "Entry"
-                        "Textview" "Dialogs" "Addon"
-                        "Tree-view"
+    :kids (let ((tabs '("Buttons" ;"Display" "Layout" "Menus"
+                        ;"Entry"
+                        ;"Textview" "Dialogs" "Addon"
+                        ;"Tree-view"
                         )))
             (list (mk-notebook 
                    :tab-labels nil #+not '("Buttons") 
@@ -31,8 +31,8 @@
   #+clisp (ext:exit))
 
 
-(defun gtk-demo ()
+(defun gtk-demo (&optional dbg)
   (cells-gtk-init)
-  (cells-gtk:start-app 'test-gtk::test-gtk :debug nil))
+  (cells-gtk:start-app 'test-gtk::test-gtk :debug dbg))
 
 ;(ext:saveinitmem "test-gtk.mem" :init-function 'test-gtk::test-gtk-app)