class: Tools::ViewTreeInspectorApplication
authorClaus Gittinger <cg@exept.de>
Thu, 29 May 2014 11:50:18 +0200
changeset 31235bdc0a26498c
parent 3122 8b3c2b6d3fb2
child 3124 1973e28a2c75
class: Tools::ViewTreeInspectorApplication
changed: #path
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Fri May 23 11:37:27 2014 +0200
     1.2 +++ b/Tools__ViewTreeApplication.st	Thu May 29 11:50:18 2014 +0200
     1.3 @@ -981,7 +981,10 @@
     1.4      <resource: #uiAspect>
     1.5  
     1.6      path isNil ifTrue:[
     1.7 -        path := PluggableAdaptor on: self model getter:[ :model | model path ]
     1.8 +        path := PluggableAdaptor 
     1.9 +                    on: self model 
    1.10 +                    getter:[ :model | model path ]
    1.11 +                    setter:[ :model :newValue |  ]
    1.12      ].
    1.13      ^ path.
    1.14  
    1.15 @@ -3149,8 +3152,8 @@
    1.16      views removeLast.
    1.17      ^ String streamContents:[ :s|
    1.18          views reverseDo:[:each |
    1.19 -            s nextPutAll:' / '.
    1.20 -            s nextPutAll: each name asString storeString.
    1.21 +            s nextPutAll:'/'.
    1.22 +            s nextPutAll: each name asString "storeString".
    1.23          ].
    1.24      ]
    1.25