diff -r 217dad1c84d0 -r 108c139b4bbd Tools__ProjectBuilderAssistantApplication.st --- a/Tools__ProjectBuilderAssistantApplication.st Fri Oct 07 00:04:03 2016 +0200 +++ b/Tools__ProjectBuilderAssistantApplication.st Fri Oct 07 01:57:58 2016 +0200 @@ -3079,7 +3079,11 @@ windowSpecSelector: page2_projectSelectionSpec enterCallbackSelector: updateListOfMatchingProjectsAndProjectIDs leaveCallbackSelector: fetchAttributesFromProjectDefinition - infoText: 'Choose an existing project definition or create a new one. These are subclasses of ProjectDefinition 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 "<yourname>:demos/xxx_n".' + infoText: 'Choose an existing project definition or create a new one. +These are subclasses of ProjectDefinition 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 "<yourname>:demos/xxx_n".' ) decodeAsLiteralArray. specs add: @@ -3089,7 +3093,9 @@ isEnabledQuerySelector: #projectTypeIsGuiApplication canEnterQuerySelector: #canEnterApplicationSelection enterCallbackSelector: updateListOfApplicationsInProject - infoText: 'Choose an existing application or create a new one. These are subclasses of ApplicationModel 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 ApplicationModel 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: @@ -3099,7 +3105,9 @@ isEnabledQuerySelector: #projectTypeIsNotLibrary canEnterQuerySelector: #canEnterStartupClassSelection enterCallbackSelector: updateListOfStartupClassesInProject - infoText: 'Choose an existing startup-class or create a new one. These are subclasses of StandaloneStartup 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 StandaloneStartup and start the application. +Command line arguments can be interpreted there.' ) decodeAsLiteralArray. specs add: @@ -3108,7 +3116,12 @@ 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 "Scan" to include all classes of the package; "Browse" to edit the contents manually.' + infoText: 'Define which (other) classes are to be included. +Do not include classes from other packages here. +

+Press "Scan" to include all classes of the package; +
+"Browse" to edit the contents manually.' ) decodeAsLiteralArray. specs add: @@ -3117,14 +3130,19 @@ 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 "Scan" to search for prerequisites; "Browse" 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. +

+Press "Scan" to search for prerequisites; +
"Browse" 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. @@ -3323,9 +3341,11 @@ enterDeploySpecification |fileBrowserCanvas fileBrowser| - fileBrowserCanvas := self builder componentAt:'FileBrowserSubCanvas'. - fileBrowser := fileBrowserCanvas application. - fileBrowser filterModel value:('*' , ObjectFileLoader sharedLibraryExtension). + self projectTypeIsLibrary ifTrue:[ + fileBrowserCanvas := self builder componentAt:'FileBrowserSubCanvas'. + fileBrowser := fileBrowserCanvas application. + fileBrowser filterModel value:('*' , ObjectFileLoader sharedLibraryExtension). + ]. ! enterPrerequisitesSpecification