[PD-cvs] externals/miXed/shared/hammer gui.c,1.2,1.3

[Krzysztof Czaja]

Update of /cvsroot/pure-data/externals/miXed/shared/hammer
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32393/shared/hammer

Modified Files:
	gui.c 
Log Message:
toxy alpha11

Index: gui.c
===================================================================
RCS file: /cvsroot/pure-data/externals/miXed/shared/hammer/gui.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** gui.c	29 Mar 2004 17:09:52 -0000	1.2
--- gui.c	31 Mar 2004 10:24:17 -0000	1.3
***************
*** 200,204 ****
         during Tcl_Finalize().  FIXME this should be a standard exit handler. */
      sys_gui("proc hammergui_exithook {cmd op} {proc pd {} {}}\n");
!     sys_gui("trace add execution exit enter hammergui_exithook\n");
  
      sys_gui("proc hammergui_ispatcher {cv} {\n");
--- 200,205 ----
         during Tcl_Finalize().  FIXME this should be a standard exit handler. */
      sys_gui("proc hammergui_exithook {cmd op} {proc pd {} {}}\n");
!     sys_gui("if {[info tclversion] >= 8.4} {\n\
!  trace add execution exit enter hammergui_exithook}\n");
  
      sys_gui("proc hammergui_ispatcher {cv} {\n");