From htaube at common-lisp.net Sat Dec 4 18:41:40 2004 From: htaube at common-lisp.net (Heinrich Konrad Taube) Date: Sat, 4 Dec 2004 19:41:40 +0100 (CET) Subject: [lambda-gtk-cvs] CVS update: lambda-gtk/examples.lisp Message-ID: <20041204184140.AFCD2885EF@common-lisp.net> Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv9597 Modified Files: examples.lisp Log Message: added call gtk:init-ensure to textentry Date: Sat Dec 4 19:41:39 2004 Author: htaube Index: lambda-gtk/examples.lisp diff -u lambda-gtk/examples.lisp:1.1.1.1 lambda-gtk/examples.lisp:1.2 --- lambda-gtk/examples.lisp:1.1.1.1 Tue Nov 30 15:59:30 2004 +++ lambda-gtk/examples.lisp Sat Dec 4 19:41:39 2004 @@ -200,6 +200,7 @@ (format t "Text entry: ~S~%" (gtk:entry-get-text data))) (defun textentry () + (gtk:init-ensure) (let* ((win (gtk:window-new gtk:window-toplevel)) (vbox (gtk:vbox-new nil 0)) (hbox (gtk:hbox-new nil 0)) From htaube at common-lisp.net Wed Dec 8 02:22:51 2004 From: htaube at common-lisp.net (Heinrich Konrad Taube) Date: Wed, 8 Dec 2004 03:22:51 +0100 (CET) Subject: [lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-openmcl.lisp Message-ID: <20041208022251.B90CB884F7@common-lisp.net> Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv19621 Modified Files: lambda-gtk-openmcl.lisp Log Message: changed database directory name to :gtk2 for compatibility with linux Date: Wed Dec 8 03:22:48 2004 Author: htaube Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.1.1.1 lambda-gtk/lambda-gtk-openmcl.lisp:1.2 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Wed Dec 8 03:22:27 2004 @@ -339,7 +339,7 @@ (open-shared-library (libpath l))))) (eval-when (:compile-toplevel :load-toplevel :execute) (if (probe-file \"ccl:darwin-headers;gtk\" ) - (use-interface-dir :gtk) + (use-interface-dir :gtk2) (error \"Interface directory ccl:darwin-headers;gtk; does not exist.\"))) ") From htaube at common-lisp.net Wed Dec 8 02:24:22 2004 From: htaube at common-lisp.net (Heinrich Konrad Taube) Date: Wed, 8 Dec 2004 03:24:22 +0100 (CET) Subject: [lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk.html Message-ID: <20041208022422.927DD884F7@common-lisp.net> Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv19648 Modified Files: lambda-gtk.html Log Message: added link for upcoming linux openmcl header tarball Date: Wed Dec 8 03:24:15 2004 Author: htaube Index: lambda-gtk/lambda-gtk.html diff -u lambda-gtk/lambda-gtk.html:1.1.1.1 lambda-gtk/lambda-gtk.html:1.2 --- lambda-gtk/lambda-gtk.html:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk.html Wed Dec 8 03:24:14 2004 @@ -99,7 +99,7 @@ href="http://openmcl.clozure.com/Doc/ch09s07.html">ffigen program) and an API control file (gtk.api) that you can edit and customize in order to generate more or less inclusive interfaces to -GTK. λgtk is organized into two layers: a common file +GTK. λgtk is organized into two parts: a common file (lambda-gtk-common.lisp) and an implementation file for each target FFI (lambda-gtk-openmcl.lisp, lambda-gtk-cmusbcl.lisp, and so on). With the exception of callbacks (which are required by GTK itself) @@ -222,16 +222,28 @@
  • -If you are using OpenMCL, download the - -OpenMCL GTK Interface and untar it inside OpenMCL's -ccl/darwin-headers/ folder: +If you are using OpenMCL, download either: +

    + +

    +and untar it inside either OpenMCL's ccl/darwin-headers/ or +ccl/headers/ folder:

    $ cd /path/to/ccl/darwin-headers 
    -$ tar -zxf openmcl-gtk-interface.tar.gz
    +$ tar -zxf openmcl-darwin-gtk.tar.gz
     
    +

    +Untarring either archive restores a gtk2/ directory containing seveal +.cdb files for the GTK interface. +

  • @@ -452,6 +464,5 @@ alt="Valid XHTML 1.0!" height="31" width="88" />

    - From htaube at common-lisp.net Mon Dec 13 02:51:24 2004 From: htaube at common-lisp.net (Heinrich Konrad Taube) Date: Mon, 13 Dec 2004 03:51:24 +0100 (CET) Subject: [lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-common.lisp lambda-gtk/lambda-gtk-openmcl.lisp Message-ID: <20041213025124.29702880A8@common-lisp.net> Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv31337 Modified Files: lambda-gtk-common.lisp lambda-gtk-openmcl.lisp Log Message: package cleanup issues, renamed openmcl interface dir to gtk2 Date: Mon Dec 13 03:51:23 2004 Author: htaube Index: lambda-gtk/lambda-gtk-common.lisp diff -u lambda-gtk/lambda-gtk-common.lisp:1.1.1.1 lambda-gtk/lambda-gtk-common.lisp:1.2 --- lambda-gtk/lambda-gtk-common.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-common.lisp Mon Dec 13 03:51:23 2004 @@ -522,8 +522,11 @@ fil) (pprint `(eval-when (:compile-toplevel :load-toplevel :execute) (defpackage :gtk ,uses - #+openmcl (:shadow :true :false)) - (defpackage :gdk ,uses) + (:shadow :true :false :fill)) + (defpackage :gdk ,uses + (:shadow :copy :invert :xor :clear :and :or + :set :delete :plus :mouse :destroy + :map :unmap :scroll) ) (defpackage :g ,uses ,@ gshadow) (defpackage :atk ,uses) (defpackage :pango ,uses (:shadow :break))) Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.2 lambda-gtk/lambda-gtk-openmcl.lisp:1.3 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.2 Wed Dec 8 03:22:27 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Mon Dec 13 03:51:23 2004 @@ -338,9 +338,9 @@ (dolist (l *gtk-libfiles*) (open-shared-library (libpath l))))) (eval-when (:compile-toplevel :load-toplevel :execute) - (if (probe-file \"ccl:darwin-headers;gtk\" ) + (if (probe-file \"ccl:darwin-headers;gtk2\" ) (use-interface-dir :gtk2) - (error \"Interface directory ccl:darwin-headers;gtk; does not exist.\"))) + (error \"Interface directory ccl:darwin-headers;gtk2; does not exist.\"))) ") ;;; From htaube at common-lisp.net Fri Dec 31 21:18:05 2004 From: htaube at common-lisp.net (Heinrich Konrad Taube) Date: Fri, 31 Dec 2004 22:18:05 +0100 (CET) Subject: [lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-cmusbcl.lisp lambda-gtk/lambda-gtk-openmcl.lisp Message-ID: <20041231211805.E43A5884A5@common-lisp.net> Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv13588 Modified Files: lambda-gtk-cmusbcl.lisp lambda-gtk-openmcl.lisp Log Message: added optional arg typing for define-signal-hander Date: Fri Dec 31 22:18:04 2004 Author: htaube Index: lambda-gtk/lambda-gtk-cmusbcl.lisp diff -u lambda-gtk/lambda-gtk-cmusbcl.lisp:1.1.1.1 lambda-gtk/lambda-gtk-cmusbcl.lisp:1.2 --- lambda-gtk/lambda-gtk-cmusbcl.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-cmusbcl.lisp Fri Dec 31 22:18:03 2004 @@ -674,7 +674,11 @@ (defgluecode (:export :gtk) (defmacro define-signal-handler (name return params &body body) (let ((args (loop for p in params - collect `(,p (* t)))) + collect + (if (consp p) + (list (first p) + (parse-alien-type (second p))) + `(,p (* t))))) (type (parse-alien-type return))) "#+:sbcl" `(define-alien-function ,name , (cons type args) , at body) Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.3 lambda-gtk/lambda-gtk-openmcl.lisp:1.4 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.3 Mon Dec 13 03:51:23 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Fri Dec 31 22:18:04 2004 @@ -375,8 +375,9 @@ (defgluecode (:export :gtk) (defmacro define-signal-handler (name return params &body body) `(ccl:defcallback ,name ,(nconc (loop for p in params - collect ':address - collect p) + append + (if (consp p) (reverse p) + (list :address p))) (list return)) , at body))) (defgluecode (:export :g) (defun "g-callback" (x) x))