author | Claus Gittinger <cg@exept.de> |
Sat, 27 Jul 2019 11:50:36 +0200 | |
changeset 8751 | 6abf61f58b6b |
parent 8750 | 56386a6939f6 |
child 8752 | 68ffb64eee84 |
SimpleView.st | file | annotate | diff | comparison | revisions |
--- a/SimpleView.st Fri Jul 26 10:07:34 2019 +0200 +++ b/SimpleView.st Sat Jul 27 11:50:36 2019 +0200 @@ -4190,6 +4190,15 @@ ^ self name ! +fullXPath + "return my full xPath to be used for resource-access" + + superView notNil ifTrue:[ + ^ superView fullXPath , '/' , self name + ]. + ^ self name +! + name "return my name component to be used for resource-access"