"

 COPYRIGHT (c) 2000 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' }"

"{ NameSpace: Tools }"

BrowserList subclass:#ProjectList

	instanceVariableNames:'projectList projectNameList selectionIndexHolder worker

		workerQueue'

	classVariableNames:'AdditionalEmptyProjects HideModules'

	poolDictionaries:''

	category:'Interface-Browsers-New'

!

!ProjectList class methodsFor:'documentation'!

copyright

"

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

"

! !

!ProjectList class methodsFor:'interface specs'!

singleProjectWindowSpec

    "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:ClassCategoryList andSelector:#singleCategoryWindowSpec

     ClassCategoryList new openInterface:#singleCategoryWindowSpec

    "

    <resource: #canvas>

     #(#FullSpec

	#name: #singleProjectWindowSpec

       #(#WindowSpec

	  #label: 'ProjectList'

	  #name: 'ProjectList'

	  #min: #(#Point 0 0)

	  #max: #(#Point 1024 721)

	  #bounds: #(#Rectangle 218 175 518 475)

	)

       #(#SpecCollection

	  #collection: #(

	   #(#LabelSpec

	      #label: 'ProjectName'

	      #name: 'ProjectLabel'

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

	      #translateLabel: true

	      #labelChannel: #projectLabelHolder

	      #menu: #menuHolder

	    )

	   )

	)

      )

!

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

     ProjectList new openInterface:#windowSpec

     ProjectList open

    "

    <resource: #canvas>

     #(#FullSpec

       #(#WindowSpec

       #(#SpecCollection

      )

    "Created: / 17.2.2000 / 23:45:47 / cg"

    "Modified: / 17.2.2000 / 23:47:53 / cg"

! !

!ProjectList class methodsFor:'queries-plugin'!

aspectSelectors

	#(#doubleClickChannel #action )

	selectionChangeCondition

	updateTrigger

	forceGeneratorTrigger

	hideUnloadedClasses

	organizerMode

	slaveMode

       )

    "Created: / 17.2.2000 / 23:46:18 / cg"

    "Modified: / 25.2.2000 / 22:32:10 / cg"

! !

!ProjectList methodsFor:'aspects'!

itemList

    ^ self projectList value

!

projectLabelHolder

    ^ self pseudoListLabelHolder

!

projectList

    projectList isNil ifTrue:[

	projectList := ValueHolder new.

	projectList addDependent:self.

    ].

    ^ projectList

    "Created: / 17.2.2000 / 23:39:32 / cg"

!

projectNameList

    projectNameList isNil ifTrue:[

    ].

    ^ projectNameList

    "Created: / 17.2.2000 / 23:39:32 / cg"

!

selectedProjects

    ^ self selectionHolder

    "Created: / 17.2.2000 / 23:39:57 / cg"

!

selectedProjects:aValueHolder

    ^ self selectionHolder:aValueHolder

!

selectionIndexHolder

    selectionIndexHolder isNil ifTrue:[

    ].

    ^ selectionIndexHolder

    "Created: / 17.2.2000 / 23:39:32 / cg"

! !

!ProjectList methodsFor:'change & update'!

delayedUpdate:something with:aParameter from:changedObject

    |cls sel pkg mthd newSel allIdx|

    ifTrue:[

    ].

    changedObject == self selectionIndexHolder ifTrue:[

    ].

    changedObject == self selectionHolder ifTrue:[

    ].

    changedObject == slaveMode ifTrue:[

    ].

    changedObject == self projectList ifTrue:[

    ].

    changedObject == Smalltalk ifTrue:[

    ].

"/    something == #projectOrganization ifTrue:[

"/        aParameter isSymbol ifTrue:[

"/                    "/ a single method has changed

"/"/                    sel := aParameter.

"/"/                    mthd := changedObject compiledMethodAt:sel.

"/            self enqueueDelayedUpdateOutputGenerator.

"/        ].

"/        ^ self

"/    ].

    changedObject == ChangeSet ifTrue:[

    ].

    (organizerMode notNil

    and:[organizerMode value ~~ #project]) ifTrue:[

    ].

    super delayedUpdate:something with:aParameter from:changedObject

    "Created: / 17-02-2000 / 23:41:02 / cg"

    "Modified: / 17-10-2006 / 18:43:40 / cg"

!

selectionChangedByClick

    "we are not interested in that - get another notification

     via the changed valueHolder"

    "Created: / 17.2.2000 / 23:41:17 / cg"

!

update:something with:aParameter from:changedObject

    | ts |

    (self builder isNil or:[self window topView realized not]) ifTrue:[

    ].

    changedObject == Smalltalk ifTrue:[

    ].

    super update:something with:aParameter from:changedObject

    "Modified: / 20-07-2011 / 18:54:39 / cg"

    "Modified: / 18-02-2012 / 21:58:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!ProjectList methodsFor:'drag & drop'!

canDropContext:aDropContext

    |objects package|

    objects := aDropContext dropObjects collect:[:obj | obj theObject].

    (self objectsAreClassFiles:objects) ifTrue:[^ true].

    (objects conform:[:aMethodOrClass | (aMethodOrClass isMethod or:[aMethodOrClass isClass]) ]) ifFalse:[^ false].

    package := self packageAtTargetPointOf:aDropContext.

    package isNil ifTrue:[^ false].

    (objects contains:[:aMethodOrClass | aMethodOrClass package ~= package]) ifFalse:[^ false].

    ^ true

    "Modified: / 17-10-2006 / 18:30:32 / cg"

!

doDropContext:aDropContext

    |package objects methods classes|

    objects := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].

    (objects conform:[:something | (something isMethod or:[something isClass])]) ifTrue:[

    ].

    (objects conform:[:something | something isFilename]) ifTrue:[

    ].

    "Modified: / 17-10-2006 / 18:34:43 / cg"

!

packageAtTargetPointOf:aDropContext

     overItem timeOverItem|

    p := aDropContext targetPoint.

    packageListView := aDropContext targetWidget.

    dropInfo := aDropContext dropInfo.

    lineNr := packageListView yVisibleToLineNr:p y.

    lineNr isNil ifTrue:[^ nil].

    item := projectList value at:lineNr.

    item isNil ifTrue:[^ nil].

    item isString ifTrue:[^ item asSymbol].

    item canExpand ifTrue:[

    ].

    package := item package.

    package = self class nameListEntryForALL ifTrue:[^ nil].

    ^ package.

    "Modified: / 18-11-2006 / 16:13:47 / cg"

! !

!ProjectList methodsFor:'generators'!

makeGenerator

    "return a generator which enumerates the classes from the selected project(s)."

    |selectedPackages thePackage hideUnloadedClasses showChangedClasses|

    selectedPackages := self selectedProjects value.

    selectedPackages size == 0 ifTrue:[

    ].

    selectedPackages := selectedPackages collect:[:p | p string withoutSeparators].

    showChangedClasses := selectedPackages includes:(self class nameListEntryForChanged).

    hideUnloadedClasses := self hideUnloadedClasses value.