ToolApplicationModel subclass:#ProjectBrowser

	instanceVariableNames:'projectTree'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

TreeItem subclass:#ProjectTreeItem

	instanceVariableNames:'action'

	classVariableNames:''

	poolDictionaries:''

	privateIn:ProjectBrowser

!

ProjectBrowser::ProjectTreeItem subclass:#ProjectNode

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:ProjectBrowser

!

!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

          #window: 

           #(#WindowSpec

              #name: 'NewApplication'

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

              #level: 0

              #label: 'NewApplication'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

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

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#DataSetSpec

                    #name: 'classTable'

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

                    #hasHorizontalScrollBar: true

                    #hasVerticalScrollBar: true

                    #dataList: #classList

                    #has3Dsepartors: false

                    #columnHolder: #classTableColumns

                    #columnAdaptor: #classTableAdaptor

                )

              )

          )

      )

!

rightCanvasSpecForEditableText

    "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: false

                )

              )

          )

      )

!

rightCanvasSpecForHTMLText

    "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:#rightCanvasSpecForHTMLText

     ProjectBrowser new openInterface:#rightCanvasSpecForHTMLText

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'NewApplication'

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

              #level: 0

              #label: 'NewApplication'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

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

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#HTMLViewSpec

                    #name: 'HTMLBrowser1'

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

                    #model: #htmlDocumentURLHolder

                    #hasHorizontalScrollBar: true

                    #hasVerticalScrollBar: true

                )

              )

          )

      )

!

rightCanvasSpecForPatchesList

    "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:#rightCanvasSpecForPatchesList

     ProjectBrowser new openInterface:#rightCanvasSpecForPatchesList

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'NewApplication'

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

              #level: 0

              #label: 'NewApplication'

              #min: #(#Point 10 10)

              #max: #(#Point 1280 1024)

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

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#DataSetSpec

                    #name: 'patchesTable'

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

                    #hasHorizontalScrollBar: true

                    #hasVerticalScrollBar: true

                    #dataList: #patchesList

                    #has3Dsepartors: false

                    #columnHolder: #patchesTableColumns

                    #columnAdaptor: #classTableAdaptor

                )

              )

          )

      )

!

rightCanvasSpecForReadOnlyText

    "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

                )

              )

          )

      )

!

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

     ProjectBrowser new openInterface:#windowSpec

     ProjectBrowser open

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'ProjectBrowser'

              #layout: #(#LayoutFrame 216 0 173 0 779 0 495 0)

              #level: 0

              #label: 'ProjectBrowser'

              #min: #(#Point 10 10)

              #max: #(#Point 1024 768)

              #bounds: #(#Rectangle 216 173 780 496)

              #menu: #mainMenu

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#MenuPanelSpec

                    #name: 'ToolBar1'

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

                    #menu: #menu

                    #textDefault: true

                )

                 #(#VariableHorizontalPanelSpec

                    #name: 'VariableHorizontalPanel1'

                    #layout: #(#LayoutFrame 0 0.0 40 0.0 0 1.0 -24 1.0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#SelectionInTreeViewSpec

                              #name: 'TreeList1'

                              #model: #selectedTreeNode

                              #menu: #itemMenuHolder

                              #performer: #itemMenuPerformer

                              #hasHorizontalScrollBar: true

                              #hasVerticalScrollBar: true

                              #miniScrollerHorizontal: true

                              #showRoot: false

                              #showDirectoryIndicatorForRoot: false

                              #showDirectoryIndicator: true

                              #valueChangeSelector: #itemSelected:

                              #hierarchicalList: #projectTreeHolder

                              #highlightMode: #label

                          )

                           #(#SubCanvasSpec

                              #name: 'SubCanvas1'

                              #hasHorizontalScrollBar: false

                              #hasVerticalScrollBar: false

                              #specHolder: #currentCanvasHolder

                          )

                        )

                    )

                    #handles: #(#Any 0.379433 1.0)

                )

                 #(#UISubSpecification

                    #name: 'infoBarSubSpec'

                    #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)

                    #majorKey: #ToolApplicationModel

                    #minorKey: #windowSpecForInfoBar

                )

              )

          )

      )

! !

!ProjectBrowser class methodsFor:'menu specs'!

classesItemMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:ProjectBrowser andSelector:#classesItemMenu

     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classesItemMenu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #label: 'Add Class...'

                #translateLabel: true

                #value: #addClass

                #enabled: #hasClassesSelectedHolder

            )

             #(#MenuItem

                #label: '-'

            )

             #(#MenuItem

                #label: 'Browse...'

                #translateLabel: true

                #value: #browseClasses

                #enabled: #hasClassesSelectedHolder

            )

          ) nil

          nil

      )

!

mainMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:ProjectBrowser andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(ProjectBrowser mainMenu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #label: 'File'

                #translateLabel: true

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'New'

                          #translateLabel: true

                          #value: #newProject

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Open...'

                          #translateLabel: true

                          #value: #openProject

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Save'

                          #translateLabel: true

                          #value: #saveProject

                          #enabled: #hasProjectSelectedHolder

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #translateLabel: true

                          #value: #saveProjectAs

                          #enabled: #hasProjectSelectedHolder

                      )

                       #(#MenuItem

                          #label: '-'

                      )

                       #(#MenuItem

                          #label: 'Exit'

                          #translateLabel: true

                          #value: #closeRequest

                      )

                    ) nil

                    nil

                )

            )

             #(#MenuItem

                #label: 'Project'

                #translateLabel: true

                #submenuChannel: #projectItemMenu

            )

             #(#MenuItem

                #label: 'Help'

                #translateLabel: true

                #startGroup: #right

                #submenu: 

                 #(#Menu

                     #(

                       #(#MenuItem

                          #label: 'Documentation'

                          #translateLabel: true

                          #value: #openDocumentation

                      )

                       #(#MenuItem

                          #label: '-'