DebugView.st
changeset 14989 7e0c70b5690a
parent 14902 8839c1bf35fb
child 14993 98d89f9a4b54
--- 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 $'
 ! !