equal
deleted
inserted
replaced
3199 and:[wgProcess notNil]) ifTrue:[ |
3199 and:[wgProcess notNil]) ifTrue:[ |
3200 wgProcess terminate |
3200 wgProcess terminate |
3201 ] ifFalse:[ |
3201 ] ifFalse:[ |
3202 wg closeDownViews. |
3202 wg closeDownViews. |
3203 ] |
3203 ] |
3204 ] |
3204 ] ifFalse:[ |
|
3205 self window destroy. |
|
3206 ]. |
|
3207 |
|
3208 "Modified: / 10-02-2011 / 21:43:05 / cg" |
3205 ! |
3209 ! |
3206 |
3210 |
3207 closeRequest |
3211 closeRequest |
3208 "this is sent by my topView when about to be closed by the windowManager. |
3212 "this is sent by my topView when about to be closed by the windowManager. |
3209 Could be redefined in subclasses to suppress close or confirm." |
3213 Could be redefined in subclasses to suppress close or confirm." |
3759 ! ! |
3763 ! ! |
3760 |
3764 |
3761 !ApplicationModel class methodsFor:'documentation'! |
3765 !ApplicationModel class methodsFor:'documentation'! |
3762 |
3766 |
3763 version |
3767 version |
3764 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.310 2010-10-01 12:44:54 stefan Exp $' |
3768 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.311 2011-02-10 21:08:29 cg Exp $' |
3765 ! |
3769 ! |
3766 |
3770 |
3767 version_CVS |
3771 version_CVS |
3768 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.310 2010-10-01 12:44:54 stefan Exp $' |
3772 ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.311 2011-02-10 21:08:29 cg Exp $' |
3769 ! ! |
3773 ! ! |
3770 |
3774 |
3771 ApplicationModel initialize! |
3775 ApplicationModel initialize! |