diff options
Diffstat (limited to 'demo3')
| -rwxr-xr-x[-rw-r--r--] | demo3 | 32 |
1 files changed, 10 insertions, 22 deletions
@@ -1,30 +1,18 @@ -#!/bin/bash -sbcl --script << 'EOF' 2> >(sed '/^Backtrace/,$d;/^; /d') - ; Refer to the demostuff file for definitions and descriptions. -(load "demostuff") - -(defun main () - (gapp demo3 - (window win demo3 "Dates Demo" 300 200) - (box h outerbox win) - (box v mainbox outerbox) - (button button1 "1066" mainbox (relabel button1 1066)) - (button button2 "1415" mainbox (relabel button2 1415)) - (button button3 "1492" mainbox (relabel button3 1492)) - (button button4 "1620" mainbox (relabel button4 1620)) - (button button5 "1776" mainbox (relabel button5 1776)) - (gtk_widget_show_all win)) - (g_application_run demo3 0 nil) - (g_object_unref demo3)) +(defun demo3 () + (window demo3 demos "Dates Demo" 300 200) + (box h outerbox3 demo3) + (box v mainbox3 outerbox3) + (button date1 "1066" mainbox3 (relabel date1 1066)) + (button date2 "1415" mainbox3 (relabel date2 1415)) + (button date3 "1492" mainbox3 (relabel date3 1492)) + (button date4 "1620" mainbox3 (relabel date4 1620)) + (button date5 "1776" mainbox3 (relabel date5 1776)) + (gtk_widget_show_all demo3)) (defun relabel (button number) (let* ((old (gtk_button_get_label button)) (isdigits (<= 0 (- (char-int (aref old 0)) (char-int #\0)) 9)) (new (format nil (if isdigits "~@R" "~d") number))) (xlabel button new))) - -(main) - -EOF |