Module: Dylan-User Synopsis: DUIM back-end for GTK Author: Andy Armstrong, Scott McKay Copyright: Original Code is Copyright (c) 1995-2004 Functional Objects, Inc. All rights reserved. License: Functional Objects Library Public License Version 1.0 Dual-license: GNU Lesser General Public License Warranty: Distributed WITHOUT WARRANTY OF ANY KIND // Implementation module define module gtk-duim use dylan; use operating-system; use duim-imports; use duim-internals; use duim-gadget-panes-internals; //---*** until we've got all native gadgets in use C-FFI; use Glib-2; use Gdk-2; use Gtk-2; use GObject-2; use Xlib, prefix: "x/"; use Xt, prefix: "Xt/"; // Basic classes export , , ; // Gadget creation protocols export , , , make-gtk-mirror, install-event-handlers, install-named-handlers, update-mirror-attributes, set-mirror-parent, move-mirror, size-mirror; // These can be used by someone who wants to import their own GTK gadget export \event-handler-definer, , , , , handle-gtk-destroy-event, handle-gtk-delete-event, handle-gtk-motion-event, handle-gtk-button-press-event, handle-gtk-button-release-event, handle-gtk-key-press-event, handle-gtk-key-release-event, handle-gtk-configure-event, handle-gtk-expose-event, handle-gtk-enter-event, handle-gtk-leave-event, handle-gtk-clicked-event, handle-gtk-select-row-event, handle-gtk-click-column-event, handle-gtk-resize-column-event; // Other possibly useful exports export shutdown-gtk-duim; end module gtk-duim;