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

(if (feature? 'motif)
    (require 'xt.o 'xt-motif.o)
    (require 'xt.o))

(load 'xlib)

(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))

;; Backwards compatibility:

(define widget-window widget->window)
