"

 COPYRIGHT (c) 1999 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.

"

ToolApplicationModel subclass:#ProjectBrowser

	instanceVariableNames:'projectTree modifiedChannel selectedTreeNodeHolder'

	classVariableNames:'AlreadCheckedExistingModulesAndPackages'

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

TreeItemWithImage subclass:#ProjectTreeItem

	instanceVariableNames:'action spec info'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ProjectBrowser

!

ProjectBrowser::ProjectTreeItem subclass:#ProjectNode

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ProjectBrowser

!

!ProjectBrowser class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1999 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

"

    The new project browser & builder.

    This one will (eventually) make packaging of classLibraries and

    applications easier. 

    EXPERIMENTAL: not finished.

    [start with:]

        ProjectBrowser open

    [see also:]

        Project

    [author:]

        Claus Gittinger, eXept Software AG

"

! !

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

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#accept

'Accept modifications made here.'

#appType

'An application - ie an executable program (and support files if any).'

#cancel

'Undo modifications made here.'

#defaultNamespace

'Namespace for new classes when created in the Browser.'

'Package delivery into a gzip archive (for unix)'

'Package delivery into a tar archive (for unix)'

'Package delivery into a zip archive (for win32)'

'Create and deliver as compiled binary (classLibrary) - will only execute on the running systems architecture.'

#deliverByteCode

'Create and deliver as bytecode - portable across architectures.'

#deliverLoadAll

'Deliver a loadAll script file, which files-In the other files.'

'Include smalltalk sourceCode in the delivery.'

#includeSource

'Include smalltalk sourceCode in the delivery.'

#installDirMacOS

'The final install directory for MacOS deliveries.'

#installDirUnix

'The final install directory for UNIX deliveries.'

#installDirVMS

'The final install directory for VMS deliveries.'

#installDirWin32

'The final install directory for Win32 deliveries.'

#libType

'A classLibrary addOn (and support files if any)'

#methodsFile

'Patches & Extensions are stored in this file.'

#packageID

'Package ID used to associate classes & methods to this project.'

#projectDir

'The projects directory.'

#repositoryDirectory

'The directory path below the module in the source-repository.'

#repositoryModule

'The module (top directory) in the source-repository.'

)

! !

!ProjectBrowser class methodsFor:'image specs'!

classIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self classIcon inspect

     ImageEditor openOnClass:self andSelector:#classIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser classIcon'

        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'H"H"H"H"H"@"H"H"H"H"HBH@@@@@@@H H H!!DQD"@"@"@@@@@@@BHBHBH"H"H H H HQDQDR@@@@@@@@@@@@@@@BH"H"H @@@@HQDQDR@@@@@"H"H"HBHBHBDQDQD H H H"H"H"@"@"@@@@@@@@@BHBH"H"H"H"H H"H"H"H"Hb') ; colorMapFromArray:#[0 0 0 132 130 132 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C?8O? ?>C?8O? ?>C?8O? ?>C?8O? ?>@@@@@@b') ; yourself); yourself]!

classesIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self classesIcon inspect

     ImageEditor openOnClass:self andSelector:#classesIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser classesIcon'

        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@ADA@AD"H"DPDPD@@@@@@@@@@P@QDQDQDA@A@AH"H"HPD@@@DQDQDQ@PD@@@@@@@@A@P@ADQDQDPDA@@DRH"HQ@PD@@QDQDQDA@P@ADQDQDPDA@@@@@@@@@PD@DPDQDQDQ@P@Q@@@@@@@A@ADQ@QDQDQD@DQD@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 132 130 132]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O?8??#??/?>??;??/?>??;??/?>O?8?? ?>C?8b') ; yourself); yourself]!

commentIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self commentIcon inspect

     ImageEditor openOnClass:self andSelector:#commentIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser commentIcon'

        ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@PDA@PDA@PDA@PDA@PPDA@DA@PDA@PDA@PDA@PDDA@PA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PPDA@DA@PDA@PDA@PDA@P@DA@P@@PDA@PDA@PDA@PD@A@PD@@DA@PDA@PDA@PDA@@PDA@@A@PDA@PDA@PDA@P@DA@P@@PDA@PDA@PDA@PD@A@PD@@DA@PDA@PDA@PD@A@PDA@P@@PDA@PDA@PDA@PD@@@@A@PDA@PDA@PDA@PDA@PD@@PDA@PDA@P@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@8@C @N@@@@C @N@@8@C @N@@8@G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!

deploymentIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self deploymentIcon inspect

     ImageEditor openOnClass:self andSelector:#deploymentIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser deploymentIcon'

        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@CL0@3L0@@@CL3@3@3@@@CL@LC@CL@@@L0@0LCL0@@@CMCP3MD@@@@L3L3L3M@@@ADP3QD@4@@@@@3@@ACP@@DQCMDPDM@@@QDL4Q@P4@@ADP3QDACP@@DQCMDPDM@@@QDL4Q@P0@@ADP3QDAC@@@DQCMDP@@@@@@@L0@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A30O[A%LF?<O?0??G?<??3??O?<??3??O?8??C?8O?@b') ; yourself); yourself]!

filesIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self filesIcon inspect

     ImageEditor openOnClass:self andSelector:#filesIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser filesIcon'

        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@DQDQ@P@@@@@P@@@@@@@@@A@QDQDA@@@@DA@@@@@@@@@PDADQDPD@@A@PDQDQ@Q@@DA@QDQD@@@@PDADQDQDQ@A@PDQDQDQD@@A@QDQDQDP@@DADQDQDQ@@@@DQDQDQD@@@@QDQDQDP@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@C? O?@?>C?<O?8??3??/??????????O?<??0??C?<b') ; yourself); yourself]!

methodIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self methodIcon inspect

     ImageEditor openOnClass:self andSelector:#methodIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser methodIcon'

        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@@@I@L@@@@@@@@QD@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@B@@\@C8@_0A? C?@G<@O @\@@ @@@@@@@@@b') ; yourself); yourself]!

methodsIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self multipleUnlockedMagentaIcon inspect

     ImageEditor openOnClass:self andSelector:#multipleUnlockedMagentaIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser methodsIcon'

        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@DH@@@@@@@@4QA@@@@@@@TQDPP@@@@@@MDQDH@@@@@@PQDQA@@@@@@LTQA@@@@@@M@I@L@@@@@EDPQD@@@@@@CQDIB@@@@@@DDQDPP@@@@@CEDPP@@@@@@@BPC@@@@@@@@DQ@@@@@@@@@B@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 132 0 0 132 0 132 255 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'B@@\@C8@_0A? C?@G<@? G<@_8@?0A?@C8@G@@H@@@@b') ; yourself); yourself]

!

prerequisiteClassesIcon

    <resource: #programImage>

    ^ self classesIcon

!

prerequisiteProjectsIcon

    <resource: #programImage>

    ^ self projectsIcon

!

prerequisitesIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self prerequisitesIcon inspect

     ImageEditor openOnClass:self andSelector:#prerequisitesIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser prerequisitesIcon'

        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@Q@@@@@@@@@AD@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP@@@@@AD@@Q@@@@@@DP@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@@@@AD@@@@@@@@@DP@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A8@G(@^PA80@C@^@=8S7//^D<@C7#@^LA9@G(@@@@b') ; yourself); yourself]!

projectsIcon

    "This resource specification was automatically generated

     by the ImageEditor of ST/X."

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

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

    "

     self projectsIcon inspect

     ImageEditor openOnClass:self andSelector:#projectsIcon

    "

    <resource: #image>

    ^Icon

        constantNamed:#'ProjectBrowser projectsIcon'

        ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@"H"H"@ @@@"H"H"@"@@@@@@@@@"H@@BH"H"HBH @@H"H"H H"@@@"H"H"@"H@@BH"H"HBH @@H"H"H H @@@"H"H"@ @@@BH"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 0 132 255 128 128]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@G? ?>G?8??''?>_?9??''?>_?9??G?8_?A?8@@@@@@b') ; yourself); yourself]! !

!ProjectBrowser class methodsFor:'interface specs'!

emptyRightCanvasSpec

    "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:ProjectBrowser andSelector:#emptyRightCanvasSpec

     ProjectBrowser new openInterface:#emptyRightCanvasSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'NewApplication'

              #layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)

              #label: 'NewApplication'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

              #bounds: #(#Rectangle 216 173 516 473)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#TextEditorSpec

                    #name: 'TextEditor1'

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

                    #model: #rightCanvasTextHolder

                    #hasHorizontalScrollBar: true

                    #hasVerticalScrollBar: true

                    #miniScrollerHorizontal: true

                    #isReadOnly: true

                )

              )

          )

      )

!

rightCanvasSpecForClassList

    "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:ProjectBrowser andSelector:#rightCanvasSpecForClassList

     ProjectBrowser new openInterface:#rightCanvasSpecForClassList

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #rightCanvasSpecForClassList

        #window: 

       #(#WindowSpec

          #label: 'NewApplication'

          #name: 'NewApplication'

          #min: #(#Point 10 10)

          #max: #(#Point 1280 1024)

          #bounds: #(#Rectangle 420 49 720 349)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#DataSetSpec

              #name: 'classTable'

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

              #hasHorizontalScrollBar: true

              #hasVerticalScrollBar: true

              #miniScrollerHorizontal: true

              #dataList: #classList

              #has3Dsepartors: false

              #columnHolder: #classTableColumns

              #columnAdaptor: #classTableAdaptor

            )

           )

        )

      )

!

rightCanvasSpecForDeployment

    "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:ProjectBrowser andSelector:#rightCanvasSpecForDeployment

     ProjectBrowser new openInterface:#rightCanvasSpecForDeployment

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #rightCanvasSpecForDeployment

        #window: 

       #(#WindowSpec

          #label: 'NewApplication'

          #name: 'NewApplication'

          #min: #(#Point 10 10)

          #max: #(#Point 1280 1024)

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#FramedBoxSpec

              #labelPosition: #topLeft

              #translateLabel: true

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#CheckBoxSpec

                    #label: '''loadAll''-File'

                    #name: 'CheckBox5'

                    #activeHelpKey: #deliverLoadAll

                    #tabable: true

                    #model: #deliverLoadAllFile

                    #translateLabel: true

                  )

                 #(#CheckBoxSpec

                    #name: 'CheckBox1'