ProjectDefinition.st
changeset 12353 01416e7f9c92
parent 12349 6493b6124da3
child 12356 aee4cd836117
equal deleted inserted replaced
12352:f0d0bd4e1eff 12353:01416e7f9c92
  4152     "Modified: / 05-12-2006 / 18:04:27 / cg"
  4152     "Modified: / 05-12-2006 / 18:04:27 / cg"
  4153 !
  4153 !
  4154 
  4154 
  4155 setupForType:typeOrNil
  4155 setupForType:typeOrNil
  4156     typeOrNil = GUIApplicationType ifTrue:[
  4156     typeOrNil = GUIApplicationType ifTrue:[
  4157         self changeClassTo: ApplicationDefinition class.
  4157         self superclass: ApplicationDefinition.
  4158         self compile:'isGUIApplication\    ^ true' withCRs
  4158         self compile:'isGUIApplication\    ^ true' withCRs
  4159              categorized:'description'.
  4159              categorized:'description'.
  4160         ^ self
  4160         ^ self
  4161     ].
  4161     ].
  4162     typeOrNil = NonGUIApplicationType ifTrue:[
  4162     typeOrNil = NonGUIApplicationType ifTrue:[
  4163         self changeClassTo: ApplicationDefinition class.
  4163         self superclass: ApplicationDefinition.
  4164         self compile:'isGUIApplication\    ^ false' withCRs
  4164         self compile:'isGUIApplication\    ^ false' withCRs
  4165              categorized:'description'.
  4165              categorized:'description'.
  4166         ^ self
  4166         ^ self
  4167     ].                                                  
  4167     ].                                                  
  4168     self theMetaclass removeSelector: #isGUIApplication.
  4168     self theMetaclass removeSelector: #isGUIApplication.
  4169     self changeClassTo: LibraryDefinition class.
  4169     self superclass: LibraryDefinition.
  4170     ^ self.
  4170     ^ self.
  4171 
  4171 
  4172     "Created: / 23-08-2006 / 14:26:10 / cg"
  4172     "Created: / 23-08-2006 / 14:26:10 / cg"
  4173 ! !
  4173 ! !
  4174 
  4174 
  4867 ! !
  4867 ! !
  4868 
  4868 
  4869 !ProjectDefinition class methodsFor:'documentation'!
  4869 !ProjectDefinition class methodsFor:'documentation'!
  4870 
  4870 
  4871 version
  4871 version
  4872     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.267 2009-10-26 15:22:41 fm Exp $'
  4872     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.268 2009-10-26 15:29:57 fm Exp $'
  4873 !
  4873 !
  4874 
  4874 
  4875 version_CVS
  4875 version_CVS
  4876     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.267 2009-10-26 15:22:41 fm Exp $'
  4876     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.268 2009-10-26 15:29:57 fm Exp $'
  4877 ! !
  4877 ! !
  4878 
  4878 
  4879 ProjectDefinition initialize!
  4879 ProjectDefinition initialize!