equal
deleted
inserted
replaced
5791 string:'** no sourcefile: %1 **' |
5791 string:'** no sourcefile: %1 **' |
5792 with:method sourceFilename). |
5792 with:method sourceFilename). |
5793 codeView flash. |
5793 codeView flash. |
5794 codeSet := true. |
5794 codeSet := true. |
5795 ] ifFalse:[ |
5795 ] ifFalse:[ |
5796 errMsg := '** no source **' |
5796 [ |
|
5797 |src| |
|
5798 |
|
5799 src := String streamContents:[:s | Decompiler decompile:method to:s]. |
|
5800 codeView contents:src. |
|
5801 codeSet := true. |
|
5802 ] on: Error do:[ |
|
5803 errMsg := '** no source **' |
|
5804 ]. |
5797 ] |
5805 ] |
5798 ] |
5806 ] |
5799 ] ifFalse:[ |
5807 ] ifFalse:[ |
5800 homeContext isNil ifTrue:[ |
5808 homeContext isNil ifTrue:[ |
5801 errMsg := '** sorry; cannot show code of all optimized blocks (yet) **'. |
5809 errMsg := '** sorry; cannot show code of all optimized blocks (yet) **'. |
5946 " |
5954 " |
5947 enable/disable some menu items |
5955 enable/disable some menu items |
5948 " |
5956 " |
5949 self updateMenuItems |
5957 self updateMenuItems |
5950 |
5958 |
5951 "Created: / 14.8.1997 / 20:15:00 / cg" |
5959 "Created: / 14-08-1997 / 20:15:00 / cg" |
5952 "Modified: / 18.11.2001 / 00:15:32 / cg" |
5960 "Modified: / 06-08-2006 / 15:33:35 / cg" |
5953 ! |
5961 ! |
5954 |
5962 |
5955 updateMenuItems |
5963 updateMenuItems |
5956 |m mthd cls mCls rCls| |
5964 |m mthd cls mCls rCls| |
5957 |
5965 |
6001 ! ! |
6009 ! ! |
6002 |
6010 |
6003 !DebugView class methodsFor:'documentation'! |
6011 !DebugView class methodsFor:'documentation'! |
6004 |
6012 |
6005 version |
6013 version |
6006 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.399 2006-07-07 12:51:42 cg Exp $' |
6014 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.400 2006-08-07 11:03:23 cg Exp $' |
6007 ! ! |
6015 ! ! |
6008 |
6016 |
6009 DebugView initialize! |
6017 DebugView initialize! |