equal
deleted
inserted
replaced
567 |
567 |
568 restart |
568 restart |
569 "restart after a snapin." |
569 "restart after a snapin." |
570 |
570 |
571 topViews notNil ifTrue:[ |
571 topViews notNil ifTrue:[ |
572 " |
572 " |
573 need a new semaphore, since obsolete processes |
573 need a new semaphore, since obsolete processes |
574 (from our previous live) may still sit on the current semaphore |
574 (from our previous live) may still sit on the current semaphore |
575 " |
575 " |
576 mySensor eventSemaphore:(Semaphore new name:'eventSema'). |
576 mySensor eventSemaphore:(Semaphore new name:'WGroup eventSema'). |
577 isModal ifFalse:[ |
577 isModal ifFalse:[ |
578 self startup:true |
578 self startup:true |
579 ] |
579 ] |
580 ] |
580 ] |
|
581 |
|
582 "Modified: 25.1.1997 / 00:20:25 / cg" |
581 ! |
583 ! |
582 |
584 |
583 shutDown |
585 shutDown |
584 "shutdown the window group; close all views and |
586 "shutdown the window group; close all views and |
585 terminate process" |
587 terminate process" |
1265 initialize |
1267 initialize |
1266 "setup the windowgroup, by creating a new sensor |
1268 "setup the windowgroup, by creating a new sensor |
1267 and an event semaphore" |
1269 and an event semaphore" |
1268 |
1270 |
1269 mySensor := WindowSensor new. |
1271 mySensor := WindowSensor new. |
1270 mySensor eventSemaphore:(Semaphore new name:'eventSema'). |
1272 mySensor eventSemaphore:(Semaphore new name:'WGroup eventSema'). |
1271 isModal := false. |
1273 isModal := false. |
1272 isForModalSubview := false. |
1274 isForModalSubview := false. |
|
1275 |
|
1276 "Modified: 25.1.1997 / 00:20:19 / cg" |
1273 ! |
1277 ! |
1274 |
1278 |
1275 reinitialize |
1279 reinitialize |
1276 "reinitialize the windowgroup after an image restart" |
1280 "reinitialize the windowgroup after an image restart" |
1277 |
1281 |
1461 ! ! |
1465 ! ! |
1462 |
1466 |
1463 !WindowGroup class methodsFor:'documentation'! |
1467 !WindowGroup class methodsFor:'documentation'! |
1464 |
1468 |
1465 version |
1469 version |
1466 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.98 1997-01-24 22:21:12 cg Exp $' |
1470 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.99 1997-01-24 23:20:57 cg Exp $' |
1467 ! ! |
1471 ! ! |
1468 WindowGroup initialize! |
1472 WindowGroup initialize! |