;;; -*-Scheme-*-
;;;
;;; The Scheme part of the Xt interface

(require 'xt.o)

(load 'xlib.core)
(load 'xlib.more)

(provide 'xlib)
(provide 'xt)

(define (manage-child w)
  (manage-children (list w)))

(define (unmanage-child w)
  (unmanage-children (list w)))

(define (add-callback w name fun)
  (add-callbacks w name (list fun)))

(define (create-managed-widget . args)
  (let ((w (apply create-widget args)))
    (manage-child w)
    w))

(append! load-path (list (string-append top-dir "lib/xt/examples")
                         (string-append top-dir "lib/xlib/examples")))