scm/framework-gnome.scm

   1 ;;;; framework-gnome.scm --
   2 ;;;;
   3 ;;;;  source file of the GNU LilyPond music typesetter
   4 ;;;;
   5 ;;;; (c)  2004 Jan Nieuwenhuizen <janneke@gnu.org>
   6
   7 (define-module (scm framework-gnome)
   8   :use-module (oop goops)
   9   #:export (<gnome-outputter>))
  10
  11 ;;(define this-module (current-module))
  12
  13 (use-modules (guile) (oop goops) (lily))
  14
  15 (use-modules
  16  (gnome gtk)
  17  (gnome gtk gdk-event)
  18  ;;
  19  (scm output-gnome)
  20  )
  21
  22 ;; the name of the module will change to canvas rsn
  23 (if (resolve-module '(gnome gw canvas))
  24     (use-modules (gnome gw canvas))
  25     (use-modules (gnome gw libgnomecanvas)))
  26
  27
  28 (define-public (output-framework-gnome outputter book scopes fields basename)
  29     ;;(gnome-main book))))
  30     (ly:outputter-dump-stencil
  31      outputter
  32      (ly:make-stencil (list 'gnome-main book) '(0 . 0) '(0 . 0))))