"

 COPYRIGHT (c) 2009 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool2' }"

"{ NameSpace: Tools }"

AssistantApplication subclass:#ProjectBuilderAssistantApplication

	instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder

		selectedProjectIndexHolder selectedProjectDefinition

		listOfMatchingProjects listOfMatchingPackageIds

		selectedProjectsComment hasProjectSelectedHolder newProjectsName

		hideSTXProjects hideOtherApplicationClasses

		hideOtherStartupClasses startMakeButtonEnabled

		stopMakeButtonVisible makeOutputHolder newApplicationsName

		listOfApplicationsInProject selectedApplicationIndexHolder

		selectedApplication hasApplicationSelectedHolder

		listOfStartupClassesInProject selectedStartupClassIndexHolder

		selectedStartupClass hasStartupClassSelectedHolder

		selectedApplicationsComment buildDirectoryHolder makeProcess

		listOfClassesInProject makeOutputWindow projectBuilder

		newStartupClassName usedCompilerHolder listOfNewProjectsName

		newProjectsNameListExtendedComboBox productNameHolder

		companyNameHolder compilerWarnMessageHolder

		compilerWarnMessageVisibleHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'System-Support-Projects'

!

!ProjectBuilderAssistantApplication class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2009 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    a user friendly interface to the build process.

    Simply wraps up existing tools like the CodeGeneratorTool, the browsers

    and the ProjetBuilder

    [see also:]

        CodeGeneratorTool

        ProjectBuilder

        ProjectDefinition

    [author:]

        Claus Gittinger

"

!

help

"/    Packager - A Standalone-Executable Builder and Packager

"/    This assistant-application allows for standalone applications to be built very easily. It will generate all required classes, files, start the compilation process, generate a self-installable executable with a few mouse clicks. A simple demo application like the famous "Hello World" can be generated in a few minutes.

"/    Prerequisites

"/    Windows Users:

"/    Please install either the "Borland Free Commandline Compiler Tools (bcc32)" or the "Microsoft Visual-C++" package (also free). In addition, the "NullSoft NSIS-Installer Package" is required.

"/

"/    Due to limitations and bugs in the Visual-C++ compiler (limit on the size of string-constants), some Smalltalk code is still not compilable (classes which contain image-resource methods for big images). Although microsoft is doing their best (a relative measure) to make things better (they increase the string-limit with every new release), they still seem to be undable to figure out how ti use malloc for string-data). We are patiently waiting for a real fix and still using bcc in the meanwhile. Therefore, we still recommend using the borland compiler suite. Please install it at its standard location ("C:\Borland") as our makefiles might still contain hard-coded pathes (yes, we are ashamed about this).

"/    Unix Users:

"/    You should already have the gcc compile suite (including all required header files) installed and ready to use. For a lack of time on our side, there is currently no self-installer support for Unix. The packager will generate a zipped tar file, which must be deployed and unpacked for use. This may change in the near future.

"/    Packages, Projects, PackageIDs and ProjectDefinitions

"/    Smalltalk basically uses two objects for packaging:

"/

"/        * PackageIDs (also called ProjectID's occasionally)

"/        * ProjectDefinitions 

"/

"/    Older ST/X versions used instances of a Project class - this is now obsolete and removed from the system (although there are still some minor uses of it, which might remain there for backward compatibility for some time, as some customers have built their own packaging scheme around it).

"/

"/    PackageIDs

"/    These are simple symbols and are attached to classes and methods. If a method has a packageID different from its class, it is called an extension method.

"/    PackageIDs must have a certain fixed format: they always contain exactly two parts, which are separated by a colon character: the module and the directory part. The module is used as main-selector on where and how the source code repository is accessed. The directory is a path below that repository. If checked out into the local filesystem, the module defines the top-level directory. Thus, if a packageID is "stx:libbasic", the corresponding sources will be found in the repository associated to the "stx" module, under the directory "libbasic". In the local file system, it will be found under "stx/libbasic". As another example, if the packageID is "exept:expecco/plugins/foo", the repository is whichever is associated with the "exept" module, and the subdirectory is "expecco/plugins/foo". The local path to the sourcefiles would be "exept/expecco/plugins/foo".

"/    Please notice that it does make sense to associate different repositories to different modules: for example, you could setup the sourceCodeManager to use CVS access to the exept repository for everything under the "stx" module, and at the same time, use a local SVN repository for everything under the "myCompany" module.

"/    ProjectDefinitions

"/    These describe the contents of a project, such as the classes to include, the set of extension methods, any additional compilation information. ProjectDefinitions come in 3 flavours:

"/

"/        * GUI Application Definition

"/        * non-GUI Application Definition

"/        * ClassLibrary Definition 

"/

"/    ProjectDefinitions are stored and managed as class-instances, located as subclasses of one of ApplicationDefinition or LibraryDefinition. As classes, they are themself managed, compiled and packaged as part of the project (and also have the same PackageID as their components). They are also treated like any other class w.r.t. source code management.

"/    Packaging

"/    All classes and extension methods belonging to a single package are supposed to be loaded (and possibly unloaded) together. They are also usually deployed inside a single dynamic link library ("dll", for short). In the Unix world, these are called "shared object" or "so". Finally, they are stored in a common directory both on the local file system and in a source code repository (CVS, SVN, etc.).

"/    Structure of a Project

"/    The artefacts as manipulated by the packager are:

"/

"/        * the ProjectDefinition class

"/          This defines the type of application (GUI / non-GUI), its contents (i.e. the set of classes to be included in the binary itself and the set of library-dll's to be included in the deployed package), and some other metadata, such as icon, title etc.

"/

"/        * the ApplicationModel class

"/          This defines the GUI, and is typically created using the UI-Painter.

"/

"/        * the Startup class

"/          This is the first class which gets control when the executable is started; it can analyze the command line arguments, read patches or updates, start background ptocesses, and will eventually open the applications GUI. 

"/

"/    Build Procedure

"/    All of the three components above can be generated by the packager to provide an initial framework for further work.

"/

"/    After the definition of those classes, all required files are stored in a temporary build directory. This means that the above classes are filed out, and make- and other support files are generated.

"/

"/    Finally, the actual build process is started. This requires an external C-compiler. Under windows, both Borland-C (free download available via the internet) and Microsoft's Visual-C++ (also available for free) can be used.

"/

"/    A self-installing executable is built using the NullSoft NSIS package. This is also required to be installed before the packager is started.

"/

"/    After the build, all required files are packaged in a single install-file. This is called "MyApplicationSetup.exe" and found in the project-specific subdirectory of the build directory. For deployment, this single file has to be delivered to a customer and executed there.

"/

"/    Summary: It has NEVER been easier to create a GUI application. 

! !

!ProjectBuilderAssistantApplication class methodsFor:'assistant pages spec'!

assistantSpec

    ^ #(Array

        ( AssistantPageSpec

            pageTitle: 'Project Type Selection'

            windowSpecSelector: page1_projectTypeSelectionSpec

            enterCallbackSelector: updateListOfMatchingProjects

            infoText: 'Choose the <B>type</B> of project you are about to build.'

        )

        (AssistantPageSpec

            pageTitle: 'ProjectDefinition Selection'

            windowSpecSelector: page2_projectSelectionSpec

            enterCallbackSelector: updateListOfMatchingProjects

            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.'

        )

        (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).'

        )

        (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.'

        )

        (AssistantPageSpec

            pageTitle: 'Specify Contents'

            windowSpecSelector: page5_specifyIncludedClasses

            enterCallbackSelector: enterContentsSpecification

            canEnterQuerySelector: #canEnterContentsSelection

            infoText: 'Define which (other) classes are to be included.

                       Press "<I>Scan</I>" to include all classes of the package;

                       browse to edit the contents manually.'

        )

        (AssistantPageSpec

            pageTitle: 'Specify Project Attributes'

            windowSpecSelector: page6a_specifyProjectAttributes

            infoText: 'Define additional attributes.'

            enterCallbackSelector: updateProjectAttributes

            leaveCallbackSelector: #rememberProjectAttributes

        )

        (AssistantPageSpec

            pageTitle: 'Specify Build Directory'

            windowSpecSelector: page6b_specifyBuildDirectorySpec

            infoText: 'Define where the build-process is to be performed.

                       All generated files are created below that directory.

                       After deployment, the build directory is no longer needed

                       (but you can keep it for a faster compile the next time).'

            enterCallbackSelector: #checkCompilerAvailability

        )

        (AssistantPageSpec

            pageTitle: 'Build'

            windowSpecSelector: page7_buildSpec

            canEnterQuerySelector: #canEnterBuild

            enterCallbackSelector: #restoreMakeOutputsContents

            leaveCallbackSelector: #rememberMakeOutputsContents

            infoText: 'Start the build-process. This will run make/bcc to compile

                       all required classes and nsis to generate a self-installable

                       executable. You must have the borland-cc and NullSoft NSIS

                       packages installed for this to work.'

        )

        (AssistantPageSpec

            pageTitle: 'Deploy'

            windowSpecSelector: page8_deploySpec

            canEnterQuerySelector: #canEnterDeploy

            infoText: 'Find the installer to be deployed (or test-run the binary).

                       You can open a WindowsExplorer there to copy the files for

                       deployment. After that, the build directory is no longer needed

                       (but you can keep it for a faster compile the next time).'

        )

    ) decodeAsLiteralArray.

! !

!ProjectBuilderAssistantApplication class methodsFor:'defaults'!

defaultIcon

    ^ ToolbarIconLibrary projectBuilderIcon

!

windowLabelTemplate

    ^ 'ST/X Packager: %1'

! !

!ProjectBuilderAssistantApplication class methodsFor:'help'!

flyByHelpSpec

    <resource: #help>

    ^ super flyByHelpSpec addPairsFrom:#(

#'projectType'

'Choose the type of Project you are about to deploy.'

#existingProjects

'Projects with an existing ProjectDefinition of the chosen type (above).'

#browseSelectedProject

'Open a SystemBrowser on the selected Project.'

#hideSTXBasePackages

'Only show packages which are not already included in the basic ST/X delivery.'

#'listOfNewProjectsName'

'PackageID (module:directory).

The pull-down list contains packageIDs for which no ProjectDefinition exists (yet).'

#'createNewProject'

'PackageID (module:directory).

Click to create a new (empty) ProjectDefinition for the given PackageID.'

)

! !

!ProjectBuilderAssistantApplication class methodsFor:'interface specs'!

page1_projectTypeSelectionSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page1_projectTypeSelectionSpec

     Tools::ProjectBuilderAssistantApplication new openInterface:#page1_projectTypeSelectionSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'page1_projectTypeSelectionSpec'

        window: 

       (WindowSpec

          label: 'Project Selection'

          name: 'Project Selection'

          min: (Point 0 0)

          bounds: (Rectangle 0 0 626 394)

        )

        component: 

       (SpecCollection

          collection: (

           (FramedBoxSpec

              label: 'Project Type'

              name: 'FramedBox1'

              layout: (LayoutFrame 0 0.0 0 0 4 1.0 120 0)

              activeHelpKey: projectType

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (VerticalPanelViewSpec

                    name: 'VerticalPanel1'

                    layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

                    horizontalLayout: leftSpace

                    verticalLayout: topSpace

                    horizontalSpace: 3

                    verticalSpace: 3

                    component: 

                   (SpecCollection

                      collection: (

                       (ViewSpec

                          name: 'Box1'

                          extent: (Point 10 10)

                        )

                       (RadioButtonSpec

                          label: 'GUI Application'

                          name: 'RadioButton1'

                          translateLabel: true

                          model: projectTypeHolder

                          isTriggerOnDown: true

                          onCallBackSelector: projectTypeChanged

                          select: guiApplicationType

                          extent: (Point 136 22)

                        )

                       (RadioButtonSpec

                          label: 'Non-GUI Application'

                          name: 'RadioButton2'

                          translateLabel: true

                          model: projectTypeHolder

                          isTriggerOnDown: true

                          onCallBackSelector: projectTypeChanged

                          select: nonGuiApplicationType

                          extent: (Point 136 22)

                        )

                       (RadioButtonSpec

                          label: 'Class Library'

                          name: 'RadioButton3'

                          translateLabel: true

                          model: projectTypeHolder

                          isTriggerOnDown: true

                          onCallBackSelector: projectTypeChanged

                          select: libraryType

                          extent: (Point 136 22)

                        )

                       )

                    )

                  )

                 )

              )

            )

           (FramedBoxSpec

              label: 'Existing Projects of this Type (PackageIDs)'

              name: 'FramedBox2'

              layout: (LayoutFrame 0 0.0 123 0 4 1.0 0 1)

              activeHelpKey: existingProjects

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (VariableHorizontalPanelSpec

                    name: 'VariableHorizontalPanel1'

                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)

                    component: 

                   (SpecCollection

                      collection: (

                       (SequenceViewSpec

                          name: 'List1'

                          model: selectedProjectIndexHolder

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          useIndex: true

                          sequenceList: listOfMatchingPackageIds

                        )

                       (TextEditorSpec

                          name: 'TextEditor1'

                          model: selectedProjectsComment

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          isReadOnly: true

                          hasKeyboardFocusInitially: false

                        )

                       )

                    )

                    handles: (Any 0.34560327198364 1.0)

                  )

                 (CheckBoxSpec

                    label: 'Hide ST/X Base Packages'

                    name: 'CheckBox1'

                    layout: (LayoutFrame -1 0 -18 1 0 1 4 1)

                    activeHelpKey: hideSTXBasePackages

                    model: hideSTXProjects

                    translateLabel: true

                  )

                 )

              )

            )

           )

        )

      )

!

page2_projectSelectionSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:Tools::ProjectBuilderAssistantApplication andSelector:#page2_projectSelectionSpec

     Tools::ProjectBuilderAssistantApplication new openInterface:#page2_projectSelectionSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'page2_projectSelectionSpec'

        window: 

       (WindowSpec

          label: 'Project Selection'

          name: 'Project Selection'

          min: (Point 0 0)

          bounds: (Rectangle 0 0 521 453)

        )

        component: 

       (SpecCollection

          collection: (

           (FramedBoxSpec

              label: 'New Project''s PackageID'

              name: 'FramedBox3'

              layout: (LayoutFrame 0 0.0 5 0 4 1.0 72 0)

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (ExtendedComboBoxSpec

                    name: 'NewProjectsNameListExtendedComboBox'

                    layout: (LayoutFrame 1 0 6 0 -113 1 28 0)

                    model: newProjectsName

                    readOnly: false

                    miniScrollerHorizontal: true

                    postBuildCallback: postBuildNewProjectsNameListExtendedComboBox:

              activeHelpKey: listOfNewProjectsName

                  )

                 (ActionButtonSpec

                    label: 'Create'

                    name: 'Button1'

                    layout: (LayoutFrame -100 1 6 0 2 1 28 0)

                    translateLabel: true

                    model: createNewProject

              activeHelpKey: createNewProject

                  )

                 )

              )

            )

           (FramedBoxSpec

              label: 'Existing Projects with ProjectDefinition'

              name: 'FramedBox4'

              layout: (LayoutFrame 0 0.0 70 0 4 1.0 -30 1)

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (VariableHorizontalPanelSpec

                    name: 'VariableHorizontalPanel2'

                    layout: (LayoutFrame 0 0 4 0 0 1 -26 1)

                    component: 

                   (SpecCollection

                      collection: (

                       (SequenceViewSpec

                          name: 'List2'

                          model: selectedProjectIndexHolder

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          useIndex: true

                          sequenceList: listOfMatchingPackageIds

                        )

                       (TextEditorSpec

                          name: 'TextEditor2'

                          model: selectedProjectsComment

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          isReadOnly: true

                          hasKeyboardFocusInitially: false

                          viewClassName: 'TextView'

                        )

                       )