From: espen Date: Sun, 27 Feb 2005 13:28:19 +0000 (+0000) Subject: Added font selection X-Git-Url: https://git.distorted.org.uk/~mdw/clg/commitdiff_plain/3f31508547aae76694806fee2aa5c2326c663ee1 Added font selection --- diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index c587b26..6ea0789 100644 --- a/examples/testgtk.lisp +++ b/examples/testgtk.lisp @@ -15,7 +15,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: testgtk.lisp,v 1.20 2005-02-27 12:44:07 espen Exp $ +;; $Id: testgtk.lisp,v 1.21 2005-02-27 13:28:19 espen Exp $ ;(use-package "GTK") @@ -461,6 +461,15 @@ (widget-destroy dialog)))) +;; Font selection dialog + +(define-toplevel create-font-selection (window "Font Button" :resizable nil) + (make-instance 'h-box + :parent window :spacing 8 :border-width 8 + :child (make-instance 'label :label "Pick a font") + :child (make-instance 'font-button + :use-font t :title "Font Selection Dialog"))) + ;;; Handle box @@ -1702,7 +1711,7 @@ This one is underlined (こんにちは) in quite a funky fashion" ;; ("event watcher") ("enxpander" create-expander) ("file chooser" create-file-chooser) -;; ("font selection") + ("font selection" create-font-selection) ("handle box" create-handle-box) ("image" create-image) ("labels" create-labels)