--- a/InstrumentationContext.st	Thu Sep 29 13:20:00 2011 +0200
+++ b/InstrumentationContext.st	Fri Sep 30 11:09:10 2011 +0200
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libcomp' }"
 
 Object variableSubclass:#InstrumentationContext
-	instanceVariableNames:'inInstrumentedCode enabled'
+	instanceVariableNames:'inInstrumentedCode enabled coverageOnly'
 	classVariableNames:'CachedProcessToInstrumentationContextMapping
 		GlobalInstrumentationContext'
 	poolDictionaries:''
@@ -168,6 +168,24 @@
 
 !InstrumentationContext methodsFor:'accessing'!
 
+coverageOnly
+    "if on, only keep track of coverage (not counting);
+     if off, we also count how often the code has been entered"
+
+    ^ coverageOnly
+
+    "Created: / 23-08-2011 / 21:25:46 / cg"
+!
+
+coverageOnly:aBoolean
+    "if on, only keep track of coverage (not counting);
+     if off, we also count how often the code has been entered"
+
+    coverageOnly := aBoolean.
+
+    "Created: / 23-08-2011 / 21:25:37 / cg"
+!
+
 enabled
     ^ enabled
 !
@@ -265,9 +283,9 @@
 !InstrumentationContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.6 2011-09-21 17:48:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.7 2011-09-30 09:09:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.6 2011-09-21 17:48:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/InstrumentationContext.st,v 1.7 2011-09-30 09:09:10 cg Exp $'
 ! !