"{ Package: 'stx:libbasic3' }"

"{ NameSpace: Packages }"

	classVariableNames:''

	poolDictionaries:''

	category:'Package-Application'

!

AbstractPackageDetails subclass:#Class

	instanceVariableNames:'classList selectedClassHolder categoryList selectedCategoryHolder

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

                    #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

      ).

! !

declareDependents

    super declareDependents

!

privateProcessesAt:aSymbol 

!

privateProcessesAt: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:'change & update'!

selectedCategoryChanged:aCollectionOfCategories 

    self withProcessNamed:#selectedCategoryChanged: do:[

        classList removeAll.

        self 

            putClassesNamesIn:classList 

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

    "/ change the code below as required ...

    "/ This should cleanup any leftover resources

    "/ (for example, temporary files)

    "/ super closeRequest will initiate the closeDown

    "/ add your code here

    "/ do not remove the one below ...

    ^ super closeDownViews

!

closeRequest

    "This is a hook method generated by the Browser.

     It will be invoked when your app/dialog-window is about to be

     closed (this method has a chance to suppress the close).

     See also #closeDownViews, which is invoked when the close is really done."

    "/ change the code below as required ...

    "/ Closing can be suppressed, by simply returning.

    "/ The 'super closeRequest' at the end will initiate the real closeDown

    ("self hasUnsavedChanges" true) ifTrue:[

        (self confirm:(resources string:'Close without saving ?')) ifFalse:[

            ^ self

        ]

    ].

    ^ super closeRequest

!