"

 COPYRIGHT (c) 2003 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:libbasic3' }"

"{ NameSpace: Packages }"

AbstractPackageNotebookApplication subclass:#PackageDetails

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Package-Application'

!

AbstractPackageDetails subclass:#Class

	instanceVariableNames:'classList selectedClassHolder categoryList selectedCategoryHolder

		nonCriticalPrivateProcesses'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PackageDetails

!

LabelAndIcon subclass:#ClassLabelAndIcon

	instanceVariableNames:'class'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PackageDetails::Class

!

AbstractPackageDetails subclass:#Comment

	instanceVariableNames:'commentTextHolder commentTextModifiedChannel

		commentTextAcceptChannel editTextView'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PackageDetails

!

AbstractPackageDetails subclass:#LooseMethod

	instanceVariableNames:'methodSelectedHolder currentMethodSourceHolder methodList

		tableColumns'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PackageDetails

!

Object subclass:#PackageDetailsRow

	instanceVariableNames:'model'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PackageDetails::LooseMethod

!

AbstractPackageDetails subclass:#Prerequisites

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:PackageDetails

!

AbstractPackageDetails subclass:#Scripts

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:PackageDetails

!

!PackageDetails class methodsFor:'documentation'!

copyright

"

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

"

! !

!PackageDetails::Class class methodsFor:'constant values'!

applicationName

    ^ 'Classes' asSymbol

! !

!PackageDetails::Class 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:Packages::PackageDetails::Class andSelector:#windowSpec

     Packages::PackageDetails::Class new openInterface:#windowSpec

     Packages::PackageDetails::Class open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'Packages::PackageDetails::Class'

          #name: 'Packages::PackageDetails::Class'

          #visibilityChannel: #isVisible

          #min: #(#Point 10 10)

          #max: #(#Point 1024 768)

          #bounds: #(#Rectangle 29 59 329 359)

          #menu: #mainMenu

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#VariableHorizontalPanelSpec

              #name: 'VariableHorizontalPanel1'

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

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#SequenceViewSpec

                    #name: 'SelectionInListModelView2'

                    #model: #selectedCategoryHolder

                    #hasHorizontalScrollBar: true

                    #hasVerticalScrollBar: true

                    #isMultiSelect: true

                    #useIndex: false

                    #sequenceList: #categoryList

                  )

                 #(#SequenceViewSpec

                    #name: 'SelectedClassView1'

                    #model: #selectedClassHolder

                    #hasHorizontalScrollBar: true

                    #hasVerticalScrollBar: true

                    #isMultiSelect: true

                    #doubleClickSelector: #browseClassWithIndexes:

                    #useIndex: true

                    #sequenceList: #classList

                  )

                 )

              )

              #handles: #(#Any 0.5 1.0)

            )

           )

        )

      )

! !

!PackageDetails::Class class methodsFor:'menu specs'!

mainMenu

    "This resource specification was automatically generated by the CodeGeneratorTool."

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

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

    "

     MenuEditor new openOnClass:Packages::PackageDetails::Class andSelector:#mainMenu

    "

    <resource: #menu>

    ^ #(#Menu

           #(

             #(#MenuItem

                #label: 'File'

                #translateLabel: true

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'New'

                          #translateLabel: true

                          #value: #menuNew

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Open...'

                          #translateLabel: true

                          #value: #menuOpen

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Save'

                          #translateLabel: true

                          #value: #menuSave

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #translateLabel: true

                          #value: #menuSaveAs

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #translateLabel: true

                          #value: #closeRequest

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Help'

                #translateLabel: true

                #startGroup: #right

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Documentation'

                          #translateLabel: true

                          #value: #openDocumentation

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'About this Application'

                          #translateLabel: true

                          #value: #openAboutThisApplication

                      )

                    ) nil

                    nil

                )

            )

          ) nil

          nil

      )

! !

!PackageDetails::Class class methodsFor:'plugIn spec'!

aspectSelectors

    "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."

    "Return a description of exported aspects;

     these can be connected to aspects of an embedding application

     (if this app is embedded in a subCanvas)."

    ^ #(

        #classList

        #selectedClassHolder

      ).

! !

!PackageDetails::Class methodsFor:'accessing'!

classListAt:idx 

    ^ self classList at:idx

!

declareDependents

    super declareDependents

!

privateProcessesAt:aSymbol 

    ^ (nonCriticalPrivateProcesses at:aSymbol ifAbsentPut:[[nil]fork]).

!

privateProcessesAt:aSymbol put:aProcess

    ^ (nonCriticalPrivateProcesses at:aSymbol put:aProcess).

! !

!PackageDetails::Class methodsFor:'adding'!

addPrivateClassLabelAndIconForClass:aClass toClassList:aClassList level:aNumber

    aClass privateClasses do:[:aPrivateClass |

        aClassList add:(self newClassLabelAndIconWithClass:aPrivateClass).

        self addPrivateClassLabelAndIconForClass:aPrivateClass toClassList:aClassList level:(aNumber + 1).

    ].

!

putClassesNamesIn:aClassList fromPackages:collectionOfPackages inCategories:collectionOfCategoryNames 

    | classesWithoutPrivateClasses|

    classesWithoutPrivateClasses := OrderedCollection new.

    collectionOfCategoryNames do:[:aCategoryName |

        collectionOfPackages do:[:aPackage |

            (aPackage classesInCategory:aCategoryName) 

                do:[:aClass |  aClass isPrivate ifFalse:[

                                        classesWithoutPrivateClasses add:(self newClassLabelAndIconWithClass:aClass).

                                ].

            ].

        ].

    ].

    classesWithoutPrivateClasses sort:[:x :y |

        x asString < y asString

    ].

    classesWithoutPrivateClasses do:[:aLableAndIcon | | aClass |

        aClass := aLableAndIcon classModel.

        aClassList add:aLableAndIcon.

        self addPrivateClassLabelAndIconForClass:aClass toClassList:aClassList level:1

    ].

! !

!PackageDetails::Class methodsFor:'aspects'!

categoryList

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    categoryList isNil ifTrue:[

        categoryList := List new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       categoryList addDependent:self.

"/       categoryList onChangeSend:#categoryListChanged to:self.

    ].

    ^ categoryList.

!

classList

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    classList isNil ifTrue:[

        classList := List new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       classList addDependent:self.

"/       classList onChangeSend:#classListChanged to:self.

    ].

    ^ classList.

!

selectedCategoryHolder

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    selectedCategoryHolder isNil ifTrue:[

        selectedCategoryHolder := ValueHolder new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

       selectedCategoryHolder addDependent:self.

"/       selectedCategoryHolder onChangeSend:#selectedCategoryHolderChanged to:self.

    ].

    ^ selectedCategoryHolder.

!

selectedClassHolder

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."

    "*** (which may not be the one you wanted)"

    "*** Please change as required and accept it in the browser."

    "*** (and replace this comment by something more useful ;-)"

    selectedClassHolder isNil ifTrue:[

        selectedClassHolder := ValueHolder new.

"/ if your app needs to be notified of changes, uncomment one of the lines below:

"/       selectedClassHolder addDependent:self.

"/       selectedClassHolder onChangeSend:#selectedClassHolderChanged to:self.

    ].

    ^ selectedClassHolder.

! !

!PackageDetails::Class methodsFor:'aspects - exported'!

classList:something

    "automatically generated by UIPainter ..."

    "This method is used when I am embedded as subApplication,"

    "and the mainApp wants to connect its aspects to mine."

"/     classList notNil ifTrue:[

"/        classList removeDependent:self.

"/     ].

    classList := something.

"/     classList notNil ifTrue:[

"/        classList addDependent:self.

"/     ].

    ^ self.

!

selectedClassHolder:something

    "automatically generated by UIPainter ..."

    "This method is used when I am embedded as subApplication,"

    "and the mainApp wants to connect its aspects to mine."

"/     selectedClassHolder notNil ifTrue:[

"/        selectedClassHolder removeDependent:self.

"/     ].

    selectedClassHolder := something.

"/     selectedClassHolder notNil ifTrue:[

"/        selectedClassHolder addDependent:self.

"/     ].

    ^ self.

! !

!PackageDetails::Class methodsFor:'browsing'!

browseClassWithIndexes:aCollectionOfIndexes

    "An 'adapter method'. Calls #browserClass:. Is only used as there can be

    private classes with the same name and the selectionList cannot tell the difference

    otherwise."

    | classItems |

    classItems := aCollectionOfIndexes collect:[:idx |

        self classListAt:idx

    ].

    ^ self browseClasses:classItems

!

browseClasses:aCollection

    | theClass |

    theClass := aCollection first classModel.

    (Smalltalk classNamed:(theClass name)) browse

! !

!PackageDetails::Class methodsFor:'change & update'!

selectedCategoryChanged:aCollectionOfCategories 

    self withProcessNamed:#selectedCategoryChanged: do:[

        classList removeAll.

        self 

            putClassesNamesIn:classList 

            fromPackages:self packagesSelected 

            inCategories:aCollectionOfCategories.

    ].

!

update:something with:aParameter from:changedObject

    changedObject == selectedCategoryHolder ifTrue:[

        self selectedCategoryChanged:aParameter        

    ].

    super update:something with:aParameter from:changedObject

!

updateWithPackages:packages

    | classCategoryNames |

    packages size = 1 ifTrue:[

        packages first ifNil:[

            ^ self.

        ]

    ].

    self withProcessNamed:#updateWithPackages: do:[ 

        classList removeAll.

        categoryList removeAll.

        classCategoryNames := Set new.

        packages do:[:aPackage |

            classCategoryNames addAll:aPackage classCategories   

        ].

        categoryList addAll:classCategoryNames.

        categoryList sort:[:x :y |

            x < y

        ]. 

    ].

"/    packages do:[:aPackage |

"/        categoryList addAll:aPackage classCategories   

"/    ].

! !

!PackageDetails::Class methodsFor:'factory'!

labelAndIconClass

    ^ ClassLabelAndIcon

!

newClassLabelAndIconWithClass:aClass

"/    aClass isPrivate ifTrue:[self halt.].

    ^ self labelAndIconClass class:aClass

! !

!PackageDetails::Class methodsFor:'initialization & release'!

closeDownViews

    "This is a hook method generated by the Browser.

     It will be invoked when your app/dialog-window is really closed.

     See also #closeDownViews, which is invoked before and may suppress the close

     or ask the user for confirmation."