/usr/share/gauche-0.9/site/lib/gtk.scm is in gauche-gtk 0.6~pre1+git20121223-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | ;;;
;;; 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.9 2007/01/13 01:36:31 maruska 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)
(define gpointer-mapping (make-hash-table 'string=?))
;; mapping "signal-name" -> ( ( index . type) ....)
;; todo: C part depends on this, so it should be defined there!
(provide "gtk")
|