gEDA-cvs: CVS update: gschem.c

[cvspsrv@xxxxxxxx]

  User: cnieves 
  Date: 06/10/16 12:00:54

  Modified:    .        gschem.c
  Log:
  Call the new page hook for each schematic
  
  specified in the command line, instead of calling it for
  
  only the latest.
  
  This way all pages are zoomed extents when loaded.
  
  Thanks to Peter Clifton for reporting the bug.
  
  
  
  
  Revision  Changes    Path
  1.38      +16 -12    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.37
  retrieving revision 1.38
  diff -u -b -r1.37 -r1.38
  --- gschem.c	30 Sep 2006 11:30:26 -0000	1.37
  +++ gschem.c	16 Oct 2006 16:00:54 -0000	1.38
  @@ -278,6 +278,22 @@
                          w_current->page_current->page_filename);
         }
       }
  +
  +    /* 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 each page */
  +    a_zoom_extents(w_current,
  +		   w_current->page_current->object_head,
  +		   A_PAN_DONT_REDRAW);
  +
  +    /* Go to the next argument */
       i++;
     }
   
  @@ -311,18 +327,6 @@
                      w_current->page_current->page_filename);
     }
   
  -  /* 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));
  -  }
  -
  -  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