--- a/ApplicationModel.st Sun Jan 19 17:31:15 2020 +0100
+++ b/ApplicationModel.st Sun Jan 19 17:32:41 2020 +0100
@@ -4176,6 +4176,10 @@
ctrlDown
"answer true if the control key is currently pressed"
+ "/ cg: the following code breaks with menu-panels / popup menus,
+ "/ where the activeGroup seems to be different/nil temporarily,
+ "/ leading to isVisible to return true although it should not,
+ "/ leading to an item being not drawn (although the space for it was reserved initially)
"/ |activeGroup|
"/
"/ (activeGroup := WindowGroup activeGroup) isNil ifTrue:[