equal
deleted
inserted
replaced
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 |