--- a/ApplicationModel.st Mon Feb 14 17:24:42 2011 +0100
+++ b/ApplicationModel.st Mon Feb 28 17:57:20 2011 +0100
@@ -3188,7 +3188,7 @@
closeDownViews
"close down the applications view(s)"
- |wg wgProcess|
+ |wg wgProcess window|
self release.
ActiveHelp stopFor:self.
@@ -3202,10 +3202,12 @@
wg closeDownViews.
]
] ifFalse:[
- self window destroy.
+ (window := self window) notNil ifTrue:[
+ window destroy.
+ ]
].
- "Modified: / 10-02-2011 / 21:43:05 / cg"
+ "Modified: / 28-02-2011 / 17:57:12 / cg"
!
closeRequest
@@ -3765,11 +3767,11 @@
!ApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.311 2011-02-10 21:08:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.312 2011-02-28 16:57:20 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.311 2011-02-10 21:08:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.312 2011-02-28 16:57:20 cg Exp $'
! !
ApplicationModel initialize!