"

 COPYRIGHT (c) 1998 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

ApplicationBuilder subclass:#LibraryBuilder

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools'

!

!LibraryBuilder class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1998 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice. This software may not

 be provided or otherwise made available to, or used by, any

 other person. No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    WARNING: unfinished - do not use.

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

        0. Clobber the target directory of the application

        1. File out the source code of all library classes

        2. Link the source code of all library classes into the source directory

        3. Generate the file Make.Proto

        4. Generate the file Makefile

        5. Make the library

    [start with:]

        LibraryBuilder open

    [see also:]

        ApplicationBuilder

    [author:]

        Thomas Zwick, eXept Software AG

"

! !

!LibraryBuilder class methodsFor:'accessing'!

label

   ^'Library Builder (experimental)'

! !

!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:#(

#addLibraryClasses

'Adds the selected classes to the list of library classes.'

#fileOutClasses

'Files out the source code of the selected library classes.'

#findClass

'Find the class with the first known letters.'

#inlineNew

'Additionally inline new.'

#libraryClasses

'Classes of the library.'

#libraryName

'Name of the library.'

#linkSources

'Creates links in the source directory to the source files of the library classes.'

#optinline

'Generate optimized inline code.'

#optspace

'Optimize for space.'

#optspace2

'Optimize more for space.'

#optspace3

'Optimize even more for space.'

#removeLibraryClasses

'Removes the selected library classes.'

#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

              #name: 'Library Builder (experimental)'

              #layout: #(#LayoutFrame 15 0 222 0 514 0 681 0)

              #label: 'Library Builder (experimental)'

              #min: #(#Point 420 220)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 15 222 515 682)

              #menu: #menu

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#ViewSpec

                    #name: 'Box1'

                    #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 316 0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#ViewSpec

                              #name: 'Box2'

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

                              #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

                                        #name: 'libraryClassesList'

                                        #layout: #(#LayoutFrame 0 0.6 56 0 0 1.0 195 0)

                                        #activeHelpKey: #libraryClasses

                                        #model: #selectionOfLibraryClasses

                                        #hasHorizontalScrollBar: true

                                        #hasVerticalScrollBar: true

                                        #miniScrollerVertical: true

                                        #backgroundColor: #(#Color 100.0 74.9996 49.9992)

                                        #isMultiSelect: true

                                        #useIndex: false

                                        #sequenceList: #libraryClasses

                                    )

                                     #(#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)

                                        #activeHelpKey: #selectPath

                                        #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)

                                        #activeHelpKey: #selectPath

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

                                        #layout: #(#LayoutFrame 0 0.0 278 0 0 1.0 281 0)

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'systemLibrariesButton'

                                        #layout: #(#LayoutFrame 4 0 285 0 147 0 309 0)

                                        #activeHelpKey: #selectPath

                                        #label: 'System Libraries:'

                                        #model: #doSelectLibrary:

                                        #actionValue: 'SystemLibrary'

                                    )

                                     #(#ComboBoxSpec

                                        #name: 'systemLibrariesComboBox'

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

                                        #activeHelpKey: #systemLibaries

                                        #model: #systemLibrary

                                        #immediateAccept: false

                                        #acceptOnTab: false

                                        #comboList: #systemLibraries

                                    )

                                     #(#SequenceViewSpec

                                        #name: 'listOfCategoriesList'

                                        #layout: #(#LayoutFrame 0 0.0 56 0 0 0.3 195 0)

                                        #activeHelpKey: #libraryClasses

                                        #model: #selectionOfCategory

                                        #hasHorizontalScrollBar: true

                                        #hasVerticalScrollBar: true

                                        #miniScrollerVertical: true

                                        #backgroundColor: #(#Color 86.9993 86.9993 86.9993)

                                        #useIndex: false

                                        #sequenceList: #listOfCategories

                                    )

                                     #(#SequenceViewSpec

                                        #name: 'listOfClassesList'

                                        #layout: #(#LayoutFrame 0 0.3 56 0 0 0.6 195 0)

                                        #activeHelpKey: #libraryClasses

                                        #model: #selectionOfClasses

                                        #hasHorizontalScrollBar: true

                                        #hasVerticalScrollBar: true

                                        #miniScrollerVertical: true

                                        #backgroundColor: #(#Color 86.9993 86.9993 86.9993)

                                        #isMultiSelect: true

                                        #useIndex: false

                                        #sequenceList: #listOfClasses

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'sourceDirectoryButton1'

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

                                        #activeHelpKey: #selectPath

                                        #label: 'Source Directory:'

                                        #model: #doSelectDirectory:

                                        #actionValue: 'Source'

                                    )

                                     #(#InputFieldSpec

                                        #name: 'sourceDirectoryField'

                                        #layout: #(#LayoutFrame 150 0 253 0 0 1.0 275 0)

                                        #activeHelpKey: #sourceDirectory

                                        #model: #sourceDirectory

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'removeButton'

                                        #layout: #(#LayoutFrame -32 0.6 34 0 -1 0.6 56 0)

                                        #activeHelpKey: #removeLibraryClasses

                                        #hasCharacterOrientedLabel: false

                                        #label: 'leftIcon'

                                        #model: #removeLibraryClasses

                                    )

                                     #(#ActionButtonSpec

                                        #name: 'addButton'

                                        #layout: #(#LayoutFrame 1 0.6 34 0 32 0.6 56 0)

                                        #activeHelpKey: #addLibraryClasses

                                        #hasCharacterOrientedLabel: false

                                        #label: 'rightIcon'

                                        #model: #addLibraryClasses

                                    )

                                  )

                              )

                          )

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

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

                                        #component: 

                                         #(#SpecCollection

                                            #collection: 

                                             #(

                                               #(#CheckBoxSpec

                                                  #name: 'spaceCheckBox'

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

                                                  #activeHelpKey: #optspace

                                                  #model: #optspace

                                                  #label: 'Space'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'space2CheckBox'

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

                                                  #activeHelpKey: #optspace2

                                                  #model: #optspace2

                                                  #label: 'Space2'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'space3CheckBox'

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

                                                  #activeHelpKey: #optspace3

                                                  #model: #optspace3

                                                  #label: 'Space3'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'inlineCheckBox'

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

                                                  #activeHelpKey: #optinline

                                                  #model: #optinline

                                                  #label: 'Inline'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'inlineNewCheckBox'

                                                  #layout: #(#LayoutFrame 12 0 120 0 21 1 142 0)

                                                  #activeHelpKey: #inlineNew

                                                  #model: #inlineNew

                                                  #label: 'Inline New'

                                              )

                                               #(#CheckBoxSpec

                                                  #name: 'linkSourcesCheckBox'

                                                  #layout: #(#LayoutFrame 12 0 144 0 21 1 166 0)

                                                  #activeHelpKey: #linkSources

                                                  #model: #linkSources

                                                  #label: 'Link Sources'

                                              )

                                            )

                                        )

                                        #label: 'Options'

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

                    #layout: #(#LayoutFrame 0 0.0 318 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

                )

              )

          )

      )

! !

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

                #labelImage: #(#ResourceRetriever nil #menuIcon)

                #submenuChannel: #menuAbout

            )

             #(#MenuItem

                #label: 'File'

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Load...'

                          #value: #doLoad

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #value: #doSaveAs

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #value: #closeRequest

                          #activeHelpKey: #fileExit

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Library'

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Build'