author | Claus Gittinger <cg@exept.de> |
Thu, 06 Jun 2019 23:22:16 +0200 | |
changeset 6600 | 9a4a44808e01 |
parent 6599 | c74062ad83c7 |
child 6601 | 4ccac038bf9b |
PopUpMenu.st | file | annotate | diff | comparison | revisions |
--- a/PopUpMenu.st Thu Jun 06 11:26:38 2019 +0200 +++ b/PopUpMenu.st Thu Jun 06 23:22:16 2019 +0200 @@ -400,12 +400,14 @@ |newMenu| aMenuView isView ifFalse:[ - self error:'bad argument' + ArgumentError raise ]. newMenu := self onSameDeviceAs:aMenuView. newMenu addSubView:aMenuView. newMenu menuView:aMenuView. ^ newMenu + + "Modified: / 06-06-2019 / 23:22:10 / Claus Gittinger" ! itemList:itemList resources:resources