"{ 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

	classVariableNames:''

	poolDictionaries:''

	category:'System-Support-Projects'

!

!ProjectBuilderAssistantApplication class methodsFor:'documentation'!

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

"

! !

!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 Build Directory'

            windowSpecSelector: page6_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).'

        )

        (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:#(

#newProjectsName

'PackageID (module:directory)'

#createNewProject

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

#'listOfNewProjectsName'

'foo  bar baz'

)

! !

!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 Filter'

              name: 'FramedBox1'

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

              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 (PackageID''s)'

              name: 'FramedBox2'

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

              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)

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

              name: 'FramedBox3'

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

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Create'

                    name: 'Button1'

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

                    translateLabel: true

                    model: createNewProject

              activeHelpKey: createNewProject

                  )

                 (ExtendedComboBoxSpec

                    name: 'NewProjectsNameListExtendedComboBox'

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

                    model: newProjectsName

                    readOnly: false

                    miniScrollerHorizontal: true

                    postBuildCallback: postBuildNewProjectsNameListExtendedComboBox:

              activeHelpKey: newProjectsName

                  )

                 )

              )

            )

           (FramedBoxSpec

              label: 'Existing PackageID''s with Project Definition'

              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'

                        )

                       )

                    )

                    handles: (Any 0.34560327198364 1.0)

                  )

                 (CheckBoxSpec

                    label: 'Hide ST/X Base Packages'

                    name: 'CheckBox1'

                    layout: (LayoutFrame -1 0 -17 1 0 1 5 1)

                    model: hideSTXProjects

                    translateLabel: true

                  )

                 )

              )

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel1'

              layout: (LayoutFrame 0 0 -30 1 0 1 0 1)

              horizontalLayout: leftSpace

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Browse Selected Project'

                    name: 'Button3'

                    translateLabel: true

                    model: doBrowseProject

                    enableChannel: hasProjectSelectedHolder

                    extent: (Point 180 22)

                  )

                 )

              )

            )

           )

        )

      )

!

page3_applicationSelectionSpec

    "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:#page3_applicationSelectionSpec

     Tools::ProjectBuilderAssistantApplication new openInterface:#page3_applicationSelectionSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'page3_applicationSelectionSpec'

        window: 

       (WindowSpec

          label: 'Application Selection'

          name: 'Application Selection'

          min: (Point 0 0)

          bounds: (Rectangle 0 0 519 406)

        )

        component: 

       (SpecCollection

          collection: (

           (FramedBoxSpec

              label: 'New Application'

              name: 'FramedBox3'

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

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (InputFieldSpec

                    name: 'EntryField1'

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

                    model: newApplicationsName

                    acceptOnReturn: true

                    acceptOnTab: true

                    acceptOnLostFocus: true

                    acceptOnPointerLeave: true

                    emptyFieldReplacementText: 'MyApplication'

                  )

                 (ActionButtonSpec

                    label: 'Create'

                    name: 'Button1'

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

                    translateLabel: true

                    model: createNewApplication

                  )

                 )

              )

            )

           (FramedBoxSpec

              label: 'Existing Applications'

              name: 'FramedBox4'

              layout: (LayoutFrame 0 0.0 105 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'