Tools__ProjectBuilderAssistantApplication.st
changeset 2695 4788e8e6e24a
parent 2694 93a8594dec4f
child 2696 c5bbc6a8dfb7
equal deleted inserted replaced
2694:93a8594dec4f 2695:4788e8e6e24a
  1514         projectTypeHolder value:#guiApplicationType.
  1514         projectTypeHolder value:#guiApplicationType.
  1515     ].
  1515     ].
  1516     ^ projectTypeHolder.
  1516     ^ projectTypeHolder.
  1517 !
  1517 !
  1518 
  1518 
       
  1519 projectTypeIsLibrary
       
  1520     ^ self projectTypeHolder value == #libraryType
       
  1521 !
       
  1522 
  1519 projectTypeIsNotLibrary
  1523 projectTypeIsNotLibrary
  1520     ^ self projectTypeHolder value ~~ #libraryType
  1524     ^ self projectTypeIsLibrary not
  1521 !
  1525 !
  1522 
  1526 
  1523 selectedApplicationIndexHolder
  1527 selectedApplicationIndexHolder
  1524     <resource: #uiAspect>
  1528     <resource: #uiAspect>
  1525 
  1529 
  1721 !
  1725 !
  1722 
  1726 
  1723 canEnterContentsSelection
  1727 canEnterContentsSelection
  1724     ^ self hasProjectSelected 
  1728     ^ self hasProjectSelected 
  1725     and:[ true "self hasApplicationSelected" 
  1729     and:[ true "self hasApplicationSelected" 
  1726     and:[ self hasStartupClassSelected ]]
  1730     and:[ (self projectTypeIsLibrary or:[self hasStartupClassSelected]) ]]
  1727 !
  1731 !
  1728 
  1732 
  1729 canEnterDeploy
  1733 canEnterDeploy
  1730     ^ self hasProjectBuilder
  1734     ^ self hasProjectBuilder
  1731 !
  1735 !