equal
deleted
inserted
replaced
1899 |valueString| |
1899 |valueString| |
1900 |
1900 |
1901 value isString ifTrue:[ |
1901 value isString ifTrue:[ |
1902 valueString := value storeString contractTo:80. |
1902 valueString := value storeString contractTo:80. |
1903 ] ifFalse:[ |
1903 ] ifFalse:[ |
1904 valueString := value printString contractTo:80. |
1904 Error handle:[:ex | |
|
1905 valueString := '??? (',ex description,')' |
|
1906 ] do:[ |
|
1907 valueString := value printString contractTo:80. |
|
1908 ] |
1905 ]. |
1909 ]. |
1906 description isEmptyOrNil ifTrue:[ |
1910 description isEmptyOrNil ifTrue:[ |
1907 s := valueString |
1911 s := valueString |
1908 ] ifFalse:[ |
1912 ] ifFalse:[ |
1909 s := description , ': ', valueString |
1913 s := description , ': ', valueString |
6489 ! ! |
6493 ! ! |
6490 |
6494 |
6491 !DebugView class methodsFor:'documentation'! |
6495 !DebugView class methodsFor:'documentation'! |
6492 |
6496 |
6493 version |
6497 version |
6494 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.447 2008-07-24 14:44:11 cg Exp $' |
6498 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.448 2008-08-06 10:17:21 cg Exp $' |
6495 ! ! |
6499 ! ! |
6496 |
6500 |
6497 DebugView initialize! |
6501 DebugView initialize! |