From 96b68e831d68f2f6a61226ce9a4984ac7084eecc Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Sun, 5 Dec 2004 00:06:41 +0000
Subject: [PATCH] Added expander demo

---
 examples/testgtk.lisp | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp
index aa04e11..81e8fde 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.8 2004-12-04 18:41:31 espen Exp $
+;; $Id: testgtk.lisp,v 1.9 2004-12-05 00:06:41 espen Exp $
 
 
 ;;; Some of the code in this file are really outdatet, but it is
@@ -55,7 +55,7 @@
 
 (defmacro define-simple-dialog (name (dialog title &rest initargs) &body body)
   `(define-dialog ,name (,dialog ,title 'dialog ,@initargs)
-    (dialog-add-button ,dialog "Close" #'widget-destroy :object t)
+    (dialog-add-button ,dialog "gtk-close" #'widget-destroy :object t)
     ,@body))
 
 
@@ -459,6 +459,16 @@
     (widget-show-all main)))
 
 
+;; Expander
+
+(define-simple-dialog create-expander (dialog "Expander" :resizable nil)
+  (make-instance 'v-box
+   :parent dialog :spacing 5 :border-width 5 :show-all t
+   :child (create-label "Expander demo. Click on the triangle for details.")
+   :child (make-instance 'expander
+	   :label "Details"
+	   :child (create-label "Details can be shown or hidden."))))
+
 
 ;; File chooser dialog
 
@@ -1801,6 +1811,7 @@ This one is underlined (こんにちは) in quite a funky fashion"
 ;; ;  	    ("dnd")
  	    ("entry" create-entry)
 ;; 	    ("event watcher")
+ 	    ("enxpander" create-expander)
  	    ("file chooser" create-file-chooser)
 ;; 	    ("font selection")
 ;; 	    ("handle box" create-handle-box)
-- 
2.11.0