diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2019-02-06 16:50:30 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2019-02-06 17:00:51 -0800 |
commit | 94ee69847a8e233b998ddd8c743087a063d27a44 (patch) | |
tree | 1a9fee291911a33e407d40e74975d88870b73962 /menu.tl | |
parent | 4667b03c44081463141dcdaeb3e748c0a24fcfa6 (diff) | |
download | gtk-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-x | menu.tl | 19 |
1 files changed, 19 insertions, 0 deletions
@@ -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)) |