326 #existingProjects |
326 #existingProjects |
327 'Projects with an existing ProjectDefinition of the chosen type (above).' |
327 'Projects with an existing ProjectDefinition of the chosen type (above).' |
328 |
328 |
329 #nameOfApplicationClass |
329 #nameOfApplicationClass |
330 'For GUI applications: the name of your application class (subclass of ApplicationModel). |
330 'For GUI applications: the name of your application class (subclass of ApplicationModel). |
331 This will be opened by the startup sequence and defines the UI.' |
331 This will be opened by the startup sequence and defines the UI. |
|
332 (Usually, these are named "XXXApplication" or "XXXApp") |
|
333 Click on the "Create"-button to create a simple helloWorld app to start with.' |
332 |
334 |
333 #createNewApplication |
335 #createNewApplication |
334 'Create a new simple dummy application (HelloWorld-like). |
336 'Create a new simple dummy application (HelloWorld-like). |
335 Press this button to get some template code to play with - but enter a name first.' |
337 Press this button to get some template code to play with - but enter a name first.' |
336 |
338 |
337 #nameOfStartupClass |
339 #nameOfStartupClass |
338 'This class contains the main method, in which the show starts when the executable runs. |
340 'This class contains the main method, in which the show starts when the executable runs. |
339 Its main task is to parse command line arguments (if any) and fire up the real application. |
341 Its main task is to parse command line arguments (if any) and fire up the real application. |
340 It should inherit from StandaloneStartup.' |
342 It should inherit from StandaloneStartup. |
|
343 (Usually, these are named "XXXStart" or "XXXStartup") |
|
344 Click on the "Create"-button to create something to start with (will launch your application)' |
341 |
345 |
342 #createNewStartupClass |
346 #createNewStartupClass |
343 'Create a new simple startup class which fires up the defined application. |
347 'Create a new simple startup class which fires up the defined application. |
344 Press this button to get a standard startup class which does not care for command line args. |
348 Press this button to get a standard startup class which does not care for command line args. |
345 But enter a name first.' |
349 But enter a name first.' |
1663 newAppName := self newApplicationsName value. |
1667 newAppName := self newApplicationsName value. |
1664 newAppName isEmptyOrNil ifTrue:[ |
1668 newAppName isEmptyOrNil ifTrue:[ |
1665 Dialog warn:'Please enter the name of the Application-Class first.'. |
1669 Dialog warn:'Please enter the name of the Application-Class first.'. |
1666 ^ self |
1670 ^ self |
1667 ]. |
1671 ]. |
|
1672 newAppName isUppercaseFirst ifFalse:[ |
|
1673 (Dialog confirm:(resources |
|
1674 stringWithCRs:'Class names must start with an uppercase character.\\Change to "%1"?' |
|
1675 with:newAppName asUppercaseFirst)) |
|
1676 ifFalse:[ |
|
1677 ^ self |
|
1678 ]. |
|
1679 newAppName := newAppName asUppercaseFirst. |
|
1680 self newApplicationsName value:newAppName. |
|
1681 ]. |
1668 |
1682 |
1669 self withWaitCursorDo:[ |
1683 self withWaitCursorDo:[ |
1670 Class packageQuerySignal answer:(selectedProjectDefinition package) |
1684 Class packageQuerySignal answer:(selectedProjectDefinition package) |
1671 do:[ |
1685 do:[ |
1672 newAppClass := ApplicationModel |
1686 newAppClass := ApplicationModel |
1747 |
1761 |
1748 newClassName := self newStartupClassName value. |
1762 newClassName := self newStartupClassName value. |
1749 newClassName isEmptyOrNil ifTrue:[ |
1763 newClassName isEmptyOrNil ifTrue:[ |
1750 Dialog warn:'Please enter the name of the Startup-Class first.'. |
1764 Dialog warn:'Please enter the name of the Startup-Class first.'. |
1751 ^ self |
1765 ^ self |
|
1766 ]. |
|
1767 newClassName isUppercaseFirst ifFalse:[ |
|
1768 (Dialog confirm:(resources |
|
1769 stringWithCRs:'Class names must start with an uppercase character.\\Change to "%1"?' |
|
1770 with:newClassName asUppercaseFirst)) |
|
1771 ifFalse:[ |
|
1772 ^ self |
|
1773 ]. |
|
1774 newClassName := newClassName asUppercaseFirst. |
|
1775 self newStartupClassName value:newClassName. |
1752 ]. |
1776 ]. |
1753 |
1777 |
1754 self withWaitCursorDo:[ |
1778 self withWaitCursorDo:[ |
1755 |pkg| |
1779 |pkg| |
1756 |
1780 |