ApplicationModel.st
changeset 4268 8a9c9976bce1
parent 4265 664b7b5c72b2
child 4270 94a8a3dbe5a6
equal deleted inserted replaced
4267:1f0095bf4d74 4268:8a9c9976bce1
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1995 by Claus Gittinger
     2  COPYRIGHT (c) 1995 by Claus Gittinger
     5               All Rights Reserved
     3               All Rights Reserved
     6 
     4 
     7  This software is furnished under a license and may be used
     5  This software is furnished under a license and may be used
  2182     self components:aSymbolOrArray do:[:comp | comp readOnly:false]
  2180     self components:aSymbolOrArray do:[:comp | comp readOnly:false]
  2183 
  2181 
  2184     "Created: 14.2.1997 / 17:36:17 / cg"
  2182     "Created: 14.2.1997 / 17:36:17 / cg"
  2185 ! !
  2183 ! !
  2186 
  2184 
  2187 !ApplicationModel methodsFor:'copying'!
  2185 !ApplicationModel methodsFor:'copying-private'!
  2188 
  2186 
  2189 postCopy
  2187 postCopy
  2190     builder := device := nil.
  2188     builder := device := nil.
  2191 
  2189 
  2192     "Created: / 19.4.1998 / 11:44:44 / cg"
  2190     "Created: / 19.4.1998 / 11:44:44 / cg"
  2919     "Modified (comment): / 07-07-2011 / 17:16:46 / cg"
  2917     "Modified (comment): / 07-07-2011 / 17:16:46 / cg"
  2920     "Modified (comment): / 22-05-2018 / 18:42:11 / Claus Gittinger"
  2918     "Modified (comment): / 22-05-2018 / 18:42:11 / Claus Gittinger"
  2921 !
  2919 !
  2922 
  2920 
  2923 postOpenDialogWith:aBuilder
  2921 postOpenDialogWith:aBuilder
  2924     "this is sent after the applicationÄs window is opened as a dialog with me
  2922     "this is sent after the applicationÄs window is opened as a dialog with me
  2925      as a source (for aspects) i.e. via openDialogInterface:.
  2923      as a source (for aspects) i.e. via openDialogInterface:.
  2926      Can be redefined in subclasses for actions after opening a dialog view."
  2924      Can be redefined in subclasses for actions after opening a dialog view."
  2927 
  2925 
  2928     self commonPostOpen
  2926     self commonPostOpen
  2929 
  2927