hg/stx-libtool2: comparison Tools__ProjectBuilderAssistantApplication.st

equal deleted inserted replaced

-:217dad1c84d0
+:108c139b4bbd
 #(AssistantPageSpec
 pageTitle: 'ProjectDefinition Selection'
 windowSpecSelector: page2_projectSelectionSpec
 enterCallbackSelector: updateListOfMatchingProjectsAndProjectIDs
 leaveCallbackSelector: fetchAttributesFromProjectDefinition
-infoText: 'Choose an existing project definition or create a new one. These are subclasses of <I>ProjectDefinition</I> and define the type and contents of a project. Notice that the ID directly reflects the project''s location within the source code repository (module:directory/subdirectory...). If in doubt, use "&lt;yourname&gt;:demos/xxx_n".'
+infoText: 'Choose an existing project definition or create a new one.
+These are subclasses of <I>ProjectDefinition</I> and define the type and contents of a project.
+<p>
+Notice that the ID directly reflects the project''s location within the source code repository (module:directory/subdirectory...).
+If in doubt, use "&lt;yourname&gt;:demos/xxx_n".'
 ) decodeAsLiteralArray.
 specs add:
 #(AssistantPageSpec
 pageTitle: 'Startup Application Selection'
 windowSpecSelector: page3_applicationSelectionSpec
 isEnabledQuerySelector: #projectTypeIsGuiApplication
 canEnterQuerySelector: #canEnterApplicationSelection
 enterCallbackSelector: updateListOfApplicationsInProject
-infoText: 'Choose an existing application or create a new one. These are subclasses of <I>ApplicationModel</I> and define the GUI and control flow inside the application. Can also be left blank if the startup class does it all (stx build).'
+infoText: 'Choose an existing application or create a new one.
+These are subclasses of <I>ApplicationModel</I> and define the GUI and control flow inside the application.
+Can also be left blank if the startup class does it all (stx build).'
 ) decodeAsLiteralArray.
 specs add:
 #(AssistantPageSpec
 pageTitle: 'Startup Class Selection'
 windowSpecSelector: page4_startupClassSelectionSpec
 isEnabledQuerySelector: #projectTypeIsNotLibrary
 canEnterQuerySelector: #canEnterStartupClassSelection
 enterCallbackSelector: updateListOfStartupClassesInProject
-infoText: 'Choose an existing startup-class or create a new one. These are subclasses of <I>StandaloneStartup</I> and start the application. Command line arguments can be interpreted there.'
+infoText: 'Choose an existing startup-class or create a new one.
+These are subclasses of <I>StandaloneStartup</I> and start the application.
+Command line arguments can be interpreted there.'
 ) decodeAsLiteralArray.
 specs add:
 #(AssistantPageSpec
 pageTitle: 'Specify Contents'
 windowSpecSelector: page5_specifyIncludedClasses
 enterCallbackSelector: enterContentsSpecification
 canEnterQuerySelector: #canEnterContentsSelection
-infoText: 'Define which (other) classes are to be included. Do not include classes from other packages here. Press "<I>Scan</I>" to include all classes of the package; "<I>Browse</I>" to edit the contents manually.'
+infoText: 'Define which (other) classes are to be included.
+Do not include classes from other packages here.
+<p>
+Press "<I>Scan</I>" to include all classes of the package;
+<br>
+"<I>Browse</I>" to edit the contents manually.'
 ) decodeAsLiteralArray.
 specs add:
 #(AssistantPageSpec
 pageTitle: 'Specify Prerequisites'
 windowSpecSelector: page5b_specifyPrerequisitePackages
 enterCallbackSelector: enterPrerequisitesSpecification
 canEnterQuerySelector: #canEnterPrerequisitesSelection
-infoText: 'Define which packages are needed as prerequisites. These are required class libraries which should be packaged together with the application. Press "<I>Scan</I>" to search for prerequisites; "<I>Browse</I>" to edit the list manually.'
+infoText: 'Define which packages are needed as prerequisites.
+These are required class libraries which should be packaged together with the application.
+<p>
+Press "<I>Scan</I>" to search for prerequisites;
+<br>"<I>Browse</I>" to edit the list manually.'
 ) decodeAsLiteralArray.
 specs add:
 #(AssistantPageSpec
 pageTitle: 'Specify Project Attributes'
 windowSpecSelector: page6a_specifyProjectAttributes
-infoText: 'Define additional attributes. These will be shown during the installation of the deployed package and affect the name of the deployed self installable file.'
+infoText: 'Define additional attributes.
+These will be shown during the installation of the deployed package and affect the name of the deployed self-installable file.'
 enterCallbackSelector: updateProjectAttributes
 leaveCallbackSelector: #rememberProjectAttributes
 ) decodeAsLiteralArray.
 specs add:
 !
 enterDeploySpecification
 |fileBrowserCanvas fileBrowser|
-fileBrowserCanvas := self builder componentAt:'FileBrowserSubCanvas'.
+self projectTypeIsLibrary ifTrue:[
-fileBrowser := fileBrowserCanvas application.
+fileBrowserCanvas := self builder componentAt:'FileBrowserSubCanvas'.
-fileBrowser filterModel value:('*' , ObjectFileLoader sharedLibraryExtension).
+fileBrowser := fileBrowserCanvas application.
+fileBrowser filterModel value:('*' , ObjectFileLoader sharedLibraryExtension).
+].
 !
 enterPrerequisitesSpecification
 |toAdd|

changeset 3336	108c139b4bbd
parent 3335	217dad1c84d0
child 3337	f9ec2e76c54c