1 files changed, 16 insertions, 0 deletions
diff --git a/demo1.tl b/demo1.tl
new file mode 100755
index 0000000..3a5647d
--- /dev/null
+++ b/demo1.tl
@@ -0,0 +1,16 @@
+; Refer to the demostuff file for definitions and descriptions.
+
+(defun demo1 ()
+  (window demo1 demos "Four Button Demo" 300 150)
+  (box h outerbox1 demo1)
+  (box v mainbox1 outerbox1)
+  (box h buttons1 mainbox1)
+  (box h numbox1 mainbox1)
+  (box v leftbuttons1 buttons1)
+  (box v rightbuttons1 buttons1)
+  (text num1 "Zero" numbox1)
+  (button b1nw "1" leftbuttons1 (xtext num1 "One"))
+  (button b1sw "2" leftbuttons1 (xtext num1 "Two"))
+  (button b1ne "3" rightbuttons1 (xtext num1 "Three"))
+  (button b1se "4" rightbuttons1 (xtext num1 "Four"))
+  (gtk_widget_show_all demo1))