equal
deleted
inserted
replaced
628 ]. |
628 ]. |
629 |
629 |
630 device realizedTopViewHookFor:self |
630 device realizedTopViewHookFor:self |
631 ! |
631 ! |
632 |
632 |
|
633 realize |
|
634 self isMarkedAsUnmappedModalBox ifTrue:[ |
|
635 "/ must clear this flag |
|
636 "/ - otherwise realize thinks it is already realized. |
|
637 realized := false. |
|
638 self unmarkAsUnmappedModalBox. |
|
639 ]. |
|
640 super realize. |
|
641 ! |
|
642 |
633 release |
643 release |
634 keyboardProcessor notNil ifTrue:[ |
644 keyboardProcessor notNil ifTrue:[ |
635 keyboardProcessor release. |
645 keyboardProcessor release. |
636 keyboardProcessor := nil. |
646 keyboardProcessor := nil. |
637 ]. |
647 ]. |
1186 |r| |
1196 |r| |
1187 |
1197 |
1188 (windowGroup notNil and:[windowGroup isModal]) ifTrue:[ |
1198 (windowGroup notNil and:[windowGroup isModal]) ifTrue:[ |
1189 "keep the realized flag true (to avoid exiting the modal event loop). |
1199 "keep the realized flag true (to avoid exiting the modal event loop). |
1190 Consider this a kludge." |
1200 Consider this a kludge." |
|
1201 self markAsUnmappedModalBox. |
1191 r := realized. |
1202 r := realized. |
1192 super unmapped. |
|
1193 realized := r. |
|
1194 ] ifFalse:[ |
1203 ] ifFalse:[ |
1195 realized := false. |
1204 self unmarkAsUnmappedModalBox. |
1196 super unmapped. |
1205 r := realized := false. |
1197 ]. |
1206 ]. |
|
1207 super unmapped. |
|
1208 realized := r. |
1198 |
1209 |
1199 "/ |
1210 "/ |
1200 "/ unmap slaves and partners |
1211 "/ unmap slaves and partners |
1201 "/ |
1212 "/ |
1202 self masterSlaveMessage:#unmap inGroup:windowGroup |
1213 self masterSlaveMessage:#unmap inGroup:windowGroup |
1205 ! ! |
1216 ! ! |
1206 |
1217 |
1207 !TopView class methodsFor:'documentation'! |
1218 !TopView class methodsFor:'documentation'! |
1208 |
1219 |
1209 version |
1220 version |
1210 ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.106 2005-03-11 11:02:33 penk Exp $' |
1221 ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.107 2005-07-19 14:10:11 cg Exp $' |
1211 ! ! |
1222 ! ! |
1212 |
1223 |
1213 TopView initialize! |
1224 TopView initialize! |