From b9d3ad205d31aabbcc4ef43cdd0a7c5af7e7c1a6 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 27 Feb 2005 13:28:19 +0000 Subject: [PATCH] Added font selection Organization: Straylight/Edgeware From: espen --- examples/testgtk.lisp | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index 0a670b7..f0c535a 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 @@ (define-dialog create-file-chooser (dialog "File Chooser" 'file-chooser-dialog) (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 @@ (defun create-main-window () ;; ("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) -- [mdw]