[cells-gtk-cvs] CVS update: root/cells-gtk/test-gtk/test-gtk.lisp root/cells-gtk/test-gtk/test-gtk.lpr root/cells-gtk/test-gtk/test-menus.lisp root/cells-gtk/test-gtk/test-tree-view.lisp

[Kenny Tilton]

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

Modified Files:
	test-gtk.lisp test-gtk.lpr test-menus.lisp test-tree-view.lisp 
Log Message:
us pointer void in button-press-event-handler arglist
Date: Mon Jan  3 23:33:22 2005
Author: ktilton

Index: root/cells-gtk/test-gtk/test-gtk.lisp
diff -u root/cells-gtk/test-gtk/test-gtk.lisp:1.7 root/cells-gtk/test-gtk/test-gtk.lisp:1.8
--- root/cells-gtk/test-gtk/test-gtk.lisp:1.7	Fri Dec 24 03:03:57 2004
+++ root/cells-gtk/test-gtk/test-gtk.lisp	Mon Jan  3 23:33:20 2005
@@ -18,7 +18,7 @@
                         "Menus"
                         "Textview" "Dialogs" "Addon"
                         "Entry"
-                        #-cmu "Tree-view"
+                        "Tree-view"
                         )))
             (list (mk-notebook 
                    :tab-labels tabs


Index: root/cells-gtk/test-gtk/test-gtk.lpr
diff -u root/cells-gtk/test-gtk/test-gtk.lpr:1.2 root/cells-gtk/test-gtk/test-gtk.lpr:1.3
--- root/cells-gtk/test-gtk/test-gtk.lpr:1.2	Tue Dec 14 05:01:57 2004
+++ root/cells-gtk/test-gtk/test-gtk.lpr	Mon Jan  3 23:33:20 2005
@@ -1,11 +1,10 @@
-;; -*- lisp-version: "6.2 [Windows] (Sep 3, 2004 12:04)"; common-graphics: "1.389.2.105.2.14"; -*-
+;; -*- lisp-version: "7.0 [Windows] (Dec 28, 2004 17:34)"; cg: "1.54.2.17"; -*-
 
-(in-package :common-graphics-user)
+(in-package :cg-user)
 
-(defpackage :test-gtk (:export))
+(defpackage :TEST-GTK)
 
 (define-project :name :test-gtk
-  :application-type (intern "Standard EXE" (find-package :keyword))
   :modules (list (make-instance 'module :name "test-gtk.lisp")
                  (make-instance 'module :name "test-layout.lisp")
                  (make-instance 'module :name "test-display.lisp")
@@ -20,28 +19,21 @@
                                  "c:\\00\\root\\cells-gtk\\cells-gtk"))
   :libraries nil
   :distributed-files nil
+  :internally-loaded-files nil
   :project-package-name :test-gtk
   :main-form nil
   :compilation-unit t
   :verbose nil
-  :runtime-modules '(:cg :drag-and-drop :lisp-widget
-                     :multi-picture-button :common-control
-                     :edit-in-place :outline :grid :group-box
-                     :header-control :progress-indicator-control
-                     :common-status-bar :tab-control :trackbar-control
-                     :up-down-control :dde :mci :carets :hotspots
-                     :menu-selection :choose-list :directory-list
-                     :color-dialog :find-dialog :font-dialog
-                     :string-dialog :yes-no-list-dialog
-                     :list-view-control :rich-edit :drawable :ole :www
-                     :aclwin302)
+  :runtime-modules '(:cg-dde-utils :cg.base :cg.dialog-item :cg.timer
+                     :cg.tooltip)
   :splash-file-module (make-instance 'build-module :name "")
   :icon-file-module (make-instance 'build-module :name "")
-  :include-flags '(:compiler :top-level :local-name-info)
+  :include-flags '(:local-name-info)
   :build-flags '(:allow-debug :purify)
   :autoload-warning t
   :full-recompile-for-runtime-conditionalizations nil
   :default-command-line-arguments "+cx +t \"Initializing\""
+  :additional-build-lisp-image-arguments '(:read-init-files nil)
   :old-space-size 256000
   :new-space-size 6144
   :runtime-build-option :standard


Index: root/cells-gtk/test-gtk/test-menus.lisp
diff -u root/cells-gtk/test-gtk/test-menus.lisp:1.1 root/cells-gtk/test-gtk/test-menus.lisp:1.2
--- root/cells-gtk/test-gtk/test-menus.lisp:1.1	Fri Nov 19 00:40:14 2004
+++ root/cells-gtk/test-gtk/test-menus.lisp	Mon Jan  3 23:33:20 2005
@@ -14,7 +14,7 @@
 			   :accel '(#\s :control :shift :alt)
 			   :image (mk-image :stock :save :icon-size :menu)
 			   :on-activate (callback (widget event data)
-						  (trc "TST") (force-output)))
+						  (trc nil "TST") (force-output)))
 			  (mk-menu-item
 			   :label "Submenu"
 			   :kids (list
@@ -24,7 +24,7 @@
 			  (mk-image-menu-item
 			   :stock :harddisk
 			   :on-activate (callback (widget event data)
-						  (trc "HARDDISK") (force-output)))
+						  (trc nil "HARDDISK") (force-output)))
 			  (mk-image-menu-item 
 			   :image (mk-image :stock :dialog-info :icon-size :menu)
 			   :label-widget (mk-label :markup (with-markup (:foreground :blue)


Index: root/cells-gtk/test-gtk/test-tree-view.lisp
diff -u root/cells-gtk/test-gtk/test-tree-view.lisp:1.2 root/cells-gtk/test-gtk/test-tree-view.lisp:1.3
--- root/cells-gtk/test-gtk/test-tree-view.lisp:1.2	Sun Dec  5 07:33:31 2004
+++ root/cells-gtk/test-gtk/test-tree-view.lisp	Mon Jan  3 23:33:20 2005
@@ -89,7 +89,7 @@
                             :md-name :hscale
                             :expand t :fill t
                             :min 0 :max 200
-                            :init 100)))
+                            :init 5)))
                    (mk-scrolled-window
                     :kids (list
                            (mk-listbox