gEDA-cvs: CVS update: system-gschemrc.in

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 06/09/30 07:30:26

  Modified:    .        system-gschemrc.in
  Log:
  Added a new scheme function to get the objects in a page.
  
  Improved the new-page-hook in system-gschemrc so it only adds
  
  the titleblock if the page has no objects.
  
  
  
  
  Revision  Changes    Path
  1.102     +6 -5      eda/geda/gaf/gschem/lib/system-gschemrc.in
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: system-gschemrc.in
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gschem/lib/system-gschemrc.in,v
  retrieving revision 1.101
  retrieving revision 1.102
  diff -u -b -r1.101 -r1.102
  --- system-gschemrc.in	28 Sep 2006 18:00:31 -0000	1.101
  +++ system-gschemrc.in	30 Sep 2006 11:30:26 -0000	1.102
  @@ -919,11 +919,12 @@
   
   ; Automatically place a titleblock (or other components) when creating
   ; a new page.
  -; Comment in these lines if you want gschem to automatically place a symbol
  -; when you create a new page.
  +; Comment in these lines if you want gschem to automatically place a titleblock
  +; when you create a new _empty_ page.
   ;(add-hook! new-page-hook (lambda (page)
  +;   (if (null? (get-objects-in-page page))
   ;;       Syntax             Symbol name     X    Y   angle selectable mirrored
  -;	(add-component page "title-A4.sym" 1000 1000   0       #f          #f))
  +;       (add-component page "title-A4.sym" 1000 1000   0       #f       #f)))
   ;	 #t)
   
   ;
  
  
  


_______________________________________________
geda-cvs mailing list
geda-cvs@xxxxxxxxxxxxxx
http://www.seul.org/cgi-bin/mailman/listinfo/geda-cvs