# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1559856136 -7200
# Node ID 9a4a44808e01ceafb901193b37e248dc1a60c24e
# Parent  c74062ad83c76596d5c6c17417c72590c3047879
#REFACTORING by cg
class: PopUpMenu class
changed: #forMenu:

diff -r c74062ad83c7 -r 9a4a44808e01 PopUpMenu.st
--- 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