summaryrefslogtreecommitdiffstats
path: root/menu.tl
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2019-02-06 16:50:30 -0800
committerKaz Kylheku <kaz@kylheku.com>2019-02-06 17:00:51 -0800
commit94ee69847a8e233b998ddd8c743087a063d27a44 (patch)
tree1a9fee291911a33e407d40e74975d88870b73962 /menu.tl
parent4667b03c44081463141dcdaeb3e748c0a24fcfa6 (diff)
downloadgtk-demos-94ee69847a8e233b998ddd8c743087a063d27a44.tar.gz
gtk-demos-94ee69847a8e233b998ddd8c743087a063d27a44.tar.bz2
gtk-demos-94ee69847a8e233b998ddd8c743087a063d27a44.zip
More TXR porting: add suffixes to files; remove SBCL materials.
Diffstat (limited to 'menu.tl')
-rwxr-xr-xmenu.tl19
1 files changed, 19 insertions, 0 deletions
diff --git a/menu.tl b/menu.tl
new file mode 100755
index 0000000..a0d3dff
--- /dev/null
+++ b/menu.tl
@@ -0,0 +1,19 @@
+; Refer to the demostuff file for definitions and descriptions.
+
+(defun menu ()
+ (gapp demos
+ (window win demos "Demos Menu" 300 350)
+ (box h outerbox win)
+ (box v mainbox outerbox)
+ (mbutton dodemo1 "Four Button Demo" mainbox (demo1))
+ (mbutton dodemo2 "Numerals Demo" mainbox (demo2))
+ (mbutton dodemo3 "Dates Demo" mainbox (demo3))
+ (mbutton dodemo4 "de minimis" mainbox (demo4))
+ (mbutton dodemo5 "de minimis" mainbox (demo5))
+ (mbutton dodemo6 "de minimis" mainbox (demo6))
+ (mbutton dodemo7 "de minimis" mainbox (demo7))
+ (mbutton dodemo8 "de minimis" mainbox (demo8))
+ (mbutton dodemo9 "de minimis" mainbox (demo9))
+ (gtk_widget_show_all win))
+ (g_application_run demos 0 null)
+ (g_object_unref demos))