SCClassLibrary/Platform/osx/scide_scapp/extOSXPlatform.sc

   1 + OSXPlatform {
   2         escapeWindow {
   3                 var currentAppModal, currentFullScreen;
   4                 currentAppModal = SCModalWindow.current;
   5                 currentAppModal.notNil.if({
   6                         currentAppModal.close;
   7                         "An instance of SCModalWindow was aborted".warn;
   8                 });
   9                 GUI.window.allWindows.do({|window|
  10                         window.isKindOf(SCModalSheet).if({
  11                                 window.close;
  12                                 "An instance of SCModalSheet was aborted".warn;
  13                         });
  14
  15                 });
  16                 currentFullScreen = SCWindow.currentFullScreen;
  17                 currentFullScreen.notNil.if({currentFullScreen.endFullScreen; currentFullScreen.close});
  18         }
  19
  20         exitFullScreen {
  21                 var currentFullScreen;
  22                 currentFullScreen = SCWindow.currentFullScreen;
  23                 currentFullScreen.notNil.if({currentFullScreen.endFullScreen;});
  24         }
  25 }