From ea787200c2c3a4af54594dae98998c7a18949993 Mon Sep 17 00:00:00 2001
From: mifpasoti <46360451+mifpasoti@users.noreply.github.com>
Date: Thu, 3 Jan 2019 18:41:13 -0500
Subject: Add files via upload

---
 demo1 | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 demo1

(limited to 'demo1')

diff --git a/demo1 b/demo1
new file mode 100644
index 0000000..413d3fd
--- /dev/null
+++ b/demo1
@@ -0,0 +1,28 @@
+#!/bin/bash
+sbcl --script << 'EOF' 2> >(sed '/^Backtrace/,$d;/^; /d')
+
+; Refer to the demostuff file for definitions and descriptions.
+
+(load "demostuff")
+
+(defun main ()
+  (gapp demo1
+    (window win demo1 "Four Button Demo" 300 150)
+    (box h outerbox win)
+    (box v mainbox outerbox)
+    (box h buttons mainbox)
+    (box h numbox mainbox)
+    (box v leftbuttons buttons)
+    (box v rightbuttons buttons)
+    (text thenum "Zero" numbox)
+    (button button1 "1" leftbuttons (xtext thenum "One"))
+    (button button2 "2" leftbuttons (xtext thenum "Two"))
+    (button button3 "3" rightbuttons (xtext thenum "Three"))
+    (button button4 "4" rightbuttons (xtext thenum "Four"))
+    (gtk_widget_show_all win))
+  (g_application_run demo1 0 nil)
+  (g_object_unref demo1))
+
+(main)
+
+EOF
-- 
cgit v1.2.3