Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv11104/cells-gtk/test-gtk Modified Files: test-display.lisp test-gtk.lisp test-gtk.lpr Log Message: Locking in fixes which make AllegroCL and Lispworks largely work OK before trashing code again. Date: Tue Dec 14 05:01:58 2004 Author: ktilton Index: root/cells-gtk/test-gtk/test-display.lisp diff -u root/cells-gtk/test-gtk/test-display.lisp:1.2 root/cells-gtk/test-gtk/test-display.lisp:1.3 --- root/cells-gtk/test-gtk/test-display.lisp:1.2 Sun Dec 5 07:33:31 2004 +++ root/cells-gtk/test-gtk/test-display.lisp Tue Dec 14 05:01:57 2004 @@ -1,5 +1,6 @@ (in-package :test-gtk) + (defmodel test-display (vbox) () (:default-initargs @@ -18,7 +19,7 @@ :ratio 1 :kids (list (mk-image :width 200 :height 250 - :filename "/000000/root/test-images/tst.gif"))) + :filename "/00/root/test-images/tst.gif"))) (mk-hseparator) (mk-hbox :kids (list @@ -32,7 +33,6 @@ (mk-button :label "Show in status bar" :on-clicked (callback (widget event data) - (format t "fraction is ~a" (fraction (fm-other :pbar))) (push-message (fm-other :statusbar) (format nil "~a" (fraction (fm-other :pbar)))))))) (mk-hbox Index: root/cells-gtk/test-gtk/test-gtk.lisp diff -u root/cells-gtk/test-gtk/test-gtk.lisp:1.4 root/cells-gtk/test-gtk/test-gtk.lisp:1.5 --- root/cells-gtk/test-gtk/test-gtk.lisp:1.4 Tue Dec 7 22:00:57 2004 +++ root/cells-gtk/test-gtk/test-gtk.lisp Tue Dec 14 05:01:57 2004 @@ -11,12 +11,13 @@ ;;:tooltips-enable nil ;;dkwt :icon "test-images/small.png" :position :center - :splash-screen-image "/000000/root/test-images/splash.png" + :splash-screen-image "/00/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" + "Textview" "Dialogs" "Addon" + "Entry" "Tree-view" ))) (list (mk-notebook :tab-labels nil #+not '("Buttons") Index: root/cells-gtk/test-gtk/test-gtk.lpr diff -u root/cells-gtk/test-gtk/test-gtk.lpr:1.1 root/cells-gtk/test-gtk/test-gtk.lpr:1.2 --- root/cells-gtk/test-gtk/test-gtk.lpr:1.1 Tue Dec 7 22:00:58 2004 +++ root/cells-gtk/test-gtk/test-gtk.lpr Tue Dec 14 05:01:57 2004 @@ -17,9 +17,7 @@ (make-instance 'module :name "test-textview.lisp") (make-instance 'module :name "test-addon.lisp")) :projects (list (make-instance 'project-module :name - "c:\\00\\root\\cells-gtk\\cells-gtk") - (make-instance 'project-module :name - "c:\\cell-cultures\\ffi-extender\\ffi-extender")) + "c:\\00\\root\\cells-gtk\\cells-gtk")) :libraries nil :distributed-files nil :project-package-name :test-gtk