demo1


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

; Refer to the demostuff file for definitions and descriptions.

(defun demo1 ()
  (window demo1 demos "Four Button Demo" 300 150)
  (box h outerbox1 demo1)
  (box v mainbox1 outerbox1)
  (box h buttons1 mainbox1)
  (box h numbox1 mainbox1)
  (box v leftbuttons1 buttons1)
  (box v rightbuttons1 buttons1)
  (text num1 "Zero" numbox1)
  (button b1nw "1" leftbuttons1 (xtext num1 "One"))
  (button b1sw "2" leftbuttons1 (xtext num1 "Two"))
  (button b1ne "3" rightbuttons1 (xtext num1 "Three"))
  (button b1se "4" rightbuttons1 (xtext num1 "Four"))
  (gtk_widget_show_all demo1))