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.
fixed arg-name display of wrapped methods
authorClaus Gittinger <cg@exept.de>
Wed, 22 Jan 1997 02:25:31 +0100
changeset 976 95a817dc94a2
parent 975 41a41f54874d
child 977 0bd3800f9e4a
fixed arg-name display of wrapped methods
ConInspV.st file | annotate | diff | comparison | revisions
ContextInspectorView.st file | annotate | diff | comparison | revisions 
--- a/ConInspV.st	Tue Jan 21 22:29:34 1997 +0100
+++ b/ConInspV.st	Wed Jan 22 02:25:31 1997 +0100
@@ -159,11 +159,17 @@
                         "/ the methods source does not correctly reflect
                         "/ the number of args&vars in the context.
                         "/ either outDated, or somehow strange.
+                        "/ (happens with wrapped methods, which are not
+                        "/  what they look)
 
                         numVarsInSource > numVarsInContext ifTrue:[
                             homeNames := homeNames copyTo:numVarsInContext.
                         ] ifFalse:[
-                            homeNames := nil
+                            numVarsInContext >= homeContext numArgs ifTrue:[
+                                homeNames := homeNames copyTo:homeContext numArgs
+                            ] ifFalse:[
+                                homeNames := nil
+                            ]    
                         ]
                     ]
                 ]
@@ -274,7 +280,7 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:aContext.
 
-    "Modified: 12.1.1997 / 00:00:21 / cg"
+    "Modified: 22.1.1997 / 02:25:12 / cg"
 !
 
 release
@@ -438,5 +444,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.31 1997-01-11 23:00:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ConInspV.st,v 1.32 1997-01-22 01:25:31 cg Exp $'
 ! !
--- a/ContextInspectorView.st	Tue Jan 21 22:29:34 1997 +0100
+++ b/ContextInspectorView.st	Wed Jan 22 02:25:31 1997 +0100
@@ -159,11 +159,17 @@
                         "/ the methods source does not correctly reflect
                         "/ the number of args&vars in the context.
                         "/ either outDated, or somehow strange.
+                        "/ (happens with wrapped methods, which are not
+                        "/  what they look)
 
                         numVarsInSource > numVarsInContext ifTrue:[
                             homeNames := homeNames copyTo:numVarsInContext.
                         ] ifFalse:[
-                            homeNames := nil
+                            numVarsInContext >= homeContext numArgs ifTrue:[
+                                homeNames := homeNames copyTo:homeContext numArgs
+                            ] ifFalse:[
+                                homeNames := nil
+                            ]    
                         ]
                     ]
                 ]
@@ -274,7 +280,7 @@
     workspace contents:nil.
     self setDoitActionIn:workspace for:aContext.
 
-    "Modified: 12.1.1997 / 00:00:21 / cg"
+    "Modified: 22.1.1997 / 02:25:12 / cg"
 !
 
 release
@@ -438,5 +444,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.31 1997-01-11 23:00:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.32 1997-01-22 01:25:31 cg Exp $'
 ! !
hg/stx-libtool