--- a/JavaContext.st	Thu May 07 17:33:57 1998 +0000
+++ b/JavaContext.st	Thu May 07 17:36:06 1998 +0000
@@ -317,8 +317,29 @@
 
 ! !
 
+!JavaContext methodsFor:'queries'!
+
+hasStackToShow
+    "private interface to the debugger.
+     Smalltalk contexts return false here - other language frames
+     (i.e. Java frames) may want to show the evaluation stack"
+
+    ^ true
+
+    "Modified: / 13.5.1997 / 16:31:12 / cg"
+    "Created: / 7.5.1998 / 01:23:57 / cg"
+!
+
+stackFrame
+    "private interface to the debugger."
+
+    ^ (1 to:self size) collect:[:i | self at:i]
+
+    "Created: / 7.5.1998 / 01:26:19 / cg"
+! !
+
 !JavaContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaContext.st,v 1.21 1998/01/17 14:44:38 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaContext.st,v 1.22 1998/05/07 17:36:06 cg Exp $'
 ! !