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
|
;;;
;;; gtk.scm - Gauche GTk binding
;;;
;;; Copyright(C) 2002 by Shiro Kawai (shiro@acm.org)
;;;
;;; Permission to use, copy, modify, distribute this software and
;;; accompanying documentation for any purpose is hereby granted,
;;; provided that existing copyright notices are retained in all
;;; copies and that this notice is included verbatim in all
;;; distributions.
;;; This software is provided as is, without express or implied
;;; warranty. In no circumstances the author(s) shall be liable
;;; for any damages arising out of the use of this software.
;;;
;;; $Id: gtk.scm,v 1.8 2002/10/22 08:38:44 shirok Exp $
;;;
(define-module gtk
(export-all)
(use srfi-4)
(use gauche.charconv)
)
(select-module gtk)
(dynamic-load "gauche-gtk" :export-symbols #t)
(require "gtk/gtkaux")
(require "gtk/gdkkeysyms")
(autoload "gtk/listener" gtk-scheme-listener-add)
(provide "gtk")
|
