Project.st
changeset 939 ffee570b0f09
parent 848 76a83f34c26a
child 1115 16ebfd63db43
equal deleted inserted replaced
938:a23bc7f62ed1 939:ffee570b0f09
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 
    12 
    13 Object subclass:#Project
    13 Object subclass:#Project
    14 	 instanceVariableNames:'name changeSet views directoryName properties packageName
    14 	instanceVariableNames:'name changeSet views directoryName properties packageName
    15                 repositoryDirectory repositoryModule'
    15 		repositoryDirectory repositoryModule'
    16 	 classVariableNames:'CurrentProject SystemProject NextSequential'
    16 	classVariableNames:'CurrentProject SystemProject NextSequential'
    17 	 poolDictionaries:''
    17 	poolDictionaries:''
    18 	 category:'System-Support'
    18 	category:'System-Support'
    19 !
    19 !
    20 
    20 
    21 !Project class methodsFor:'documentation'!
    21 !Project class methodsFor:'documentation'!
    22 
    22 
    23 copyright
    23 copyright
   136 
   136 
   137 setDefaultProject
   137 setDefaultProject
   138     "set the currently active project to be the SystemDEfault project"
   138     "set the currently active project to be the SystemDEfault project"
   139 
   139 
   140     self current:SystemProject.
   140     self current:SystemProject.
       
   141 !
       
   142 
       
   143 setProject:aProjectOrNil
       
   144     "set the currently active project without updating others"
       
   145 
       
   146     CurrentProject := aProjectOrNil.
       
   147 
       
   148     "Created: 7.2.1996 / 14:00:45 / cg"
       
   149     "Modified: 7.2.1996 / 14:01:16 / cg"
   141 ! !
   150 ! !
   142 
   151 
   143 !Project class methodsFor:'changes management'!
   152 !Project class methodsFor:'changes management'!
   144 
   153 
   145 addClassDefinitionChangeFor:aClass
   154 addClassDefinitionChangeFor:aClass
   808 ! !
   817 ! !
   809 
   818 
   810 !Project class methodsFor:'documentation'!
   819 !Project class methodsFor:'documentation'!
   811 
   820 
   812 version
   821 version
   813 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.36 1996-01-11 13:51:39 cg Exp $'! !
   822 ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.37 1996-02-07 14:11:43 cg Exp $'! !
   814 Project initialize!
   823 Project initialize!