lgtk-cvs

lgtk-cvs@common-lisp.net

57 discussions

[lgtk-cvs] CVS update: CVSROOT/passwd
by root 19 Jun '04

19 Jun '04

Update of /var/lib/cvsd/project/lgtk/cvsroot/CVSROOT In directory common-lisp.net:/var/lib/cvsd/project/tmp/CVSROOT Modified Files: passwd Log Message: Added anonymous with passwd. Date: Sat Jun 19 11:20:58 2004 Author: root Index: CVSROOT/passwd diff -u CVSROOT/passwd:1.1 CVSROOT/passwd:1.2 --- CVSROOT/passwd:1.1 Thu Oct 23 13:29:24 2003 +++ CVSROOT/passwd Sat Jun 19 11:20:58 2004 @@ -1 +1 @@ -anonymous +anonymous:efQG9MDXxTujg:cvsd

1 0

[lgtk-cvs] CVS update: lgtk/src/enums.lisp
by Mario Mommer 15 Jun '04

15 Jun '04

Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv13382 Modified Files: enums.lisp Log Message: Use a symbol for satisfies type specifier (patch by Tim Daly Jr.) Date: Tue Jun 15 09:01:54 2004 Author: mmommer Index: lgtk/src/enums.lisp diff -u lgtk/src/enums.lisp:1.2 lgtk/src/enums.lisp:1.3 --- lgtk/src/enums.lisp:1.2 Wed Nov 5 09:49:56 2003 +++ lgtk/src/enums.lisp Tue Jun 15 09:01:54 2004 @@ -98,44 +98,49 @@ (ast (alistize stuff)) (msk (if bitwise (reduce #'logior ast :key #'cdr))) (arg (gensym)) + (predicate-name (intern (format nil "~A-p" symb) :enum-land)) tconds) (if (and strict (not bitwise)) - (push `(satisfies - (lambda (,arg) - (rassoc ,arg (edata-alist ,symb)))) tconds)) + (push `(lambda (,arg) + (rassoc ,arg (edata-alist ,symb))) + tconds)) (if (and bitwise strict) - (push `(satisfies - (lambda (,arg) - (= ,msk (logior ,arg ,msk)))) + (push `(lambda (,arg) + (= ,msk (logior ,arg ,msk))) tconds)) ;; always - (push `(satisfies - (lambda (,arg) - (assoc ,arg (edata-alist ,symb)))) tconds) + (push `(lambda (,arg) + (assoc ,arg (edata-alist ,symb))) + tconds) (if (not strict) - (push '(satisfies fixnump) tconds)) + (push 'fixnump tconds)) `(eval-when (:compile-toplevel :load-toplevel :execute) - (defparameter ,symb - (make-edata :alist (quote ,ast) - :strict ,strict - :bitwise ,bitwise - :mask ,msk)) - - (setf (get ',name 'enum) ,symb) - - (deftype ,name () - `(or . ,',tconds)) - - (defmacro ,name (,arg) - `(translated-form ,,symb ,,arg ,',name - ,',(if bitwise '((:optor . logior) - (:optand . logand))))) - - (def-binding-type ,name - :in ',name - :alien :int)))) + (defparameter ,symb + (make-edata :alist (quote ,ast) + :strict ,strict + :bitwise ,bitwise + :mask ,msk)) + + (setf (get ',name 'enum) ,symb) + + (defun ,predicate-name (,arg) + (or ,@(mapcar (lambda (pred) + `(,pred ,arg)) + tconds))) + + (deftype ,name () + '(satisfies ,predicate-name)) + + (defmacro ,name (,arg) + `(translated-form ,,symb ,,arg ,',name + ,',(if bitwise '((:optor . logior) + (:optand . logand))))) + + (def-binding-type ,name + :in ',name + :alien :int))))

1 0

[lgtk-cvs] CVS update: lgtk/src/gtkclasshierarchy.lisp
by Mario Mommer 13 May '04

13 May '04

Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv8875 Modified Files: gtkclasshierarchy.lisp Log Message: Classnames are now given by strings. This is a preparation for using the lgtk_object_type function. Date: Thu May 13 16:05:12 2004 Author: mmommer Index: lgtk/src/gtkclasshierarchy.lisp diff -u lgtk/src/gtkclasshierarchy.lisp:1.4 lgtk/src/gtkclasshierarchy.lisp:1.5 --- lgtk/src/gtkclasshierarchy.lisp:1.4 Mon Nov 10 15:44:47 2003 +++ lgtk/src/gtkclasshierarchy.lisp Thu May 13 16:05:12 2004 @@ -64,115 +64,119 @@ (defun generate-class-hierarchy (base h) (let ((buf nil)) (labels ((aux (h base) - (push `(defclass ,(car h) (,base) ()) buf) - (push `(def-capsule-filter ,(car h)) buf) - (push `(export ',(car h)) buf) - (push `(def-encapsulator ,(gencap (car h)) ,(car h)) buf) - (push `(def-binding-type ,(car h) - :in ',(car h) - :out ',(gencap (car h)) - :alien '(* t)) buf) - (mapcar #'(lambda (x) (aux x (car h))) (cdr h)))) + (let ((name-symbol (read-from-string (car h)))) + (push `(defclass ,name-symbol (,base) ()) buf) + (push `(def-capsule-filter ,name-symbol) buf) + (push `(export ',name-symbol) buf) + (push `(def-encapsulator + ,(gencap name-symbol) + ,name-symbol) buf) + (push `(def-binding-type ,name-symbol + :in ',name-symbol + :out ',(gencap name-symbol) + :alien '(* t)) buf) + (mapcar #'(lambda (x) (aux x name-symbol)) (cdr h))))) (aux h base) (let ((xxx (reverse buf))) xxx)))) + ;; We got this information as it is from the tutorial. (defmacro make-gtk-object-hierarchy () `(progn ;(eval-when (:compile-toplevel :load-toplevel :execute) ,@(generate-class-hierarchy 'gtk-objcapsule - '(GtkObject - (GtkWidget - (GtkMisc - (GtkLabel - (GtkAccelLabel)) - (GtkArrow) - (GtkImage)) - (GtkContainer - (GtkBin - (GtkAlignment) - (GtkFrame - (GtkAspectFrame)) - (GtkButton - (GtkToggleButton - (GtkCheckButton - (GtkRadioButton))) - (GtkOptionMenu)) - (GtkItem - (GtkMenuItem - (GtkCheckMenuItem - (GtkRadioMenuItem)) - (GtkImageMenuItem) - (GtkSeparatorMenuItem) - (GtkTearoffMenuItem))) - (GtkWindow - (GtkDialog - (GtkColorSelectionDialog) - (GtkFileSelection) - (GtkFontSelectionDialog) - (GtkInputDialog) - (GtkMessageDialog)) - (GtkPlug)) - (GtkEventBox) - (GtkHandleBox) - (GtkScrolledWindow) - (GtkViewport)) - (GtkBox - (GtkButtonBox - (GtkHButtonBox) - (GtkVButtonBox)) - (GtkVBox - (GtkColorSelection) - (GtkFontSelection) - (GtkGammaCurve)) - (GtkHBox - (GtkCombo) - (GtkStatusbar))) - (GtkFixed) - (GtkPaned - (GtkHPaned) - (GtkVPaned)) - (GtkLayout) - (GtkMenuShell - (GtkMenuBar) - (GtkMenu)) - (GtkNotebook) - (GtkSocket) - (GtkTable) - (GtkTextView) - (GtkToolbar) - (GtkTreeView)) - (GtkCalendar) - (GtkDrawingArea - (GtkCurve)) - (GtkEditable - (GtkEntry - (GtkSpinButton))) - (GtkRuler - (GtkHRuler) - (GtkVRuler)) - (GtkRange - (GtkScale - (GtkHScale) - (GtkVScale)) - (GtkScrollbar - (GtkHScrollbar) - (GtkVScrollbar))) - (GtkSeparator - (GtkHSeparator) - (GtkVSeparator)) - (GtkInvisible) - (GtkPreview) - (GtkProgressBar)) - (GtkAdjustment) - (GtkCellRenderer - (GtkCellRendererPixbuf) - (GtkCellRendererText) - (GtkCellRendererToggle)) - (GtkItemFactory) - (GtkTooltips) - (GtkTreeViewColumn))))) + '("GtkObject" + ("GtkWidget" + ("GtkMisc" + ("GtkLabel" + ("GtkAccelLabel")) + ("GtkArrow") + ("GtkImage")) + ("GtkContainer" + ("GtkBin" + ("GtkAlignment") + ("GtkFrame" + ("GtkAspectFrame")) + ("GtkButton" + ("GtkToggleButton" + ("GtkCheckButton" + ("GtkRadioButton"))) + ("GtkOptionMenu")) + ("GtkItem" + ("GtkMenuItem" + ("GtkCheckMenuItem" + ("GtkRadioMenuItem")) + ("GtkImageMenuItem") + ("GtkSeparatorMenuItem") + ("GtkTearoffMenuItem"))) + ("GtkWindow" + ("GtkDialog" + ("GtkColorSelectionDialog") + ("GtkFileSelection") + ("GtkFontSelectionDialog") + ("GtkInputDialog") + ("GtkMessageDialog")) + ("GtkPlug")) + ("GtkEventBox") + ("GtkHandleBox") + ("GtkScrolledWindow") + ("GtkViewport")) + ("GtkBox" + ("GtkButtonBox" + ("GtkHButtonBox") + ("GtkVButtonBox")) + ("GtkVBox" + ("GtkColorSelection") + ("GtkFontSelection") + ("GtkGammaCurve")) + ("GtkHBox" + ("GtkCombo") + ("GtkStatusbar"))) + ("GtkFixed") + ("GtkPaned" + ("GtkHPaned") + ("GtkVPaned")) + ("GtkLayout") + ("GtkMenuShell" + ("GtkMenuBar") + ("GtkMenu")) + ("GtkNotebook") + ("GtkSocket") + ("GtkTable") + ("GtkTextView") + ("GtkToolbar") + ("GtkTreeView")) + ("GtkCalendar") + ("GtkDrawingArea" + ("GtkCurve")) + ("GtkEditable" + ("GtkEntry" + ("GtkSpinButton"))) + ("GtkRuler" + ("GtkHRuler") + ("GtkVRuler")) + ("GtkRange" + ("GtkScale" + ("GtkHScale") + ("GtkVScale")) + ("GtkScrollbar" + ("GtkHScrollbar") + ("GtkVScrollbar"))) + ("GtkSeparator" + ("GtkHSeparator") + ("GtkVSeparator")) + ("GtkInvisible") + ("GtkPreview") + ("GtkProgressBar")) + ("GtkAdjustment") + ("GtkCellRenderer" + ("GtkCellRendererPixbuf") + ("GtkCellRendererText") + ("GtkCellRendererToggle")) + ("GtkItemFactory") + ("GtkTooltips") + ("GtkTreeViewColumn"))))) ;; engage. (make-gtk-object-hierarchy))

1 0

[lgtk-cvs] CVS update: lgtk/lgtk.asd
by Mario Mommer 13 May '04

13 May '04

Update of /project/lgtk/cvsroot/lgtk In directory common-lisp.net:/tmp/cvs-serv12192 Modified Files: lgtk.asd Log Message: gtk libs now loaded with wrappers.o instead of with libhandle.o Date: Thu May 13 15:33:49 2004 Author: mmommer Index: lgtk/lgtk.asd diff -u lgtk/lgtk.asd:1.9 lgtk/lgtk.asd:1.10 --- lgtk/lgtk.asd:1.9 Mon Mar 1 13:04:34 2004 +++ lgtk/lgtk.asd Thu May 13 15:33:49 2004 @@ -61,7 +61,7 @@ #+cmu (ext:run-program "pkg-config" '("--cflags" "gtk+-2.0") :output :stream)) -(defun get-gtk-cflags-list () +(defun get-gtk-cflags () (let ((prc (pkg-config-cflags-string))) (if (not prc) (error "Could not run #\"pckg-config!") @@ -72,7 +72,7 @@ (read-line str)))))) (defparameter *gtklibs* (get-gtk-libs-list)) -(defparameter *gtkcflags* (get-gtk-cflags-list)) +(defparameter *gtkcflags* (get-gtk-cflags)) (defvar *source-dir* nil) (defclass gtk-libs-handle (c-source-file) ()) @@ -83,10 +83,11 @@ :defaults (component-pathname c)))) (defmethod perform ((o compile-op) (c gtk-libs-handle)) - (unless (zerop (run-shell-command "~A ~A -c -o ~A" + (unless (zerop (run-shell-command "~A ~A -c -o ~A ~A" *ccompiler* (namestring (component-pathname c)) - (namestring (car (output-files o c))))) + (namestring (car (output-files o c))) + *gtkcflags*)) (error 'operation-error :component c :operation o))) (defmethod perform ((o load-op) (c gtk-libs-handle)) @@ -113,7 +114,7 @@ (:file "bindings" :depends-on ("port")) - (:gtk-libs-handle "libhandle") + (:gtk-libs-handle "wrappers") (:file "gtkpackage" :depends-on ("widgets" "nexus" @@ -124,7 +125,7 @@ (:file "gtkclasshierarchy" :depends-on ("gtkpackage")) (:file "gtkbindings" :depends-on ("gtkenums" "gtkclasshierarchy" - "libhandle")) + "wrappers")) (:file "gtknexus" :depends-on ("gtkbindings")) (:file "gtklisp" :depends-on ("gtknexus"))

1 0

[lgtk-cvs] CVS update: lgtk/src/wrappers.c lgtk/src/libhandle.c
by Mario Mommer 13 May '04

13 May '04

Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv30529 Added Files: wrappers.c Removed Files: libhandle.c Log Message: This is a rename + a change of contents. Some stuff is just easier to wrap and call from C. wrappers.c now contains lgtk_object_type, a C func to find out the type of an object. Date: Thu May 13 15:31:36 2004 Author: mmommer

1 0

[lgtk-cvs] CVS update: lgtk/INSTALL.txt
by Mario Mommer 13 May '04

13 May '04

Update of /project/lgtk/cvsroot/lgtk In directory common-lisp.net:/tmp/cvs-serv32142 Modified Files: INSTALL.txt Log Message: Updated the callback.lisp address Date: Thu May 13 13:38:53 2004 Author: mmommer Index: lgtk/INSTALL.txt diff -u lgtk/INSTALL.txt:1.3 lgtk/INSTALL.txt:1.4 --- lgtk/INSTALL.txt:1.3 Thu Dec 11 05:47:59 2003 +++ lgtk/INSTALL.txt Thu May 13 13:38:52 2004 @@ -17,7 +17,7 @@ support. You should grab a copy of Helmut Eller's callback.lisp file from the message - http://article.gmane.org/gmane.lisp.cmucl.devel/2472 + http://www.common-lisp.net/project/lgtk/callback.lisp * ASDF, see http://www.cliki.net/asdf.html

1 0

[lgtk-cvs] CVS update: lgtk/src/lgtk-utils.lisp
by Mario Mommer 01 Mar '04

01 Mar '04

Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv31202/src Added Files: lgtk-utils.lisp Log Message: Created a new file and a new package: lgtk-utils. A place to put all those utilities and extensions that would have been there to begin with had gtk been written in Lisp. First entry: make-gtk-button. Date: Mon Mar 1 13:04:35 2004 Author: mmommer

1 0

[lgtk-cvs] CVS update: lgtk/lgtk.asd
by Mario Mommer 01 Mar '04

01 Mar '04

Update of /project/lgtk/cvsroot/lgtk In directory common-lisp.net:/tmp/cvs-serv31202 Modified Files: lgtk.asd Log Message: Created a new file and a new package: lgtk-utils. A place to put all those utilities and extensions that would have been there to begin with had gtk been written in Lisp. First entry: make-gtk-button. Date: Mon Mar 1 13:04:34 2004 Author: mmommer Index: lgtk/lgtk.asd diff -u lgtk/lgtk.asd:1.8 lgtk/lgtk.asd:1.9 --- lgtk/lgtk.asd:1.8 Thu Dec 11 05:47:59 2003 +++ lgtk/lgtk.asd Mon Mar 1 13:04:34 2004 @@ -126,7 +126,9 @@ "gtkclasshierarchy" "libhandle")) (:file "gtknexus" :depends-on ("gtkbindings")) - (:file "gtklisp" :depends-on ("gtknexus")))))) + (:file "gtklisp" :depends-on ("gtknexus")) + + (:file "lgtk-utils" :depends-on ("gtklisp")))))) ;; On 2003.12.10, load-foreign was put in deathrow by the sbcl ;; developers. The following comment was made by Krystof_ and is

1 0

[lgtk-cvs] CVS update: lgtk/examples/button-flavors.lisp
by Mario Mommer 01 Mar '04

01 Mar '04

Update of /project/lgtk/cvsroot/lgtk/examples In directory common-lisp.net:/tmp/cvs-serv31202/examples Modified Files: button-flavors.lisp Log Message: Created a new file and a new package: lgtk-utils. A place to put all those utilities and extensions that would have been there to begin with had gtk been written in Lisp. First entry: make-gtk-button. Date: Mon Mar 1 13:04:34 2004 Author: mmommer Index: lgtk/examples/button-flavors.lisp diff -u lgtk/examples/button-flavors.lisp:1.1 lgtk/examples/button-flavors.lisp:1.2 --- lgtk/examples/button-flavors.lisp:1.1 Mon Mar 1 12:42:40 2004 +++ lgtk/examples/button-flavors.lisp Mon Mar 1 13:04:34 2004 @@ -1,17 +1,7 @@ ;; All kinds of plain buttons (use-package :gtk) - -;; A function for creating GTK buttons of various variants. -(defun make-gtk-button (&key label mnemonic from-stock) - (cond (label - (gtk-button-new-with-label label)) - (mnemonic - (gtk-button-new-with-mnemonic mnemonic)) - (from-stock - (gtk-button-new-from-stock from-stock)) - (t - (gtk-button-new)))) +(use-package :lgtk-utils) ;; Getters for button stuff... (defun gtk-button-relief (b) (gtk-button-get-relief b))

1 0

[lgtk-cvs] CVS update: lgtk/examples/button-flavors.lisp
by Mario Mommer 01 Mar '04

01 Mar '04

Update of /project/lgtk/cvsroot/lgtk/examples In directory common-lisp.net:/tmp/cvs-serv30432 Added Files: button-flavors.lisp Log Message: An example of different button flavors, by Sverker Wiberg. Date: Mon Mar 1 12:42:41 2004 Author: mmommer

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

lgtk-cvs