Project.st
changeset 18735 681996ef7e51
parent 16629 ae20f5ef39b9
child 18738 66e019ad4d30
child 18872 224fa6bf65b1
equal deleted inserted replaced
18734:91cf1b39b479 18735:681996ef7e51
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1993 by Claus Gittinger
     4  COPYRIGHT (c) 1993 by Claus Gittinger
     3 	      All Rights Reserved
     5 	      All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
     8  be provided or otherwise made available to, or used by, any
    10  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
    11  other person.  No title to or ownership of the software is
    10  hereby transferred.
    12  hereby transferred.
    11 "
    13 "
    12 "{ Package: 'stx:libbasic' }"
    14 "{ Package: 'stx:libbasic' }"
       
    15 
       
    16 "{ NameSpace: Smalltalk }"
    13 
    17 
    14 Object subclass:#Project
    18 Object subclass:#Project
    15 	instanceVariableNames:'name changeSet views directoryName properties packageName
    19 	instanceVariableNames:'name changeSet views directoryName properties packageName
    16 		repositoryDirectory repositoryModule isLoaded'
    20 		repositoryDirectory repositoryModule isLoaded'
    17 	classVariableNames:'CurrentProject SystemProject NextSequential AllProjects'
    21 	classVariableNames:'CurrentProject SystemProject NextSequential AllProjects'
   835 
   839 
   836     "Modified: / 17-08-2006 / 11:20:20 / cg"
   840     "Modified: / 17-08-2006 / 11:20:20 / cg"
   837 !
   841 !
   838 
   842 
   839 addMethodChange:aMethod in:aClass
   843 addMethodChange:aMethod in:aClass
   840     "add a method change in aClass to the receivers changeSet"
   844     "add a method change in aClass to the receiver's changeSet"
   841 
   845 
   842     |changeSet|
   846     |changeSet|
   843 
   847 
   844     (changeSet := self changeSet) notNil ifTrue:[
   848     (changeSet := self changeSet) notNil ifTrue:[
   845         changeSet addMethodChange:aMethod in:aClass 
   849         changeSet addMethodChange:aMethod in:aClass 
  1600 ! !
  1604 ! !
  1601 
  1605 
  1602 !Project class methodsFor:'documentation'!
  1606 !Project class methodsFor:'documentation'!
  1603 
  1607 
  1604 version
  1608 version
  1605     ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.213 2014-06-25 08:00:02 stefan Exp $'
  1609     ^ '$Header$'
  1606 !
  1610 !
  1607 
  1611 
  1608 version_CVS
  1612 version_CVS
  1609     ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.213 2014-06-25 08:00:02 stefan Exp $'
  1613     ^ '$Header$'
  1610 ! !
  1614 ! !
  1611 
  1615 
  1612 
  1616 
  1613 Project initialize!
  1617 Project initialize!