equal
deleted
inserted
replaced
3008 "Modified: / 5.10.1998 / 13:03:47 / cg" |
3008 "Modified: / 5.10.1998 / 13:03:47 / cg" |
3009 "Modified: / 26.7.1999 / 15:38:45 / stefan" |
3009 "Modified: / 26.7.1999 / 15:38:45 / stefan" |
3010 ! |
3010 ! |
3011 |
3011 |
3012 doDefine |
3012 doDefine |
3013 |sel| |
3013 |selectionIndex selector proto| |
3014 |
3014 |
3015 sel := contextView selection. |
3015 selectionIndex := contextView selection. |
|
3016 |
|
3017 selector := proto := actualContext selector. |
|
3018 selector numArgs > 0 ifTrue:[ |
|
3019 selector isKeyword ifTrue:[ |
|
3020 proto := String streamContents:[:stream | |
|
3021 selector keywords |
|
3022 keysAndValuesDo:[:idx :part | stream nextPutAll:(part , 'arg' , idx printString , ' ')]. |
|
3023 ]. |
|
3024 ] ifFalse:[ |
|
3025 proto := selector , ' arg' |
|
3026 ] |
|
3027 ]. |
3016 |
3028 |
3017 self |
3029 self |
3018 codeAccept:('%1\ self halt:''%1 is not yet implemented''.' bindWith:actualContext selector) withCRs |
3030 codeAccept:('%1\ self halt:''%2 is not yet implemented''.' bindWith:proto with:selector) withCRs |
3019 unwind:false. |
3031 unwind:false. |
3020 |
3032 |
3021 self doShowSelection:sel. |
3033 self doShowSelection:selectionIndex. |
3022 self doRestart |
3034 self doRestart |
3023 ! |
3035 ! |
3024 |
3036 |
3025 doIgnoreBreakpoints |
3037 doIgnoreBreakpoints |
3026 ignoreBreakpoints := true. |
3038 ignoreBreakpoints := true. |
4981 ! ! |
4993 ! ! |
4982 |
4994 |
4983 !DebugView class methodsFor:'documentation'! |
4995 !DebugView class methodsFor:'documentation'! |
4984 |
4996 |
4985 version |
4997 version |
4986 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.284 2001-10-08 14:16:22 cg Exp $' |
4998 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.285 2001-10-08 15:18:59 cg Exp $' |
4987 ! ! |
4999 ! ! |
4988 DebugView initialize! |
5000 DebugView initialize! |