equal
deleted
inserted
replaced
978 previousGroup notNil ifTrue:[ |
978 previousGroup notNil ifTrue:[ |
979 prevFocus := previousGroup focusView. |
979 prevFocus := previousGroup focusView. |
980 ]. |
980 ]. |
981 ]. |
981 ]. |
982 |
982 |
983 WindowGroupQuerySignal handle:[:ex | |
983 WindowGroupQuerySignal answer:self do:[ |
984 ex proceedWith:self |
|
985 ] do:[ |
|
986 LastActiveGroup := nil. |
984 LastActiveGroup := nil. |
987 |
985 |
988 self realizeTopViews. |
986 self realizeTopViews. |
989 |
987 |
990 self |
988 self |
1075 "/ this is the windowGroup process; |
1073 "/ this is the windowGroup process; |
1076 "/ realize all views, then handle events forever |
1074 "/ realize all views, then handle events forever |
1077 "/ (well, not really forever ... ;-) |
1075 "/ (well, not really forever ... ;-) |
1078 |
1076 |
1079 myProcess := [ |
1077 myProcess := [ |
1080 WindowGroupQuerySignal handle:[:ex | |
1078 WindowGroupQuerySignal answer:self do:[ |
1081 ex proceedWith:self |
|
1082 ] do:[ |
|
1083 LastActiveGroup := nil. |
1079 LastActiveGroup := nil. |
1084 [ |
1080 [ |
1085 startupAction value. |
1081 startupAction value. |
1086 self eventLoopWhile:[true] onLeave:[] |
1082 self eventLoopWhile:[true] onLeave:[] |
1087 ] ensure:[ |
1083 ] ensure:[ |
2763 ! ! |
2759 ! ! |
2764 |
2760 |
2765 !WindowGroup class methodsFor:'documentation'! |
2761 !WindowGroup class methodsFor:'documentation'! |
2766 |
2762 |
2767 version |
2763 version |
2768 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.270 2005-01-11 17:05:04 stefan Exp $' |
2764 ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.271 2005-01-25 08:00:35 stefan Exp $' |
2769 ! ! |
2765 ! ! |
2770 |
2766 |
2771 WindowGroup initialize! |
2767 WindowGroup initialize! |