ApplicationModel subclass:#ProjectBrowser

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Smalltalk'

!

TreeItem subclass:#ProjectTreeItem

	instanceVariableNames:'action'

	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

                )

              )

          )

      )

!

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'

              #label: 'ProjectBrowser'

              #min: #(#Point 10 10)

              #max: #(#Point 1024 768)

              #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 0 1.0)

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#SelectionInTreeViewSpec

                              #name: 'TreeList1'

                              #model: #selectedTreeNode

                              #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

                          )

                        )

                    )

                )

              )

          )

      )

! !

!ProjectBrowser class methodsFor:'menu specs'!

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

                      )

                       #(#MenuItem

                          #label: 'Save As...'

                          #translateLabel: true

                          #value: #saveProjectAs

                      )

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

      )

!

menu

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

     (Menu new fromLiteralArrayEncoding:(ProjectBrowser menu)) startUp

    "

    <resource: #menu>

    ^

       #(#Menu

           #(

             #(#MenuItem

                #label: 'New...'

                #translateLabel: true

                #isButton: true

                #value: #newProject

                #labelImage: #(#ResourceRetriever #Icon #newIcon)

            )

             #(#MenuItem

                #label: 'Open...'

                #translateLabel: true

                #isButton: true

                #value: #openProject

                #labelImage: #(#ResourceRetriever #Icon #loadIcon)

            )

             #(#MenuItem

                #label: 'SaveAs...'

                #translateLabel: true

                #isButton: true

                #value: #saveProject

                #labelImage: #(#ResourceRetriever #Icon #saveIcon)

            )

          ) nil

          nil

      )

! !

!ProjectBrowser methodsFor:'aspects'!

currentCanvasHolder

    "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 in the browser."

    |holder|

    (holder := builder bindingAt:#currentCanvasHolder) isNil ifTrue:[

        builder aspectAt:#currentCanvasHolder put:(holder :=  ValueHolder new).

    ].

    ^ holder.

!

projectTreeHolder

    "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 in the browser."

    |holder|

    (holder := builder bindingAt:#projectTree) isNil ifTrue:[

        builder aspectAt:#projectTree put:(holder :=  SelectionInTree new).

        holder root:self projectTree.

    ].

    ^ holder.

!

rightCanvasTextHolder

    "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 in the browser."

    |holder|

    (holder := builder bindingAt:#rightCanvasTextHolder) isNil ifTrue:[

        builder aspectAt:#rightCanvasTextHolder put:(holder :=  ValueHolder new).

    ].

    ^ holder.

!

selectedTreeNode

    "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 in the browser."

    |holder|

    (holder := builder bindingAt:#selectedTreeNode) isNil ifTrue:[

        builder aspectAt:#selectedTreeNode put:(holder :=  ValueHolder new).

    ].

    ^ holder.

! !

!ProjectBrowser methodsFor:'initialization'!

postBuildWith:aBuiler

!

setupCanvasForNoSelection

or create a new project.'.

! !