Added expander demo

[clg] / examples / testgtk.lisp

diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp
index aa04e119872dacd1049d32c55469ba96232fac56..81e8fdea7bccda43a3894240c3996e993508ec1e 100644 (file)
--- 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
 
 ;; 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
 
 
 ;;; Some of the code in this file are really outdatet, but it is


@@ -55,7 +55,7 @@      (defun ,name ()
 
 (defmacro define-simple-dialog (name (dialog title &rest initargs) &body body)
   `(define-dialog ,name (,dialog ,title 'dialog ,@initargs)
 
 (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))
 
 
     ,@body))
 
 


@@ -459,6 +459,16 @@ (define-simple-dialog create-entry (dialog "Entry")
     (widget-show-all main)))
 
 
     (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
 
 
 ;; File chooser dialog
 


@@ -1801,6 +1811,7 @@ (defun create-main-window ()
 ;; ;       ("dnd")
            ("entry" create-entry)
 ;;         ("event watcher")
 ;; ;       ("dnd")
            ("entry" create-entry)
 ;;         ("event watcher")

+           ("enxpander" create-expander)

            ("file chooser" create-file-chooser)
 ;;         ("font selection")
 ;;         ("handle box" create-handle-box)
            ("file chooser" create-file-chooser)
 ;;         ("font selection")
 ;;         ("handle box" create-handle-box)