Created
January 19, 2019 03:22
-
-
Save guicho271828/48db7a94a03d36ed33ce2cc8a4d0d7ab to your computer and use it in GitHub Desktop.
demo1
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/bin/sh | |
#|-*- mode:lisp -*-|# | |
#| | |
exec ros -Q -- $0 "$@" 2>/dev/null | |
|# | |
; Refer to the demostuff file for definitions and descriptions. | |
(load "demostuff") | |
(defun main (&rest argv) | |
(declare (ignorable argv)) | |
(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)) | |
;;; vim: set ft=lisp lisp: |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment