gEDA-cvs: CVS update: i_callbacks.c

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 06/10/18 15:43:22

  Modified:    .        i_callbacks.c
  Log:
  Call the new page hook in the file_new_window callback.
  
  Thanks to Peter Clifton for reporting the bug.
  
  
  
  
  Revision  Changes    Path
  1.68      +11 -0     eda/geda/gaf/gschem/src/i_callbacks.c
  
  (In the diff below, changes in quantity of whitespace are not shown.)
  
  Index: i_callbacks.c
  ===================================================================
  RCS file: /home/cvspsrv/cvsroot/eda/geda/gaf/gschem/src/i_callbacks.c,v
  retrieving revision 1.67
  retrieving revision 1.68
  diff -u -b -r1.67 -r1.68
  --- i_callbacks.c	4 Oct 2006 20:11:40 -0000	1.67
  +++ i_callbacks.c	18 Oct 2006 19:43:22 -0000	1.68
  @@ -223,6 +223,17 @@
     w_current = s_toplevel_new ();
     x_window_setup (w_current);
   
  +  /* x_window_setup creates a new page, so call the new page hook */
  +  if (scm_hook_empty_p (new_page_hook) == SCM_BOOL_F) {
  +    scm_run_hook (new_page_hook,
  +                  scm_cons (g_make_page_smob (w_current, 
  +					      w_current->page_current), 
  +			    SCM_EOL));
  +  }
  +  
  +  /* Do a zoom extents after calling the new page hook */
  +  a_zoom_extents(w_current, w_current->page_current->object_head, 0);
  +
     exit_if_null(w_current);
   
     s_log_message(_("New Window created\n"));
  
  
  


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