NewSystemBrowser.st
changeset 9585 5aa270837e0a
parent 9573 b776b73bf56f
child 9603 1d7564fd77a7
--- 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!