[rep-gtk] basic GtkTreeView example

[Christopher Bratusek <chrisb src gnome org>]

commit 7a6e78d375db6c7382691219d17cb14821d7aca5
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Wed Jan 6 13:06:31 2010 +0100

    basic GtkTreeView example

 examples/gtktreeview.jl |   31 +++++++++++++++++++++++++++++++
 1 files changed, 31 insertions(+), 0 deletions(-)
---
diff --git a/examples/gtktreeview.jl b/examples/gtktreeview.jl
new file mode 100755
index 0000000..2237a31
--- /dev/null
+++ b/examples/gtktreeview.jl
@@ -0,0 +1,31 @@
+#! /bin/sh
+exec rep --batch "$0" "$@"
+!#
+
+;;; rep-gtk TreeView example
+
+(structure ()
+
+    (open rep
+	  rep.system
+	  gui.gtk-2.gtk)
+
+  ;; Widgets
+  (define MainWindow (gtk-window-new 'toplevel))
+  (define TreeView (gtk-tree-view-new))
+
+  ;; Windowborder
+  (gtk-container-set-border-width MainWindow 10)
+
+  ;; Exit handling
+  (g-signal-connect MainWindow "delete_event" (lambda (w) (throw 'quit 0)))
+
+  ;; Pack Widgets
+  (gtk-container-add MainWindow TreeView)
+
+  ;; Show widgets
+  (gtk-widget-show-all MainWindow)
+
+  ;; Stuff
+  (setq interrupt-mode 'exit)
+  (recursive-edit))