[q-lang-cvs] qt-q/src Makefile,1.4,1.5 smokeqt.i,1.26,1.27

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qt-q/src
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv11072/src

Modified Files:
	Makefile smokeqt.i 
Log Message:
add some optional extra code for debugging slot invokations

Index: Makefile
===================================================================
RCS file: /cvsroot/q-lang/qt-q/src/Makefile,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Makefile	29 Sep 2007 17:20:41 -0000	1.4
--- Makefile	8 Nov 2007 07:29:10 -0000	1.5
***************
*** 5,8 ****
--- 5,12 ----
  #SMOKELIBS=-lsmokekde
  
+ # uncomment this to add some code for debugging slot invokations (see the
+ # callMethod method in smokeqt.i)
+ DEFS=-DDEBUG_INVOKE
+ 
  INCPATH=-I$(QTDIR)/include -I$(SMOKEDIR)/include
  LIBPATH=-L$(QTDIR)/lib -L$(SMOKEDIR)/lib

Index: smokeqt.i
===================================================================
RCS file: /cvsroot/q-lang/qt-q/src/smokeqt.i,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** smokeqt.i	3 Nov 2007 22:26:49 -0000	1.26
--- smokeqt.i	8 Nov 2007 07:29:10 -0000	1.27
***************
*** 696,699 ****
--- 696,706 ----
  
  %stubs %{
+ /* If the smokeqt module is configured for this (by adding -DDEBUG_INVOKE to
+    the compilation command), you can define this function in your script to
+    debug slot invocations. The function will be called right before each slot
+    invocation. */
+ 
+ public debug_invoke OBJ SLOT ARGS;
+ 
  /* Widget factory interface. */
  
***************
*** 4474,4477 ****
--- 4481,4493 ----
  				     name, isSignal);
        expr y = make_qt_obj(obj->ptr, obj->cid);
+       /* Define this symbol when compiling the Qt/Q module and define the
+ 	 'debug_invoke' function in your script to debug slot invocations. */
+ #ifdef DEBUG_INVOKE
+       if (!isSignal) {
+ 	dispose(callback(mksym(__sym(debug_invoke)),
+ 			 newref(y), newref(name), newref(args)));
+ 	unref(y); unref(name); unref(args);
+       }
+ #endif
        if (args) x = callback(f, y, name, args);
      } else {