equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1988 by Claus Gittinger |
2 COPYRIGHT (c) 1988 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1801 thisContext fullPrintAllOn:Transcript |
1799 thisContext fullPrintAllOn:Transcript |
1802 " |
1800 " |
1803 |
1801 |
1804 "Created: / 15-01-1997 / 18:09:05 / cg" |
1802 "Created: / 15-01-1997 / 18:09:05 / cg" |
1805 "Modified: / 15-03-2017 / 14:16:12 / cg" |
1803 "Modified: / 15-03-2017 / 14:16:12 / cg" |
|
1804 ! |
|
1805 |
|
1806 fullPrintAllOn:aStream levels:numLevels |
|
1807 "print a full walkback (incl arguments) starting at the receiver" |
|
1808 |
|
1809 |count| |
|
1810 |
|
1811 count := 0. |
|
1812 self withSendersThroughContextForWhich:[:c | false] do:[:con | |
|
1813 con fullPrintOn:aStream. aStream cr. |
|
1814 count := count + 1. |
|
1815 count >= numLevels ifTrue:[^ self]. |
|
1816 ]. |
|
1817 |
|
1818 " |
|
1819 thisContext fullPrintAllOn:Transcript levels:10 |
|
1820 " |
|
1821 |
|
1822 "Created: / 18-08-2017 / 15:12:17 / cg" |
1806 ! |
1823 ! |
1807 |
1824 |
1808 fullPrintAllOn:aStream throughContextForWhich:aBlock |
1825 fullPrintAllOn:aStream throughContextForWhich:aBlock |
1809 "print a full walkback (incl arguments) starting at the receiver" |
1826 "print a full walkback (incl arguments) starting at the receiver" |
1810 |
1827 |