--- a/WindowGroup.st Fri Mar 16 12:32:23 2018 +0100
+++ b/WindowGroup.st Tue Mar 20 12:02:05 2018 +0100
@@ -1644,7 +1644,7 @@
<resource: #keyboard (#Escape )>
- |event busyHookBlock busyHookCalled|
+ |event busyHookBlock busyHookCalled modalGroupTopViews|
self processExposeEvents.
@@ -1664,7 +1664,10 @@
"/ an incoming event for a masterView,
"/ while being blocked by some other modalView.
- modalTop := modalGroup topViews firstOrNil.
+ modalGroupTopViews := modalGroup topViews.
+ modalGroupTopViews notNil ifTrue:[
+ modalTop := modalGroupTopViews firstOrNil.
+ ].
event isKeyEvent ifTrue:[
"/ forward keyboard events to my modal