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))