equal
deleted
inserted
replaced
979 |
979 |
980 path |
980 path |
981 <resource: #uiAspect> |
981 <resource: #uiAspect> |
982 |
982 |
983 path isNil ifTrue:[ |
983 path isNil ifTrue:[ |
984 path := PluggableAdaptor on: self model getter:[ :model | model path ] |
984 path := PluggableAdaptor |
|
985 on: self model |
|
986 getter:[ :model | model path ] |
|
987 setter:[ :model :newValue | ] |
985 ]. |
988 ]. |
986 ^ path. |
989 ^ path. |
987 |
990 |
988 "Modified: / 19-05-2014 / 18:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
991 "Modified: / 19-05-2014 / 18:40:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
989 ! |
992 ! |
3147 view := view superView. |
3150 view := view superView. |
3148 ]. |
3151 ]. |
3149 views removeLast. |
3152 views removeLast. |
3150 ^ String streamContents:[ :s| |
3153 ^ String streamContents:[ :s| |
3151 views reverseDo:[:each | |
3154 views reverseDo:[:each | |
3152 s nextPutAll:' / '. |
3155 s nextPutAll:'/'. |
3153 s nextPutAll: each name asString storeString. |
3156 s nextPutAll: each name asString "storeString". |
3154 ]. |
3157 ]. |
3155 ] |
3158 ] |
3156 |
3159 |
3157 "Created: / 19-05-2014 / 18:15:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3160 "Created: / 19-05-2014 / 18:15:53 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3158 ! |
3161 ! |