use usescons for using scons.

[lilypond.git] / scm / output-gnome.scm

diff --git a/scm/output-gnome.scm b/scm/output-gnome.scm
index 025b10afdddebd60342d246aff0605ce9597c2e1..714d7372ea65e71637c84f183da880361a44ab2f 100644 (file)
--- a/scm/output-gnome.scm
+++ b/scm/output-gnome.scm
@@ -21,7 +21,6 @@
 
 ;;; You need:
 ;;;
-;;;   * guile-1.6.4 (NOT CVS -- we are working on this)
 ;;;   * Rotty's g-wrap--tng TLA, possibly Janneke's if you have libffi-3.4.
 ;;;   * guile-gnome TLA
 ;;;   * pango CVS (ie, > 2004-06-12)
@@ -30,37 +29,41 @@
 
 ;;; Try it
 ;;;
-;;;   * If you are using GUILE CVS, recompile LilyPond with GUILE 1.6.
-
-;;;     [If for some unknown or funny reason you do not want to
-;;;      overwrite your lilypond-bin with GUILE CVS, you can
-;;;      reconfigure a new configuration, say g16:
-"
-PATH=/usr/bin/:$PATH ./configure --enable-config=g16 && make conf=g16
-"
-;;;     ]
+;;;   * Get cvs and tla
 ;;;
-;;;   * Install gnome/gtk development stuff
+;;;   * Install gnome/gtk and libffi development stuff
 ;;;
-;;;   * Install g-wrap and guile-gnome, see buildscripts/guile-gnome.sh
+;;;   * Install pango, g-wrap and guile-gnome from CVS or arch: 
+;;;     see buildscripts/guile-gnome.sh
 ;;;  
+;;;   * Build LilyPond with gui support: configure --enable-gui
+;;;
+;;;   * Supposing that LilyPond was built in ~/cvs/lilypond, tell X about
+;;;     feta fonts:
+"
+ln -s ~/cvs/lilypond/mf/out ~/.fonts
+mkfontdir ~/.fonts
+xset +fp ~/.fonts
+"
+;;;
 ;;;   * Setup environment
 "
-export GUILE_LOAD_PATH=$HOME/usr/pkg/g-wrap/share/guile/site:$HOME/usr/pkg/g-wrap/share/guile/site/g-wrap:$HOME/usr/pkg/guile-gnome/share/guile
-export LD_LIBRARY_PATH=$HOME/usr/pkg/g-wrap/lib:$HOME/usr/pkg/guile-gnome/lib
+export GUILE_LOAD_PATH=$HOME/usr/pkg/g-wrap/share/guile/site:$HOME/usr/pkg/g-wrap/share/guile/site/g-wrap:$HOME/usr/pkg/guile-gnome/share/guile:$GUILE_LOAD_PATH
+export LD_LIBRARY_PATH=$HOME/usr/pkg/pango/lib:$HOME/usr/pkg/g-wrap/lib:$HOME/usr/pkg/guile-gnome/lib:$LD_LIBRARY_PATH
 export XEDITOR='/usr/bin/emacsclient --no-wait +%l:%c %f'
 "
 ;;;  * Also for GNOME point-and-click, you need to set XEDITOR and add
 "
 #(ly:set-point-and-click 'line-column)
 "
-;;;    to your .ly; then click an object on the canvas.
+;;;    to your .ly.
 ;;;
 ;;;  * Run lily:
 "
 lilypond-bin -fgnome input/simple-song.ly
 "
-
+;;; point-and-click: (mouse-1) click on a graphical object;
+;;; grob-property-list: (mouse-3) click on a graphical object.
 
 (debug-enable 'backtrace)
 
@@ -244,6 +247,9 @@ lilypond-bin -fgnome input/simple-song.ly
 (define (horizontal-line x1 x2 thickness)
   (filledbox (- x1) (- x2 x1) (* .5 thickness) (* .5 thickness)))
 
-(define (define-origin file line col)
-  (if (procedure? point-and-click)
-      (list 'location line col file)))
+;;(define (define-origin file line col)
+;;  (if (procedure? point-and-click)
+;;      (list 'location line col file)))
+
+(define (grob-cause grob)
+  grob)