equal
deleted
inserted
replaced
398 (such as hideSubmenu, deselectWithoutRedraw etc.)" |
398 (such as hideSubmenu, deselectWithoutRedraw etc.)" |
399 |
399 |
400 |newMenu| |
400 |newMenu| |
401 |
401 |
402 aMenuView isView ifFalse:[ |
402 aMenuView isView ifFalse:[ |
403 self error:'bad argument' |
403 ArgumentError raise |
404 ]. |
404 ]. |
405 newMenu := self onSameDeviceAs:aMenuView. |
405 newMenu := self onSameDeviceAs:aMenuView. |
406 newMenu addSubView:aMenuView. |
406 newMenu addSubView:aMenuView. |
407 newMenu menuView:aMenuView. |
407 newMenu menuView:aMenuView. |
408 ^ newMenu |
408 ^ newMenu |
|
409 |
|
410 "Modified: / 06-06-2019 / 23:22:10 / Claus Gittinger" |
409 ! |
411 ! |
410 |
412 |
411 itemList:itemList resources:resources |
413 itemList:itemList resources:resources |
412 "like labels:selectors:... messages, but expects a single collection, |
414 "like labels:selectors:... messages, but expects a single collection, |
413 containing items row-wise (i.e. elements are themself arrays, consisting of |
415 containing items row-wise (i.e. elements are themself arrays, consisting of |