ApplicationModel.st
changeset 2893 c003538ed1f1
parent 2890 e7ac796279d7
child 2895 b7abc3d3321f
equal deleted inserted replaced
2892:3da4b1884487 2893:c003538ed1f1
  3186 !
  3186 !
  3187 
  3187 
  3188 closeDownViews
  3188 closeDownViews
  3189     "close down the applications view(s)"
  3189     "close down the applications view(s)"
  3190 
  3190 
  3191     |wg wgProcess|
  3191     |wg wgProcess window|
  3192 
  3192 
  3193     self release.
  3193     self release.
  3194     ActiveHelp stopFor:self.
  3194     ActiveHelp stopFor:self.
  3195 
  3195 
  3196     (wg := self windowGroup) notNil ifTrue:[
  3196     (wg := self windowGroup) notNil ifTrue:[
  3200             wgProcess terminate
  3200             wgProcess terminate
  3201         ] ifFalse:[
  3201         ] ifFalse:[
  3202             wg closeDownViews.
  3202             wg closeDownViews.
  3203         ]
  3203         ]
  3204     ] ifFalse:[
  3204     ] ifFalse:[
  3205         self window destroy.
  3205         (window := self window) notNil ifTrue:[
  3206     ].
  3206             window destroy.
  3207 
  3207         ]
  3208     "Modified: / 10-02-2011 / 21:43:05 / cg"
  3208     ].
       
  3209 
       
  3210     "Modified: / 28-02-2011 / 17:57:12 / cg"
  3209 !
  3211 !
  3210 
  3212 
  3211 closeRequest
  3213 closeRequest
  3212     "this is sent by my topView when about to be closed by the windowManager.
  3214     "this is sent by my topView when about to be closed by the windowManager.
  3213      Could be redefined in subclasses to suppress close or confirm."
  3215      Could be redefined in subclasses to suppress close or confirm."
  3763 ! !
  3765 ! !
  3764 
  3766 
  3765 !ApplicationModel class methodsFor:'documentation'!
  3767 !ApplicationModel class methodsFor:'documentation'!
  3766 
  3768 
  3767 version
  3769 version
  3768     ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.311 2011-02-10 21:08:29 cg Exp $'
  3770     ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.312 2011-02-28 16:57:20 cg Exp $'
  3769 !
  3771 !
  3770 
  3772 
  3771 version_CVS
  3773 version_CVS
  3772     ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.311 2011-02-10 21:08:29 cg Exp $'
  3774     ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.312 2011-02-28 16:57:20 cg Exp $'
  3773 ! !
  3775 ! !
  3774 
  3776 
  3775 ApplicationModel initialize!
  3777 ApplicationModel initialize!