March 2004 - lgtk-cvs@common-lisp.net - mailman3.common-lisp.net

[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

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

01 Mar '04

Update of /project/lgtk/cvsroot/lgtk/src In directory common-lisp.net:/tmp/cvs-serv14368/src Modified Files: gtkbindings.lisp gtkenums.lisp Log Message: Added a few more bindings. Different flavors of buttons. This was a patch by Sverker Wiberg. Date: Mon Mar 1 12:41:41 2004 Author: mmommer Index: lgtk/src/gtkbindings.lisp diff -u lgtk/src/gtkbindings.lisp:1.5 lgtk/src/gtkbindings.lisp:1.6 --- lgtk/src/gtkbindings.lisp:1.5 Tue Nov 11 16:41:54 2003 +++ lgtk/src/gtkbindings.lisp Mon Mar 1 12:41:41 2004 @@ -132,6 +132,24 @@ (def-binding "gtk_button_new_with_mnemonic" (gtkbutton (c-string text))) + +(def-binding "gtk_button_new_from_stock" + (gtkbutton (c-string text))) + +(def-binding "gtk_button_set_relief" + (void (gtkbutton button) + (gtkreliefstyle style))) + +(def-binding "gtk_button_get_relief" + (gtkreliefstyle (gtkbutton button))) + +(def-binding "gtk_button_get_label" + (c-string (gtkbutton button))) + +(def-binding "gtk_button_set_label" + (void (gtkbutton button) + (c-string label))) + (def-binding "gtk_toggle_button_new" (gtktogglebutton)) Index: lgtk/src/gtkenums.lisp diff -u lgtk/src/gtkenums.lisp:1.2 lgtk/src/gtkenums.lisp:1.3 --- lgtk/src/gtkenums.lisp:1.2 Wed Nov 5 12:49:56 2003 +++ lgtk/src/gtkenums.lisp Mon Mar 1 12:41:41 2004 @@ -7,11 +7,15 @@ (in-package #:gtk) +(defenum gtkreliefstyle + (:gtk-relief-normal + :gtk-relief-half + :gtk-relief-none)) + (defenum gtkwindowtype (:gtk-window-toplevel :gtk-window-popup)) - (defenum gsignalflags ((:g-signal-none . 0) (:g-signal-run-first . 1) @@ -63,3 +67,4 @@ :gtk-shadow-out :gtk-shadow-etched-in :gtk-shadow-etched-out)) +

1 0

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

01 Mar '04

Update of /project/lgtk/cvsroot/lgtk In directory common-lisp.net:/tmp/cvs-serv14368 Modified Files: lgtk-examples.asd Log Message: Added a few more bindings. Different flavors of buttons. This was a patch by Sverker Wiberg. Date: Mon Mar 1 12:41:41 2004 Author: mmommer Index: lgtk/lgtk-examples.asd diff -u lgtk/lgtk-examples.asd:1.4 lgtk/lgtk-examples.asd:1.5 --- lgtk/lgtk-examples.asd:1.4 Tue Nov 11 16:41:51 2003 +++ lgtk/lgtk-examples.asd Mon Mar 1 12:41:41 2004 @@ -24,6 +24,7 @@ (:file "check-button") (:file "radio-buttons") (:file "toggle-button") + (:file "button-flavors") (:file "tables-hw") (:file "dialog") (:file "entry"))))

1 0