Tools_ProjectList.st
changeset 7525 a37f9b951ff6
parent 7497 fa14e0c38917
child 7552 af5529b5a479
equal deleted inserted replaced
7524:0257265ae6b7 7525:a37f9b951ff6
   430     dropInfo := aDropContext dropInfo.
   430     dropInfo := aDropContext dropInfo.
   431 
   431 
   432     lineNr := packageListView yVisibleToLineNr:p y.
   432     lineNr := packageListView yVisibleToLineNr:p y.
   433     lineNr isNil ifTrue:[^ nil].
   433     lineNr isNil ifTrue:[^ nil].
   434 
   434 
   435     item := packageListView list value at:lineNr.
   435     item := projectList value at:lineNr.
   436     item isNil ifTrue:[^ nil].
   436     item isNil ifTrue:[^ nil].
   437     item isString ifTrue:[^ item asSymbol].
   437     item isString ifTrue:[^ item asSymbol].
   438 
   438 
   439     item canExpand ifTrue:[
   439     item canExpand ifTrue:[
   440         now := Timestamp now.
   440         now := Timestamp now.
   458 
   458 
   459     package := item package.
   459     package := item package.
   460     package = self class nameListEntryForALL ifTrue:[^ nil].
   460     package = self class nameListEntryForALL ifTrue:[^ nil].
   461     ^ package.
   461     ^ package.
   462 
   462 
   463     "Modified: / 20-09-2006 / 15:30:13 / cg"
   463     "Modified: / 18-11-2006 / 16:13:47 / cg"
   464 ! !
   464 ! !
   465 
   465 
   466 !ProjectList methodsFor:'generators'!
   466 !ProjectList methodsFor:'generators'!
   467 
   467 
   468 makeGenerator
   468 makeGenerator
   806 ! !
   806 ! !
   807 
   807 
   808 !ProjectList class methodsFor:'documentation'!
   808 !ProjectList class methodsFor:'documentation'!
   809 
   809 
   810 version
   810 version
   811     ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.28 2006-11-10 16:22:54 cg Exp $'
   811     ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.29 2006-11-20 11:34:09 cg Exp $'
   812 ! !
   812 ! !