equal
deleted
inserted
replaced
3686 canAccept := false. |
3686 canAccept := false. |
3687 codeSet ifFalse:[ |
3687 codeSet ifFalse:[ |
3688 codeView contents:nil. |
3688 codeView contents:nil. |
3689 ] |
3689 ] |
3690 ] ifFalse:[ |
3690 ] ifFalse:[ |
|
3691 UserPreferences current syntaxColoring ifTrue:[ |
|
3692 code := SyntaxHighlighter formatMethod:code in:implementorClass. |
|
3693 ]. |
|
3694 |
3691 code ~= (codeView contents) ifTrue:[codeView contents:code]. |
3695 code ~= (codeView contents) ifTrue:[codeView contents:code]. |
3692 |
3696 |
3693 (lineNrInMethod notNil and:[lineNrInMethod ~~ 0]) ifTrue:[ |
3697 (lineNrInMethod notNil and:[lineNrInMethod ~~ 0]) ifTrue:[ |
3694 "/ lineNrInMethod > codeView list size ifTrue:[ |
3698 "/ lineNrInMethod > codeView list size ifTrue:[ |
3695 "/ lineNrInMethod := codeView list size + 1 |
3699 "/ lineNrInMethod := codeView list size + 1 |
3780 m disableAll:#(browse browseClass browseClassHierarchy browseFullClassProtocol). |
3784 m disableAll:#(browse browseClass browseClassHierarchy browseFullClassProtocol). |
3781 ]. |
3785 ]. |
3782 ] |
3786 ] |
3783 |
3787 |
3784 "Created: / 14.8.1997 / 20:15:00 / cg" |
3788 "Created: / 14.8.1997 / 20:15:00 / cg" |
3785 "Modified: / 19.1.1998 / 18:00:10 / cg" |
3789 "Modified: / 17.4.1998 / 20:59:39 / cg" |
3786 ! ! |
3790 ! ! |
3787 |
3791 |
3788 !DebugView class methodsFor:'documentation'! |
3792 !DebugView class methodsFor:'documentation'! |
3789 |
3793 |
3790 version |
3794 version |
3791 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.194 1998-04-07 13:11:37 cg Exp $' |
3795 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.195 1998-04-17 19:00:31 cg Exp $' |
3792 ! ! |
3796 ! ! |
3793 DebugView initialize! |
3797 DebugView initialize! |