equal
deleted
inserted
replaced
3947 |
3947 |
3948 openAboutThisApplication |
3948 openAboutThisApplication |
3949 "opens an about box for this application." |
3949 "opens an about box for this application." |
3950 |
3950 |
3951 DialogBox aboutClass:self class. |
3951 DialogBox aboutClass:self class. |
3952 "/ |rev myClass clsRev msg| |
|
3953 "/ |
|
3954 "/ rev := ''. |
|
3955 "/ myClass := self class. |
|
3956 "/ |
|
3957 "/ (clsRev := myClass revision) notNil ifTrue: [rev := ' (rev: ', clsRev printString, ')']. |
|
3958 "/ |
|
3959 "/ msg := '\' withCRs , myClass name asBoldText, rev. |
|
3960 "/ |
|
3961 "/ Dialog |
|
3962 "/ about:(resources string:msg) |
|
3963 "/ label:(resources string:'About DebugView') |
|
3964 "/ icon:self class defaultIcon |
|
3965 "/ |
|
3966 "/ "Created: / 17.11.2001 / 23:08:22 / cg" |
|
3967 ! |
3952 ! |
3968 |
3953 |
3969 quickTerminate |
3954 quickTerminate |
3970 "quick terminate - the process will get no chance for cleanup actions" |
3955 "quick terminate - the process will get no chance for cleanup actions" |
3971 |
3956 |
5872 codeView setContents:code. |
5857 codeView setContents:code. |
5873 "/ ]. |
5858 "/ ]. |
5874 (lineNrInMethod notNil |
5859 (lineNrInMethod notNil |
5875 and:[lineNrInMethod ~~ 0 |
5860 and:[lineNrInMethod ~~ 0 |
5876 and:[lineNrInMethod <= codeView list size]]) ifTrue:[ |
5861 and:[lineNrInMethod <= codeView list size]]) ifTrue:[ |
|
5862 lineNrInMethod == 255 ifFalse:[ |
5877 (lineNrInMethod == 255 |
5863 (lineNrInMethod == 255 |
5878 and:[method notNil |
5864 and:[method notNil |
5879 and:[method hasCode not]]) ifTrue:[ |
5865 and:[method hasCode not]]) ifTrue:[ |
5880 "/ means: do not really know in interpreted methods |
5866 "/ means: do not really know in interpreted methods |
5881 codeView selectFromLine:255 col:1 toLine:codeView list size + 1 col:0. |
5867 codeView selectFromLine:255 col:1 toLine:codeView list size + 1 col:0. |
5882 ] ifFalse:[ |
5868 ] ifFalse:[ |
5883 codeView selectLine:lineNrInMethod. |
5869 codeView selectLine:lineNrInMethod. |
5884 ]. |
5870 ]. |
5885 codeView makeSelectionVisible |
5871 codeView makeSelectionVisible |
|
5872 ]. |
5886 ] ifFalse:[ |
5873 ] ifFalse:[ |
5887 codeView unselect. |
5874 codeView unselect. |
5888 codeView scrollToTop |
5875 codeView scrollToTop |
5889 ] |
5876 ] |
5890 ]. |
5877 ]. |
6009 ! ! |
5996 ! ! |
6010 |
5997 |
6011 !DebugView class methodsFor:'documentation'! |
5998 !DebugView class methodsFor:'documentation'! |
6012 |
5999 |
6013 version |
6000 version |
6014 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.401 2006-08-24 09:24:51 cg Exp $' |
6001 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.402 2006-08-26 10:56:31 cg Exp $' |
6015 ! ! |
6002 ! ! |
6016 |
6003 |
6017 DebugView initialize! |
6004 DebugView initialize! |