;;; -*-Scheme-*-

(require 'xwidgets)
(load-widgets shell clock viewport)

(define con (create-context))
(define dpy (initialize-display con #f 'viewport 'demo))
(define top (create-shell 'viewport 'demo (find-class 'application-shell) dpy))

(define v (create-managed-widget (find-class 'viewport) top
  'force-bars #t 'allow-horiz #t 'allow-vert #t))
(set-values! v 'width 120 'height 120)

(define c (create-managed-widget (find-class 'clock) v))
(set-values! c 'width 200 'height 200)

(realize-widget top)
(context-main-loop con)
