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