equal
deleted
inserted
replaced
4207 self clearModifiedFlag. |
4207 self clearModifiedFlag. |
4208 self updateChannels. |
4208 self updateChannels. |
4209 ! |
4209 ! |
4210 |
4210 |
4211 updateSlicesForSpec:spec andView:view |
4211 updateSlicesForSpec:spec andView:view |
|
4212 "fetch slices-info from the spec; add help and geometry slices manually" |
|
4213 |
4212 |slices "size" list tabComponent| |
4214 |slices "size" list tabComponent| |
4213 |
4215 |
4214 tabComponent := self componentAt:#noteBook. |
4216 tabComponent := self componentAt:#noteBook. |
4215 |
4217 |
4216 spec notNil ifTrue:[ |
4218 spec notNil ifTrue:[ |
4220 list := slices collect:[:eachSlice | eachSlice first asString]. |
4222 list := slices collect:[:eachSlice | eachSlice first asString]. |
4221 self treeView isCanvasSelected ifFalse:[ |
4223 self treeView isCanvasSelected ifFalse:[ |
4222 list := list copyWith:(UIHelpTool label) |
4224 list := list copyWith:(UIHelpTool label) |
4223 ]. |
4225 ]. |
4224 view notNil ifTrue:[ |
4226 view notNil ifTrue:[ |
4225 spec hasLayout ifTrue:[ |
4227 "/ for now, keep it as an empty slice; |
|
4228 "/ better when toggling as we do not loos the 'geometry' selection. |
|
4229 "/ slices notebook should remember the last 'explicit' selected tab. |
|
4230 true "spec hasLayout" ifTrue:[ |
4226 list := list copyWith:UILayoutTool label. |
4231 list := list copyWith:UILayoutTool label. |
4227 ] |
4232 ] |
4228 ]. |
4233 ]. |
4229 |
4234 |
4230 "/ size := slices size. |
4235 "/ size := slices size. |