ToolApplicationModel subclass:#ApplicationBuilder

	instanceVariableNames:'task shellView'

	classVariableNames:'Aspects'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!ApplicationBuilder class methodsFor:'documentation'!

documentation

"

    The Application Builder of ST/X allows you to build ST/X-applications by following steps:

        0. Clobber the target directory of the application

        1. Generation of the h-file with symbols

        2. Generation of the c-file with modules

        3. Compilation of the modules init file

        4. Compilation of the startup C-file

        5. Defining of the symbolic links to the libraries

        6. Linking of the libraries to the application

        7. Defining of the symbolic links to the resources

    [instance variables:]

        task           <Process>               task of the running build

        shellView      <ShellView>             shell view for outputing the build results

    [class variables:]

        Aspects        <IdentityDictionary>    aspects of the settings

    [start with:]

        ApplicationBuilder open

    [see also:]

        LibraryBuilder

    [author:]

        Thomas Zwick, eXept Software AG

"

! !

!ApplicationBuilder class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

     UIHelpTool openOnClass:ApplicationBuilder    

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#applicationLinkDefines

'Opens a dialog to define the link defines for the application.'

#applicationName

'Name of the application.'

#build

'Starts the process of building the application.'

#buildDate

'Build date of the application.'

#configuration

'Configuration information of the application.'

#libraryDirectory

'Directory of the ST/X libraries.'

#start

'Start the build application.'

#startupCFile

'Startup C-file of ST/X for the application.'

#startupFile

'Startup C-file of ST/X for the application.'

#startupMessage

'Startup message consisting of the class name and the selector name.'

#startupModule

'Startup module of ST/X for the application.'

#stop

'Stops the process of application building.'

#stxLibraries

'List of the ST/X library names.'

#symlinkBitmaps

'Create symbolic links to the bitmaps of ST/X.'

#symlinkRCFiles

'Create symbolic links to the RC-files of ST/X.'

#symlinkResources

'Create symbolic links to the resources of ST/X.'

#symlinkSources

'Create symbolic links to the sources of ST/X.'

#systemLibaries

'Libraries of the operating system needed by the application.'

#targetDirectory

'Target directory of the application.'

#topDirectory

'Top directory of ST/X.'

#userLibraries

'Libraries of the user wanted to add to the application.'

)

! !

!ApplicationBuilder class methodsFor:'interface specs'!

windowSpec

    "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:ApplicationBuilder andSelector:#windowSpec

     ApplicationBuilder new openInterface:#windowSpec

     ApplicationBuilder open

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'Application Builder'

              #layout: #(#LayoutFrame 37 0 199 0 536 0 658 0)

              #label: 'Application Builder'

              #min: #(#Point 420 220)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 37 199 537 659)

              #menu: #menu

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#ViewSpec

                    #name: 'Box1'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#ViewSpec

                              #name: 'Box2'

                              #layout: #(#LayoutFrame 0 0.0 0 0.0 -148 1.0 2 1.0)

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#LabelSpec

                                        #name: 'applicationNameLabel'

                                        #layout: #(#AlignmentOrigin 147 0 15 0 1 0.5)

                                        #label: 'Application Name:'

                                        #adjust: #right

                                    )

                                     #(#InputFieldSpec

                                        #name: 'applicationNameField'

                                        #layout: #(#LayoutFrame 150 0 4 0 0 1 26 0)

                                        #activeHelpKey: #applicationName

                                        #model: #applicationName

                                    )

                                     #(#LabelSpec

                                        #name: 'startupMessageLabel'

                                        #layout: #(#AlignmentOrigin 147 0 39 0 1 0.5)

                                        #label: 'Startup Message:'

                                        #adjust: #right

                                    )

                                     #(#InputFieldSpec

                                        #name: 'startupMessageField'

                                        #layout: #(#LayoutFrame 150 0 28 0 0 1.0 50 0)

                                        #activeHelpKey: #startupMessage

                                        #model: #startupMessage

                                    )

                                     #(#LabelSpec

                                        #name: 'buildDateLabel'

                                        #layout: #(#AlignmentOrigin 147 0 63 0 1 0.5)

                                        #label: 'Build Date:'

                                        #adjust: #right

                                    )

                                     #(#InputFieldSpec

                                        #name: 'buildDateField'

                                        #layout: #(#LayoutFrame 150 0 52 0 0 1.0 74 0)

                                        #activeHelpKey: #buildDate

                                        #model: #buildDate

                                    )

                                     #(#LabelSpec

                                        #name: 'configurationLabel'

                                        #layout: #(#AlignmentOrigin 147 0 87 0 1 0.5)

                                        #label: 'Configuration:'

                                        #adjust: #right

                                    )

                                     #(#InputFieldSpec

                                        #name: 'configurationField'

                                        #layout: #(#LayoutFrame 150 0 76 0 0 1.0 98 0)

                                        #activeHelpKey: #configuration

                                        #model: #configuration

                                    )

                                     #(#DividerSpec

                                        #name: 'divider1'

                                        #layout: #(#LayoutFrame 0 0 102 0 0 1 105 0)

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'targetDirectoryButton'

                                        #layout: #(#LayoutFrame 4 0 109 0 147 0 133 0)

                                        #label: 'Target Directory:'

                                        #model: #doSelectDirectory:

                                        #actionValue: 'Target'

                                    )

                                     #(#InputFieldSpec

                                        #name: 'targetDirectoryField'

                                        #layout: #(#LayoutFrame 150 0 109 0 0 1.0 131 0)

                                        #activeHelpKey: #targetDirectory

                                        #model: #targetDirectory

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'topDirectoryButton'

                                        #layout: #(#LayoutFrame 4 0 133 0 147 0 157 0)

                                        #label: 'Top Directory:'

                                        #model: #doSelectDirectory:

                                        #actionValue: 'Top'

                                    )

                                     #(#InputFieldSpec

                                        #name: 'topDirectoryField'

                                        #layout: #(#LayoutFrame 150 0 133 0 0 1.0 155 0)

                                        #activeHelpKey: #topDirectory

                                        #model: #topDirectory

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'libraryDirectoryButton'

                                        #layout: #(#LayoutFrame 4 0 157 0 147 0 181 0)

                                        #label: 'Library Directory:'

                                        #model: #doSelectDirectory:

                                        #actionValue: 'Library'

                                    )

                                     #(#InputFieldSpec

                                        #name: 'libraryDirectoryField'

                                        #layout: #(#LayoutFrame 150 0 157 0 0 1.0 179 0)

                                        #activeHelpKey: #libraryDirectory

                                        #model: #libraryDirectory

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'startupCFileButton'

                                        #layout: #(#LayoutFrame 4 0 181 0 147 0 205 0)

                                        #label: 'Startup C-File:'

                                        #model: #doSelectCFile:

                                        #actionValue: 'StartupCFile'

                                    )

                                     #(#InputFieldSpec

                                        #name: 'startupCFileField'

                                        #layout: #(#LayoutFrame 150 0 181 0 0 1.0 203 0)

                                        #activeHelpKey: #startupModule

                                        #model: #startupCFile

                                    )

                                     #(#DividerSpec

                                        #name: 'divider2'

                                        #layout: #(#LayoutFrame 0 0.0 208 0 0 1.0 211 0)

                                    )

                                     #(#LabelSpec

                                        #name: 'stxLibraryButton'

                                        #layout: #(#LayoutFrame 4 0 215 0 147 0 239 0)

                                        #label: 'ST/X Libraries:'

                                    )

                                     #(#ComboBoxSpec

                                        #name: 'stxLibrariesComboBox'

                                        #layout: #(#LayoutFrame 150 0 216 0 0 1 238 0)

                                        #activeHelpKey: #stxLibraries

                                        #model: #stxLibrary

                                        #immediateAccept: false

                                        #acceptOnTab: false

                                        #comboList: #stxLibraries

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'systemLibrariesButton'

                                        #layout: #(#LayoutFrame 4 0 239 0 147 0 263 0)

                                        #label: 'System Libraries:'

                                        #model: #doSelectLibrary:

                                        #actionValue: 'SystemLibrary'

                                    )

                                     #(#ComboBoxSpec

                                        #name: 'systemLibrariesComboBox'

                                        #layout: #(#LayoutFrame 150 0 240 0 0 1 262 0)

                                        #activeHelpKey: #systemLibaries

                                        #model: #systemLibrary

                                        #immediateAccept: false

                                        #acceptOnTab: false

                                        #comboList: #systemLibraries

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'userLibrariesButton'

                                        #layout: #(#LayoutFrame 4 0 263 0 147 0 287 0)

                                        #label: 'User Libraries:'

                                        #model: #doSelectLibrary:

                                        #actionValue: 'UserLibrary'

                                    )

                                     #(#ComboBoxSpec

                                        #name: 'userLibrariesComboBox'

                                        #layout: #(#LayoutFrame 150 0 264 0 0 1 286 0)

                                        #activeHelpKey: #userLibraries

                                        #model: #userLibrary

                                        #immediateAccept: false

                                        #acceptOnTab: false

                                        #comboList: #userLibraries

                                    )

                                  )

                              )

                          )

                           #(#ViewSpec

                              #name: 'Box3'

                              #layout: #(#LayoutFrame -134 1 0 0.0 0 1.0 0 1.0)

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#FramedBoxSpec

                                        #name: 'FramedBox'

                                        #layout: #(#LayoutFrame -4 0.0 0 0.0 0 1.0 -98 1.0)

                                        #component: 

                                         #(#SpecCollection

                                            #collection: 

                                             #(

                                               #(#CheckBoxSpec

                                                  #name: 'linkRCFilesCheckBox'

                                                  #layout: #(#LayoutFrame 12 0 24 0 12 1 46 0)

                                                  #activeHelpKey: #symlinkRCFiles

                                                  #model: #linkRCFiles

                                                  #label: 'RC-Files'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'linkResourcesCheckBox'

                                                  #layout: #(#LayoutFrame 12 0 48 0 12 1 70 0)

                                                  #activeHelpKey: #symlinkResources

                                                  #model: #linkResources

                                                  #label: 'Resources'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'linkSourcesCheckBox'

                                                  #layout: #(#LayoutFrame 12 0 72 0 12 1 94 0)

                                                  #activeHelpKey: #symlinkSources

                                                  #model: #linkSources

                                                  #label: 'Sources'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'linkBitmapsCheckBox'

                                                  #layout: #(#LayoutFrame 12 0 96 0 12 1 118 0)

                                                  #activeHelpKey: #symlinkBitmaps

                                                  #model: #linkBitmaps

                                                  #label: 'Bitmaps'

                                              )

                                            )

                                        )

                                        #label: 'Symbolic Links'

                                        #labelPosition: #topLeft

                                    )

                                     #(#VerticalPanelViewSpec

                                        #name: 'VerticalPanel'

                                        #layout: #(#LayoutFrame 0 0.0 -90 1 -6 1.0 0 1.0)

                                        #component: 

                                         #(#SpecCollection

                                            #collection: 

                                             #(

                                               #(#ActionButtonSpec

                                                  #name: 'buildButton'

                                                  #activeHelpKey: #build

                                                  #label: 'Build'

                                                  #model: #doBuild

                                                  #extent: #(#Point 128 28)

                                              )

                                               #(#ActionButtonSpec

                                                  #name: 'stopButton'

                                                  #activeHelpKey: #stop

                                                  #label: 'Stop'

                                                  #model: #doStop

                                                  #extent: #(#Point 128 28)

                                              )

                                               #(#ActionButtonSpec

                                                  #name: 'Button1'

                                                  #activeHelpKey: #start

                                                  #label: 'Start'

                                                  #model: #doStart

                                                  #extent: #(#Point 128 28)

                                              )

                                            )

                                        )

                                        #horizontalLayout: #fit

                                        #verticalLayout: #fit

                                        #horizontalSpace: 3

                                        #verticalSpace: 3

                                    )

                                  )

                              )

                          )

                           #(#DividerSpec

                              #name: 'Separator1'

                              #layout: #(#LayoutFrame -144 1 0 0.0 -138 1 0 1.0)

                              #orientation: #vertical

                          )

                        )

                    )

                )

                 #(#DividerSpec

                    #name: 'Separator2'

                    #layout: #(#LayoutFrame 0 0.0 290 0 0 1.0 293 0)

                )

                 #(#SubCanvasSpec

                    #name: 'SubCanvas'

                    #layout: #(#LayoutFrame 0 0.0 296 0 0 1.0 -26 1)

                    #hasHorizontalScrollBar: false

                    #hasVerticalScrollBar: false

                    #clientHolder: #shellView

                )

                 #(#UISubSpecification

                    #name: 'windowSpecForInfoBar'

                    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)

                    #majorKey: #ToolApplicationModel

                    #minorKey: #windowSpecForInfoBar

                )

              )

          )

      )

! !

!ApplicationBuilder class methodsFor:'menu specs'!

menu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:ApplicationBuilder andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(ApplicationBuilder menu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #label: 'File'

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Build'

                          #value: #doBuild

                          #activeHelpKey: #build

                      )

                       #(#MenuItem

                          #label: 'Stop'

                          #value: #doStop

                          #activeHelpKey: #stop

                      )

                       #(#MenuItem

                          #label: 'Start'

                          #value: #doStart

                          #activeHelpKey: #start

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #value: #closeRequest

                          #activeHelpKey: #fileExit

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Settings'

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Target Directory...'

                          #value: #doSelectDirectory:

                          #activeHelpKey: #targetDirectory

                          #argument: 'Target'

                      )

                       #(#MenuItem

                          #label: 'Top Directory...'

                          #value: #doSelectDirectory:

                          #activeHelpKey: #topDirectory

                          #argument: 'Top'

                      )

                       #(#MenuItem

                          #label: 'Library Directory...'

                          #value: #doSelectDirectory:

                          #activeHelpKey: #libraryDirectory

                          #argument: 'Library'

                      )

                       #(#MenuItem

                          #label: 'Startup C-File...'

                          #value: #doSelectCFile:

                          #activeHelpKey: #startupCFile

                          #argument: 'StartupCFile'

                      )

                       #(#MenuItem