class: DebugView
changed: #updateForContext:
do not flash unrealized codeView
--- a/DebugView.st Thu Dec 04 11:00:31 2014 +0100
+++ b/DebugView.st Thu Dec 04 11:03:25 2014 +0100
@@ -8909,12 +8909,16 @@
code := method source.
].
].
+
code isNil ifTrue:[
method sourceFilename notNil ifTrue:[
codeView contents:(resources
string:'** no sourcefile: %1 **'
with:method sourceFilename).
- codeView flash:'no source'.
+ codeView realized ifTrue:[
+ "codeView is not realized on initial startup"
+ codeView flash:'no source'.
+ ].
codeSet := true.
] ifFalse:[
[
@@ -8977,12 +8981,12 @@
].
].
codeView isCodeView2 ifTrue:[
- codeView model setValue: code.
- codeView model changed.
+ codeView model
+ setValue: code;
+ changed.
codeView methodHolder value: method.
codeView classHolder value: ((method respondsTo: #mclass) ifTrue:[method mclass] ifFalse:[rec class])
] ifFalse:[
-
UserPreferences current syntaxColoring ifTrue:[
implementorClass isNil ifTrue:[
(con isBlockContext
@@ -8995,8 +8999,7 @@
implementorClass notNil ifTrue:[
(highlighter := implementorClass syntaxHighlighterClass) notNil ifTrue:[
code size < 100000 ifTrue:[
- Error handle:[:ex |
- ] do:[
+ Error catch:[
code := highlighter formatMethodSource:code in:implementorClass.
]
]
@@ -9461,15 +9464,15 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.673 2014-11-24 14:13:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.674 2014-12-04 10:03:25 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.673 2014-11-24 14:13:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.674 2014-12-04 10:03:25 stefan Exp $'
!
version_SVN
- ^ '$Id: DebugView.st,v 1.673 2014-11-24 14:13:27 cg Exp $'
+ ^ '$Id: DebugView.st,v 1.674 2014-12-04 10:03:25 stefan Exp $'
! !