ApplicationBuilder subclass:#LibraryBuilder

	instanceVariableNames:'allClasses classSelectionBlock'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

!LibraryBuilder class methodsFor:'documentation'!

documentation

"

    The Library Builder of ST/X allows you to build ST/X-libraries by following steps:

        1. File out the source code of all library classes

    [start with:]

        LibraryBuilder open

    [see also:]

        ApplicationBuilder

    [author:]

        Thomas Zwick, eXept Software AG

"

! !

!LibraryBuilder 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:LibraryBuilder    

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#addRemoveClasses

#findClass

'Find the class with the first known letters.'

#inlineNew

'Additionally inline new.'

#libraryClasses

'Classes of the library.'

#libraryName

'Name of the library.'

#optinline

'Generate optimized inline code.'

#optspace

'Optimize for space.'

#optspace2

'Optimize more for space.'

#optspace3

'Optimize even more for space.'

#stxClasses

'Classes of the ST/X.'

)

! !

!LibraryBuilder 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:LibraryBuilder andSelector:#windowSpec

     LibraryBuilder new openInterface:#windowSpec

     LibraryBuilder open

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #min: #(#Point 420 220)

              #max: #(#Point 1152 900)

              #menu: #menu

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#ViewSpec

                    #name: 'Box1'

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#ViewSpec

                              #name: 'Box2'

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#LabelSpec

                                        #name: 'libraryNameLabel'

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

                                        #label: 'Library Name:'

                                        #adjust: #right

                                    )

                                     #(#InputFieldSpec

                                        #name: 'libraryNameField'

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

                                        #activeHelpKey: #libraryName

                                        #model: #libraryName

                                    )

                                     #(#DividerSpec

                                        #name: 'Separator2'

                                        #layout: #(#LayoutFrame 0 0 28 0 0 1 31 0)

                                    )

                                     #(#LabelSpec

                                        #name: 'libraryClassesLabel'

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

                                        #label: 'Library Classes:'

                                        #adjust: #right

                                    )

                                     #(#SequenceViewSpec

                                        #activeHelpKey: #libraryClasses

                                        #model: #selectionOfLibraryClasses

                                        #hasHorizontalScrollBar: true

                                        #hasVerticalScrollBar: true

                                        #miniScrollerVertical: true

                                        #isMultiSelect: true

                                        #useIndex: false

                                        #sequenceList: #libraryClasses

                                    )

                                     #(#UpDownButtonSpec

                                        #activeHelpKey: #addRemoveClasses

                                        #orientation: #horizontal

                                        #upAction: #removeLibraryClasses

                                        #downAction: #addLibraryClasses

                                        #upArgument: ''

                                    )

                                     #(#DividerSpec

                                        #name: 'Separator3'

                                        #layout: #(#LayoutFrame 0 0 196 0 0 1 199 0)

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'targetDirectoryButton'

                                        #layout: #(#LayoutFrame 4 0 204 0 147 0 228 0)

                                        #label: 'Target Directory:'

                                        #model: #doSelectDirectory:

                                        #actionValue: 'Target'

                                    )

                                     #(#InputFieldSpec

                                        #name: 'targetDirectoryField'

                                        #layout: #(#LayoutFrame 150 0 205 0 0 1.0 227 0)

                                        #activeHelpKey: #targetDirectory

                                        #model: #targetDirectory

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'topDirectoryButton'

                                        #layout: #(#LayoutFrame 4 0 228 0 147 0 252 0)

                                        #label: 'Top Directory:'

                                        #model: #doSelectDirectory:

                                        #actionValue: 'Top'

                                    )

                                     #(#InputFieldSpec

                                        #name: 'topDirectoryField'

                                        #layout: #(#LayoutFrame 150 0 229 0 0 1.0 251 0)

                                        #activeHelpKey: #topDirectory

                                        #model: #topDirectory

                                    )

                                     #(#DividerSpec

                                        #name: 'Separator4'

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'systemLibrariesButton'

                                        #label: 'System Libraries:'

                                        #model: #doSelectLibrary:

                                        #actionValue: 'SystemLibrary'

                                    )

                                     #(#ComboBoxSpec

                                        #name: 'systemLibrariesComboBox'

                                        #activeHelpKey: #systemLibaries

                                        #model: #systemLibrary

                                        #immediateAccept: false

                                        #acceptOnTab: false

                                        #comboList: #systemLibraries

                                    )

                                  )

                              )

                          )

                           #(#DividerSpec

                              #name: 'Separator5'

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

                              #orientation: #vertical

                          )

                           #(#ViewSpec

                              #name: 'Box3'

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

                              #component: 

                               #(#SpecCollection

                                  #collection: 

                                   #(

                                     #(#FramedBoxSpec

                                        #name: 'FramedBox'

                                        #component: 

                                         #(#SpecCollection

                                            #collection: 

                                             #(

                                               #(#CheckBoxSpec

                                                  #name: 'spaceCheckBox'

                                                  #activeHelpKey: #optspace

                                                  #model: #optspace

                                                  #label: 'Space'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'space2CheckBox'

                                                  #activeHelpKey: #optspace2

                                                  #model: #optspace2

                                                  #label: 'Space2'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'space3CheckBox'

                                                  #activeHelpKey: #optspace3

                                                  #model: #optspace3

                                                  #label: 'Space3'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'inlineCheckBox'

                                                  #activeHelpKey: #optinline

                                                  #model: #optinline

                                                  #label: 'Inline'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'inlineNewCheckBox'

                                                  #activeHelpKey: #inlineNew

                                                  #model: #inlineNew

                                                  #label: 'Inline New'

                                              )

                                            )

                                        )

                                        #labelPosition: #topLeft

                                    )

                                     #(#VerticalPanelViewSpec

                                        #name: 'VerticalPanel'

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

                                        #component: 

                                         #(#SpecCollection

                                            #collection: 

                                             #(

                                               #(#ActionButtonSpec

                                                  #name: 'buildButton'

                                                  #activeHelpKey: #build

                                                  #label: 'Build'

                                                  #model: #doBuild

                                                  #extent: #(#Point 128 32)

                                              )

                                               #(#ActionButtonSpec

                                                  #name: 'stopButton'

                                                  #activeHelpKey: #stop

                                                  #label: 'Stop'

                                                  #model: #doStop

                                                  #extent: #(#Point 128 31)

                                              )

                                            )

                                        )

                                        #horizontalLayout: #fit

                                        #verticalLayout: #fit

                                        #horizontalSpace: 3

                                        #verticalSpace: 3

                                    )

                                  )

                              )

                          )

                        )

                    )

                    #borderWidth: 1

                )

                 #(#SubCanvasSpec

                    #name: 'shellViewSubCanvas'

                    #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

                )

              )

          )

      )

! !

!LibraryBuilder 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:LibraryBuilder andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(LibraryBuilder 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: '-'

                      )

                       #(#MenuItem

                      )

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

                      )

                       #(#MenuItem

                          #label: 'System Libraries...'

                          #value: #doSelectLibrary:

                          #activeHelpKey: #systemLibaries

                          #argument: 'SystemLibrary'

                      )