equal
deleted
inserted
replaced
8907 code := method decompiledSource |
8907 code := method decompiledSource |
8908 ] ifFalse:[ |
8908 ] ifFalse:[ |
8909 code := method source. |
8909 code := method source. |
8910 ]. |
8910 ]. |
8911 ]. |
8911 ]. |
|
8912 |
8912 code isNil ifTrue:[ |
8913 code isNil ifTrue:[ |
8913 method sourceFilename notNil ifTrue:[ |
8914 method sourceFilename notNil ifTrue:[ |
8914 codeView contents:(resources |
8915 codeView contents:(resources |
8915 string:'** no sourcefile: %1 **' |
8916 string:'** no sourcefile: %1 **' |
8916 with:method sourceFilename). |
8917 with:method sourceFilename). |
8917 codeView flash:'no source'. |
8918 codeView realized ifTrue:[ |
|
8919 "codeView is not realized on initial startup" |
|
8920 codeView flash:'no source'. |
|
8921 ]. |
8918 codeSet := true. |
8922 codeSet := true. |
8919 ] ifFalse:[ |
8923 ] ifFalse:[ |
8920 [ |
8924 [ |
8921 |src| |
8925 |src| |
8922 |
8926 |
8975 ]. |
8979 ]. |
8976 ]. |
8980 ]. |
8977 ]. |
8981 ]. |
8978 ]. |
8982 ]. |
8979 codeView isCodeView2 ifTrue:[ |
8983 codeView isCodeView2 ifTrue:[ |
8980 codeView model setValue: code. |
8984 codeView model |
8981 codeView model changed. |
8985 setValue: code; |
|
8986 changed. |
8982 codeView methodHolder value: method. |
8987 codeView methodHolder value: method. |
8983 codeView classHolder value: ((method respondsTo: #mclass) ifTrue:[method mclass] ifFalse:[rec class]) |
8988 codeView classHolder value: ((method respondsTo: #mclass) ifTrue:[method mclass] ifFalse:[rec class]) |
8984 ] ifFalse:[ |
8989 ] ifFalse:[ |
8985 |
|
8986 UserPreferences current syntaxColoring ifTrue:[ |
8990 UserPreferences current syntaxColoring ifTrue:[ |
8987 implementorClass isNil ifTrue:[ |
8991 implementorClass isNil ifTrue:[ |
8988 (con isBlockContext |
8992 (con isBlockContext |
8989 and:[con home isNil |
8993 and:[con home isNil |
8990 and:[con guessedHome notNil]]) |
8994 and:[con guessedHome notNil]]) |
8993 ] |
8997 ] |
8994 ]. |
8998 ]. |
8995 implementorClass notNil ifTrue:[ |
8999 implementorClass notNil ifTrue:[ |
8996 (highlighter := implementorClass syntaxHighlighterClass) notNil ifTrue:[ |
9000 (highlighter := implementorClass syntaxHighlighterClass) notNil ifTrue:[ |
8997 code size < 100000 ifTrue:[ |
9001 code size < 100000 ifTrue:[ |
8998 Error handle:[:ex | |
9002 Error catch:[ |
8999 ] do:[ |
|
9000 code := highlighter formatMethodSource:code in:implementorClass. |
9003 code := highlighter formatMethodSource:code in:implementorClass. |
9001 ] |
9004 ] |
9002 ] |
9005 ] |
9003 ] |
9006 ] |
9004 ] |
9007 ] |
9459 ! ! |
9462 ! ! |
9460 |
9463 |
9461 !DebugView class methodsFor:'documentation'! |
9464 !DebugView class methodsFor:'documentation'! |
9462 |
9465 |
9463 version |
9466 version |
9464 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.673 2014-11-24 14:13:27 cg Exp $' |
9467 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.674 2014-12-04 10:03:25 stefan Exp $' |
9465 ! |
9468 ! |
9466 |
9469 |
9467 version_CVS |
9470 version_CVS |
9468 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.673 2014-11-24 14:13:27 cg Exp $' |
9471 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.674 2014-12-04 10:03:25 stefan Exp $' |
9469 ! |
9472 ! |
9470 |
9473 |
9471 version_SVN |
9474 version_SVN |
9472 ^ '$Id: DebugView.st,v 1.673 2014-11-24 14:13:27 cg Exp $' |
9475 ^ '$Id: DebugView.st,v 1.674 2014-12-04 10:03:25 stefan Exp $' |
9473 ! ! |
9476 ! ! |
9474 |
9477 |
9475 |
9478 |
9476 DebugView initialize! |
9479 DebugView initialize! |