"{ Package: 'stx:libtool2' }"

"{ NameSpace: Tools }"

AssistantApplication subclass:#ProjectBuilderAssistantApplication

	instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder

		selectedProjectIndexHolder selectedProjectDefinition

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

	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:'defaults'!

defaultIcon

    ^ ToolbarIconLibrary projectBuilderIcon

!

windowLabelTemplate

    ^ 'ST/X Packager: %1'

! !

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

              name: 'FramedBox2'

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

                        )

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

              name: 'FramedBox3'

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

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (InputFieldSpec

                    name: 'EntryField1'

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

                    model: newProjectsName

                    acceptOnReturn: true

                    acceptOnTab: true

                    acceptOnPointerLeave: true

                    emptyFieldReplacementText: 'module:directory'

                  )

                 (ActionButtonSpec

                    label: 'Create'

                    name: 'Button1'

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

                    translateLabel: true

                    model: createNewProject

                  )

                 )

              )

            )

           (FramedBoxSpec

              label: 'Existing Projects'

              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: listOfMatchingProjects

                        )

                       (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

                    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'

                          model: selectedApplicationIndexHolder

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          useIndex: true

                          sequenceList: listOfApplicationsInProject

                          ignoreReselect: false

                        )

                       (TextEditorSpec

                          name: 'TextEditor2'

                          model: selectedApplicationsComment

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          isReadOnly: true

                          hasKeyboardFocusInitially: false

                          viewClassName: 'TextView'

                        )

                       )

                    )

                    handles: (Any 0.34560327198364 1.0)

                  )

                 (CheckBoxSpec

                    label: 'Hide other Application Classes'

                    name: 'CheckBox1'

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

                    model: hideOtherApplicationClasses

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

                    name: 'Button3'

                    translateLabel: true

                    model: doBrowseApplication

                    enableChannel: hasApplicationSelectedHolder

                    extent: (Point 180 22)

                  )

                 (ActionButtonSpec

                    label: 'Launch Selected Application'

                    name: 'Button4'

                    translateLabel: true

                    model: doLaunchApplication

                    enableChannel: hasApplicationSelectedHolder

                    extent: (Point 180 22)

                  )

                 )

              )

            )

           )

        )

      )

!

page4_startupClassSelectionSpec

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

     Tools::ProjectBuilderAssistantApplication new openInterface:#page4_startupClassSelectionSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'page4_startupClassSelectionSpec'

        window: 

       (WindowSpec

          label: 'Startup Class Selection'

          name: 'Startup Class Selection'

          min: (Point 0 0)

          bounds: (Rectangle 0 0 521 408)

        )

        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: newStartupClassName

                    acceptOnReturn: true

                    acceptOnTab: true

                    acceptOnPointerLeave: true

                    emptyFieldReplacementText: 'MyStandAloneStartup'

                  )

                 (ActionButtonSpec