--- a/Tools__ViewTreeApplication.st Fri May 23 11:37:27 2014 +0200
+++ b/Tools__ViewTreeApplication.st Thu May 29 11:50:18 2014 +0200
@@ -981,7 +981,10 @@
<resource: #uiAspect>
path isNil ifTrue:[
- path := PluggableAdaptor on: self model getter:[ :model | model path ]
+ path := PluggableAdaptor
+ on: self model
+ getter:[ :model | model path ]
+ setter:[ :model :newValue | ]
].
^ path.
@@ -3149,8 +3152,8 @@
views removeLast.
^ String streamContents:[ :s|
views reverseDo:[:each |
- s nextPutAll:' / '.
- s nextPutAll: each name asString storeString.
+ s nextPutAll:'/'.
+ s nextPutAll: each name asString "storeString".
].
]