Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorclaus
Wed, 23 Nov 1994 00:12:17 +0100
changeset 55 abfd613f95d9
parent 54 2e7d241e8717
child 56 d0cb937cbcaa
*** empty log message ***
ConInspV.st file | annotate | diff | comparison | revisions
ContextInspectorView.st file | annotate | diff | comparison | revisions
DebugView.st file | annotate | diff | comparison | revisions 
--- a/ConInspV.st	Tue Nov 22 15:35:25 1994 +0100
+++ b/ConInspV.st	Wed Nov 23 00:12:17 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.5 1994-11-17 14:44:34 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.6 1994-11-22 23:12:15 claus Exp $
 '!
 
 !ContextInspectorView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.5 1994-11-17 14:44:34 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.6 1994-11-22 23:12:15 claus Exp $
 "
 !
 
@@ -107,7 +107,8 @@
 	rec := homeContext receiver.
 	sel := homeContext selector.
 
-	implementorClass := homeContext searchClass whichClassImplements:sel.
+"/        implementorClass := homeContext searchClass whichClassImplements:sel.
+	implementorClass := homeContext methodClass.
 	implementorClass notNil ifTrue:[
 	    method := implementorClass compiledMethodAt:sel.
 	    method isWrapped ifTrue:[
--- a/ContextInspectorView.st	Tue Nov 22 15:35:25 1994 +0100
+++ b/ContextInspectorView.st	Wed Nov 23 00:12:17 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.5 1994-11-17 14:44:34 claus Exp $
+$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.6 1994-11-22 23:12:15 claus Exp $
 '!
 
 !ContextInspectorView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.5 1994-11-17 14:44:34 claus Exp $
+$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.6 1994-11-22 23:12:15 claus Exp $
 "
 !
 
@@ -107,7 +107,8 @@
 	rec := homeContext receiver.
 	sel := homeContext selector.
 
-	implementorClass := homeContext searchClass whichClassImplements:sel.
+"/        implementorClass := homeContext searchClass whichClassImplements:sel.
+	implementorClass := homeContext methodClass.
 	implementorClass notNil ifTrue:[
 	    method := implementorClass compiledMethodAt:sel.
 	    method isWrapped ifTrue:[
--- a/DebugView.st	Tue Nov 22 15:35:25 1994 +0100
+++ b/DebugView.st	Wed Nov 23 00:12:17 1994 +0100
@@ -31,7 +31,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.18 1994-11-21 16:51:07 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.19 1994-11-22 23:12:17 claus Exp $
 '!
 
 !DebugView class methodsFor:'documentation'!
@@ -52,7 +52,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.18 1994-11-21 16:51:07 claus Exp $
+$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.19 1994-11-22 23:12:17 claus Exp $
 "
 !
 
@@ -1211,10 +1211,18 @@
 	    homeContext := con
 	].
 	contextInspector inspect:con.
-	homeContext notNil ifTrue:[
+	homeContext isNil ifTrue:[
+	    "
+	     mhmh - an optimized block
+	     should get the block here, and get the method from
+	     that one ...
+	    "
+	    self showError:'** sorry; cannot show code of optimized blocks (yet) **'
+	] ifFalse:[
 	    sel := homeContext selector.
 	    sel notNil ifTrue:[
-		implementorClass := homeContext searchClass whichClassImplements:sel.
+"/                implementorClass := homeContext searchClass whichClassImplements:sel.
+		implementorClass := homeContext methodClass.
 		implementorClass isNil ifTrue:[
 		    self showError:'** no method - no source **'
 		] ifFalse:[
@@ -1317,7 +1325,8 @@
      and compile.
     "
     sel := selectedContext selector.
-    implementorClass := selectedContext searchClass whichClassImplements:sel.
+"/    implementorClass := selectedContext searchClass whichClassImplements:sel.
+    implementorClass := selectedContext methodClass.
     method := implementorClass compiledMethodAt:sel.
     newMethod := implementorClass compiler compile:someCode
 					  forClass:implementorClass
@@ -1397,8 +1406,9 @@
 	^ self showError:'** select a context first **'
     ].
 
-    implementorClass := selectedContext searchClass 
-			    whichClassImplements:selectedContext selector.
+"/    implementorClass := selectedContext searchClass 
+"/                            whichClassImplements:selectedContext selector.
+    implementorClass := selectedContext methodClass. 
     implementorClass notNil ifTrue:[
 	method := implementorClass compiledMethodAt:selectedContext selector.
 	(method notNil and:[method isWrapped]) ifTrue:[
hg/stx-libtool