--- a/BreakpointDescription.st	Fri Jan 27 13:47:58 2012 +0100
+++ b/BreakpointDescription.st	Fri Jan 27 14:00:38 2012 +0100
@@ -68,6 +68,12 @@
 
 !BreakpointDescription methodsFor:'support'!
 
+beTracepoint
+    state := #tracing.
+
+    "Created: / 27-01-2012 / 13:55:20 / cg"
+!
+
 shouldBreakIn: aContext
     state ~~ #enabled ifTrue:[^false].
 
@@ -89,20 +95,25 @@
     state == #deleted ifTrue:[^self].
 
     (state == #enabled) ifTrue:[
-        "/ state := #tracing.
         state := #disabled.
     ] ifFalse:[
-        (state == #tracing) ifTrue:[
-            state := #disabled
-        ] ifFalse:[
-            (state == #disabled) ifTrue:[
-                state := #enabled
-            ]
-        ]
+        state := #enabled
     ].
 
     "Created: / 17-06-2011 / 13:40:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 27-01-2012 / 13:47:46 / cg"
+    "Modified: / 27-01-2012 / 13:52:54 / cg"
+!
+
+toggleTracing
+    state == #deleted ifTrue:[^self].
+
+    (state == #tracing) ifTrue:[ 
+        state := #disabled 
+    ] ifFalse:[
+        state := #tracing.
+    ].
+
+    "Created: / 27-01-2012 / 13:52:41 / cg"
 ! !
 
 !BreakpointDescription methodsFor:'testing'!
@@ -119,9 +130,9 @@
 !BreakpointDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointDescription.st,v 1.3 2012-01-27 12:47:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointDescription.st,v 1.4 2012-01-27 13:00:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointDescription.st,v 1.3 2012-01-27 12:47:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BreakpointDescription.st,v 1.4 2012-01-27 13:00:38 cg Exp $'
 ! !