1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
;;
;; Simple example, ported from the one in Gtk+2.0 tutorial.
;;
;; $Id: eventbox.scm,v 1.2 2007/01/13 01:36:30 maruska Exp $
(use gtk)
(define (main args)
(gtk-init args)
(let1 window (gtk-window-new GTK_WINDOW_TOPLEVEL)
(gtk-window-set-title window "Event Box")
(g-signal-connect window "destroy" (lambda _ (exit 0)))
(gtk-container-set-border-width window 10)
(let1 event-box (gtk-event-box-new)
(gtk-container-add window event-box)
(gtk-widget-show event-box)
(let1 label (gtk-label-new "Click here to quit, quit, quit, quit, quit")
(gtk-container-add event-box label)
(gtk-widget-show label)
(gtk-widget-set-size-request label 110 20)
)
(gtk-widget-set-events event-box GDK_BUTTON_PRESS_MASK)
(g-signal-connect event-box "button_press_event"
(lambda _ (exit 0)))
(gtk-widget-realize event-box)
(gdk-window-set-cursor (ref event-box 'window)
(gdk-cursor-new GDK_HAND1))
)
(gtk-widget-show window)
)
(gtk-main)
0)
|
