;; Copyright (C) 2016  Tommi Höynälänmaa

(define-interface (gnome-examples theme-d-gnome-demo demo)

  (import (standard-library core)
	  (gnome gtk))

  (define-class <demo>
    (fields
     (str-name <string> public module)
     (str-module-name <string> public module)
     (str-description <string> public module)
     (str-interface <string> public module)
     (str-body <string> public module)
     (proc-run (:procedure (<gtk-window>) <none> nonpure) public module)))

  (declare demo-compute-source (:simple-proc (<demo>) <none> nonpure)))
