"{ Package: 'stx:libtool2' }"

"{ NameSpace: Tools }"

AssistantApplication subclass:#ProjectBuilderAssistantApplication

	instanceVariableNames:'packageToBuildHolder projectType selectedProjectIndexHolder

		selectedProjectDefinition listOfMatchingProjects

		selectedProjectsComment newProjectsName hideSTXProjects

		startMakeButtonEnabled stopMakeButtonVisible makeOutputHolder

		newApplicationsName selectedApplicationIndexHolder

		selectedApplication listOfApplicationsInProject

		selectedApplicationsComment buildDirectoryHolder makeProcess

		listOfClassesInProject'

	classVariableNames:''

	poolDictionaries:''

	category:'System-Support-Projects'

!

!ProjectBuilderAssistantApplication class methodsFor:'interface specs'!

_1_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:ProjectBuilderAssistantApplication andSelector:#_1_projectTypeSelectionSpec

     ProjectBuilderAssistantApplication new openInterface:#_1_projectTypeSelectionSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'_1_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: projectType

                          isTriggerOnDown: true

                          onCallBackSelector: projectTypeChanged

                          select: guiApplicationType

                          extent: (Point 136 22)

                        )

                       (RadioButtonSpec

                          label: 'Non-GUI Application'

                          name: 'RadioButton2'

                          translateLabel: true

                          model: projectType

                          isTriggerOnDown: true

                          onCallBackSelector: projectTypeChanged

                          select: nonGuiApplicationType

                          extent: (Point 136 22)

                        )

                       (RadioButtonSpec

                          label: 'Class Library'

                          name: 'RadioButton3'

                          translateLabel: true

                          model: projectType

                          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 397 0)

              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 275 0 4 1)

                    model: hideSTXProjects

                    translateLabel: true

                  )

                 )

              )

            )

           )

        )

      )

!

_2_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:ProjectBuilderAssistantApplication andSelector:#_2_projectSelectionSpec

     ProjectBuilderAssistantApplication new openInterface:#_2_projectSelectionSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'_2_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 210 0 28 0)

                    model: newProjectsName

                    acceptOnReturn: true

                    acceptOnTab: true

                    acceptOnPointerLeave: true

                    emptyFieldReplacementText: 'module:directory'

                  )

                 (ActionButtonSpec

                    label: 'Create'

                    name: 'Button1'

                    layout: (LayoutFrame 216 0 6 0 341 0 28 0)

                    translateLabel: true

                    model: createNewProject

                  )

                 )

              )

            )

           (FramedBoxSpec

              label: 'Existing Projects'

              name: 'FramedBox4'

              layout: (LayoutFrame 0 0.0 70 0 4 1.0 362 0)

              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 275 0 5 1)

                    model: hideSTXProjects

                    translateLabel: true

                  )

                 )

              )

            )

           (ActionButtonSpec

              label: 'Browse Selected Project'

              name: 'Button3'

              layout: (LayoutFrame 9 0 363 0 189 0 385 0)

              translateLabel: true

              model: doBrowseProject

            )

           )

        )

      )

!

_3_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:ProjectBuilderAssistantApplication andSelector:#_3_applicationSelectionSpec

     ProjectBuilderAssistantApplication new openInterface:#_3_applicationSelectionSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'_3_applicationSelectionSpec'

        window: 

       (WindowSpec

          label: 'Application Selection'

          name: 'Application 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 210 0 28 0)

                    model: newApplicationsName

                    acceptOnReturn: true

                    acceptOnTab: true

                    acceptOnPointerLeave: true

                    emptyFieldReplacementText: 'MyApplication'

                  )

                 (ActionButtonSpec

                    label: 'Create'

                    name: 'Button1'

                    layout: (LayoutFrame 216 0 6 0 341 0 28 0)

                    translateLabel: true

                    model: createNewApplication

                  )

                 )

              )

            )

           (FramedBoxSpec

              label: 'Existing Applications'

              name: 'FramedBox4'

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

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (VariableHorizontalPanelSpec

                    name: 'VariableHorizontalPanel2'

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

                    component: 

                   (SpecCollection

                      collection: (

                       (SequenceViewSpec

                          name: 'List2'

                          model: selectedApplicationIndexHolder

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          useIndex: true

                          sequenceList: listOfApplicationsInProject

                        )

                       (TextEditorSpec

                          name: 'TextEditor2'

                          model: selectedApplicationsComment

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          isReadOnly: true

                          hasKeyboardFocusInitially: false

                          viewClassName: 'TextView'

                        )

                       )

                    )

                    handles: (Any 0.34560327198364 1.0)

                  )

                 )

              )

            )

           (ActionButtonSpec

              label: 'Browse Selected Application'

              name: 'Button3'

              layout: (LayoutFrame 9 0 363 0 189 0 385 0)

              translateLabel: true

              model: doBrowseApplication

            )

           )

        )

      )

!

_4_specifyIncludedClasses

    "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:ProjectBuilderAssistantApplication andSelector:#_4_specifyIncludedClasses

     ProjectBuilderAssistantApplication new openInterface:#_4_specifyIncludedClasses

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'_4_specifyIncludedClasses'

        window: 

       (WindowSpec

          label: 'Project Selection'

          name: 'Project Selection'

          min: (Point 0 0)

          bounds: (Rectangle 0 0 521 400)

        )

        component: 

       (SpecCollection

          collection: (

           (FramedBoxSpec

              label: 'Project Contents'

              name: 'FramedBox3'

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

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (SequenceViewSpec

                    name: 'List1'

                    layout: (LayoutFrame 0 0 0 0 0 1 0 1)

                    initiallyDisabled: true

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    useIndex: false

                    sequenceList: listOfClassesInProject

                  )

                 )

              )

            )

           (ActionButtonSpec

              label: 'Browse Project Definition'

              name: 'Button3'

              layout: (LayoutFrame 9 0 363 0 189 0 385 0)

              translateLabel: true

              model: doBrowseProject

            )

           (ActionButtonSpec

              label: 'Update Contents (Scan)'

              name: 'Button4'

              layout: (LayoutFrame 293 0 363 0 473 0 385 0)

              translateLabel: true

              model: doUpdateProjectContents

            )

           )

        )

      )

!

_5_specifyBuildDirectorySpec

    "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:ProjectBuilderAssistantApplication andSelector:#_5_specifyBuildDirectorySpec

     ProjectBuilderAssistantApplication new openInterface:#_5_specifyBuildDirectorySpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'_5_specifyBuildDirectorySpec'

        window: 

       (WindowSpec

          label: 'Project Selection'

          name: 'Project Selection'

          min: (Point 0 0)

          bounds: (Rectangle 0 0 521 104)

        )

        component: 

       (SpecCollection

          collection: (

           (FramedBoxSpec

              label: 'Build Directory'

              name: 'FramedBox3'

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

              labelPosition: topLeft

              translateLabel: true

              component: 

             (SpecCollection

                collection: (

                 (FilenameInputFieldSpec

                    name: 'FilenameEntryField1'

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

                    model: buildDirectoryHolder

                    acceptOnPointerLeave: true

                    viewClassName: FilenameWidgetWithHistory

                  )

                 )

              )

            )

           )

        )

      )

!

_6_buildSpec

    "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:ProjectBuilderAssistantApplication andSelector:#_6_buildSpec

     ProjectBuilderAssistantApplication new openInterface:#_6_buildSpec

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: #'_6_buildSpec'

        window: