File: listener.scm

package info (click to toggle)
gauche-gtk 0.6%2Bgit20160927-3
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 1,452 kB
  • sloc: ansic: 7,097; lisp: 5,659; sh: 2,829; makefile: 338
file content (14 lines) | stat: -rw-r--r-- 330 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
;; sample to use gtk.listener

(use gtk)

(define (main args)
  (gtk-init args)
  (let1 w (gtk-window-new GTK_WINDOW_TOPLEVEL)
    (g-signal-connect w "destroy" (lambda _ (gtk-main-quit)))
    (gtk-widget-set-size-request w 100 100)
    (gtk-widget-show w))
  (gtk-scheme-listener-add :finalizer gtk-main-quit)
  (gtk-main)
  0)