equal
deleted
inserted
replaced
783 ] |
783 ] |
784 |
784 |
785 " |
785 " |
786 thisContext fullPrintAll |
786 thisContext fullPrintAll |
787 " |
787 " |
|
788 ! |
|
789 |
|
790 fullPrintAllLevels:nOrNil |
|
791 "print a full walkback starting at the receiver, only print n levels |
|
792 - used only for MiniDebuggers walkback print" |
|
793 |
|
794 |context count| |
|
795 |
|
796 count := 0. |
|
797 context := self. |
|
798 [context notNil] whileTrue: [ |
|
799 context fullPrint. |
|
800 context := context sender. |
|
801 nOrNil ifNotNil:[ |
|
802 (count := count+1) > nOrNil ifTrue:[^self]. |
|
803 ] |
|
804 ] |
|
805 |
|
806 " |
|
807 thisContext fullPrintAll |
|
808 " |
|
809 |
|
810 "Created: / 3.9.1999 / 14:02:38 / ps" |
788 ! |
811 ! |
789 |
812 |
790 fullPrintAllOn:aStream |
813 fullPrintAllOn:aStream |
791 "print a full walkback starting at the receiver |
814 "print a full walkback starting at the receiver |
792 - used only for MiniDebuggers walkback print" |
815 - used only for MiniDebuggers walkback print" |
1895 ! ! |
1918 ! ! |
1896 |
1919 |
1897 !Context class methodsFor:'documentation'! |
1920 !Context class methodsFor:'documentation'! |
1898 |
1921 |
1899 version |
1922 version |
1900 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.100 1999-08-25 16:24:41 cg Exp $' |
1923 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.101 1999-09-03 12:49:21 ps Exp $' |
1901 ! ! |
1924 ! ! |
1902 Context initialize! |
1925 Context initialize! |