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)