gEDA-cvs: CVS update: gschem.c

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 06/10/18 15:01:29

  Modified:    .        gschem.c
  Log:
  Call the new page hook if gschem was called without arguments.
  
  
  
  
  Revision  Changes    Path
  1.39      +18 -0     eda/geda/gaf/gschem/src/gschem.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: gschem.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gschem/src/gschem.c,v
  retrieving revision 1.38
  retrieving revision 1.39
  diff -u -b -r1.38 -r1.39
  --- gschem.c	16 Oct 2006 16:00:54 -0000	1.38
  +++ gschem.c	18 Oct 2006 19:01:29 -0000	1.39
  @@ -327,6 +327,24 @@
                      w_current->page_current->page_filename);
     }
   
  +  /* If no page has been loaded (wasn't specified in the command line. */
  +  /* Then run the new page hook and do a zoom extents */
  +  if (first_page) {
  +    /* Run the new page hook */
  +    if (scm_hook_empty_p(new_page_hook) == SCM_BOOL_F &&
  +	w_current->page_current != NULL) {
  +      scm_run_hook(new_page_hook,
  +		   scm_cons(g_make_page_smob(w_current, 
  +					     w_current->page_current),
  +			    SCM_EOL));
  +    }
  +    
  +    /* Do a zoom extents for this page */
  +    a_zoom_extents(w_current,
  +		   w_current->page_current->object_head,
  +		   A_PAN_DONT_REDRAW);
  +  }
  +
     o_undo_savestate(w_current, UNDO_ALL);
     
     
  
  
  


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