Add files via upload

1 files changed, 25 insertions, 0 deletions

diff --git a/demo4 b/demo4
new file mode 100644
index 0000000..42bf654
--- /dev/null
+++ b/demo4
@@ -0,0 +1,25 @@
+#!/bin/bash
+sbcl --script << 'EOF' 2> >(sed '/^Backtrace/,$d;/^; /d')
+
+; Refer to the demostuff file for definitions and descriptions.
+
+(load "demostuff")
+
+(defun main ()
+  (gapp demo4
+    (window win demo4 "Demos Menu" 300 200)
+    (box h outerbox win)
+    (box v mainbox outerbox)
+    (mbutton button1 "Four Button Demo" mainbox (dodemo 1))
+    (mbutton button2 "Numerals Demo"    mainbox (dodemo 2))
+    (mbutton button3 "Dates Demo"       mainbox (dodemo 3))
+    (gtk_widget_show_all win))
+  (g_application_run demo4 0 nil)
+  (g_object_unref demo4))
+
+(defun dodemo (which)
+  (sb-ext:run-program (format nil "demo~d" which) nil))
+
+(main)
+
+EOF