Tools__ProjectBuilderAssistantApplication.st
changeset 2962 5eee09525324
parent 2960 9b1e724cb318
child 2965 9725f13947de
equal deleted inserted replaced
2961:f28135198d42 2962:5eee09525324
  1713 
  1713 
  1714 doAddClassToProject
  1714 doAddClassToProject
  1715     <resource: #uiCallback>
  1715     <resource: #uiCallback>
  1716 
  1716 
  1717     Transcript showCR:self class name, ': action for doAddClassToProject ...'.
  1717     Transcript showCR:self class name, ': action for doAddClassToProject ...'.
  1718     self halt.
  1718     self halt:'unimplemented'.
  1719 !
  1719 !
  1720 
  1720 
  1721 doBrowseApplication
  1721 doBrowseApplication
  1722     <resource: #uiCallback>
  1722     <resource: #uiCallback>
  1723 
  1723 
  3037             query := #isGUIApplication
  3037             query := #isGUIApplication
  3038         ] ifFalse:[
  3038         ] ifFalse:[
  3039             projectType = ProjectDefinition nonGuiApplicationType ifTrue:[
  3039             projectType = ProjectDefinition nonGuiApplicationType ifTrue:[
  3040                 query := #isConsoleApplication
  3040                 query := #isConsoleApplication
  3041             ] ifFalse:[
  3041             ] ifFalse:[
  3042                 self halt:'oops'.
  3042                 self halt:'oops - unknown projectType'.
  3043                 projectType := ProjectDefinition guiApplicationType.
  3043                 projectType := ProjectDefinition guiApplicationType.
  3044             ].
  3044             ].
  3045         ].
  3045         ].
  3046     ].
  3046     ].
  3047 
  3047