--- a/DebugView.st Mon Oct 08 16:16:22 2001 +0200
+++ b/DebugView.st Mon Oct 08 17:18:59 2001 +0200
@@ -3010,15 +3010,27 @@
!
doDefine
- |sel|
-
- sel := contextView selection.
+ |selectionIndex selector proto|
+
+ selectionIndex := contextView selection.
+
+ selector := proto := actualContext selector.
+ selector numArgs > 0 ifTrue:[
+ selector isKeyword ifTrue:[
+ proto := String streamContents:[:stream |
+ selector keywords
+ keysAndValuesDo:[:idx :part | stream nextPutAll:(part , 'arg' , idx printString , ' ')].
+ ].
+ ] ifFalse:[
+ proto := selector , ' arg'
+ ]
+ ].
self
- codeAccept:('%1\ self halt:''%1 is not yet implemented''.' bindWith:actualContext selector) withCRs
+ codeAccept:('%1\ self halt:''%2 is not yet implemented''.' bindWith:proto with:selector) withCRs
unwind:false.
- self doShowSelection:sel.
+ self doShowSelection:selectionIndex.
self doRestart
!
@@ -4983,6 +4995,6 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.284 2001-10-08 14:16:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.285 2001-10-08 15:18:59 cg Exp $'
! !
DebugView initialize!