--- a/NewSystemBrowser.st Tue Oct 19 12:59:17 2010 +0200
+++ b/NewSystemBrowser.st Wed Oct 20 09:48:00 2010 +0200
@@ -26440,7 +26440,8 @@
|conditionBlockString conditionBlock dialog textHolder template|
template :=
-'"/ general breakpoint;
+'"/ General breakpoint
+"/
"/ the following block should evaluate to true, if the breakPoint is to fire.
"/ Please change as required.
"/ Beginner warning: Smalltalk know-how is useful here.
@@ -26466,20 +26467,27 @@
"/ Other Useful stuff:
"/ - counter invocation counter
- "/ example (breakPoint hits if the receiver is a NewSystemBrowser)
- "/ (context receiver isMemberOf:NewSystemBrowser)
-
- "/ example (breakPoint hits if the sender is a Workspace)
- "/ (context sender receiver isMemberOf:Workspace)
-
- "/ example (breakPoint hits if an instance variable is true)
- "/ ((context receiver instVarNamed:''foo'') == true)
-
- "/ example (breakPoint hits after 5 calls)
- "/ counter >= 5
-
- "/ fire always
- true
+ "/ examples:
+
+ "/ stop if the receiver is a NewSystemBrowser
+ "/ (context receiver isMemberOf:NewSystemBrowser)
+
+ "/ stop if some argument has a particular value
+ "/ (context argAt:1) = ''hello''
+ "/ (context argAt:1) = 1234
+ "/ (context argAt:1) = (context argAt:2)
+
+ "/ stop if the sender is a Workspace
+ "/ (context sender receiver isMemberOf:Workspace)
+
+ "/ stop if an instance variable is true
+ "/ ((context receiver instVarNamed:''foo'') == true)
+
+ "/ stop after 5 calls (notice the scope of the counter variable, outside the block)
+ "/ counter >= 5
+
+ "/ stop always
+ "/ true
]
'.
@@ -26511,7 +26519,7 @@
self commonTraceHelperWith:#breakPointIf: with:conditionBlock clear:true
- "Modified: / 18.8.2000 / 22:16:06 / cg"
+ "Modified: / 20-10-2010 / 09:33:57 / cg"
!
debugMenuBreakPointIn
@@ -44630,11 +44638,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1482 2010-10-05 10:27:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1483 2010-10-20 07:48:00 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1482 2010-10-05 10:27:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1483 2010-10-20 07:48:00 cg Exp $'
! !
NewSystemBrowser initialize!