WindowGroup.st
changeset 4474 58a2e62065a6
parent 4413 139a64d7cb9a
child 4475 f94446a203a0
equal deleted inserted replaced
4473:db64c0d90778 4474:58a2e62065a6
  1274     |thisProcess sigs mainSema|
  1274     |thisProcess sigs mainSema|
  1275 
  1275 
  1276     thisProcess := Processor activeProcess.
  1276     thisProcess := Processor activeProcess.
  1277 
  1277 
  1278     sigs := SignalSet 
  1278     sigs := SignalSet 
  1279                 with:AbortAllOperationRequest 
  1279                 "/ with:AbortAllOperationRequest 
  1280                 with:LeaveSignal 
  1280                 with:LeaveSignal 
  1281                 with:(self class activityNotificationSignal).
  1281                 with:(self class activityNotificationSignal).
  1282 
  1282 
       
  1283     (isModal not or:[AbortAllOperationRequest isHandled not]) ifTrue:[
       
  1284         sigs add:AbortAllOperationRequest
       
  1285     ].
  1283     [
  1286     [
  1284         |p g s mainGroup mySema waitSema groupForSema|
  1287         |p g s mainGroup mySema waitSema groupForSema|
  1285 
  1288 
  1286         waitSema := mySema := mySensor eventSemaphore.
  1289         waitSema := mySema := mySensor eventSemaphore.
  1287 
  1290 
  2782 ! !
  2785 ! !
  2783 
  2786 
  2784 !WindowGroup class methodsFor:'documentation'!
  2787 !WindowGroup class methodsFor:'documentation'!
  2785 
  2788 
  2786 version
  2789 version
  2787     ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.277 2005-07-26 08:50:27 cg Exp $'
  2790     ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.278 2006-01-30 17:32:41 cg Exp $'
  2788 ! !
  2791 ! !
  2789 
  2792 
  2790 WindowGroup initialize!
  2793 WindowGroup initialize!