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

[Kenny Tilton]

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