[lgtk-cvs] CVS update: lgtk/examples/button-flavors.lisp

[Mario Mommer]

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