Project.st
changeset 9588 047b02c1759a
parent 9566 1966e68d5d3b
child 9691 8d54416720b3
equal deleted inserted replaced
9587:172d616e9d8d 9588:047b02c1759a
   582 
   582 
   583 libraryName
   583 libraryName
   584     "return the projects library name.
   584     "return the projects library name.
   585      This is the name of a classLibrary, created from this project"
   585      This is the name of a classLibrary, created from this project"
   586 
   586 
   587     |nm|
   587     ^ self name asPackageId libraryName.
   588 
   588 
   589     nm := self name.
   589     "Modified: / 18-08-2006 / 17:14:52 / cg"
   590     ^ nm copyFrom:(nm lastIndexOfAny:':/')+1
       
   591 
       
   592 "/    ^ (self name copyReplaceAll:$/ with:$_) replaceAll:$: with:$_
       
   593 !
   590 !
   594 
   591 
   595 name
   592 name
   596     "return the projects name.
   593     "return the projects name.
   597      This is for the user only - shown in the projectViews label"
   594      This is for the user only - shown in the projectViews label"
  1588 ! !
  1585 ! !
  1589 
  1586 
  1590 !Project class methodsFor:'documentation'!
  1587 !Project class methodsFor:'documentation'!
  1591 
  1588 
  1592 version
  1589 version
  1593     ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.197 2006-08-17 14:55:44 cg Exp $'
  1590     ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.198 2006-08-18 15:15:25 cg Exp $'
  1594 ! !
  1591 ! !
  1595 
  1592 
  1596 Project initialize!
  1593 Project initialize!