"{ Package: 'stx:libtool2' }"

"{ NameSpace: Tools }"

AssistantApplication subclass:#ProjectBuilderAssistantApplication

	instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder

		selectedProjectIndexHolder selectedProjectDefinition

		listOfMatchingProjects selectedProjectsComment

		hasProjectSelectedHolder newProjectsName hideSTXProjects

		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:'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 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: 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 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)

                  )

                 )

              )

            )

           (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

                    label: 'Create'

                    name: 'Button1'

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

                    translateLabel: true

                    model: createNewStartupClass

                  )

                 )

              )