"

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

"{ NameSpace: Tools }"

ApplicationModel subclass:#ProjectCheckerBrowser

	instanceVariableNames:'problemSelectionHolder problemListHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'System-Support-Projects'

!

!ProjectCheckerBrowser class methodsFor:'documentation'!

copyright

"

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

"

!

documentation

"

    A simple tool to browse issues found by ProjectChecker.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [instance variables:]

    [class variables:]

    [see also:]

        ProjectChecker

"

! !

!ProjectCheckerBrowser 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:Tools::ProjectCheckerBrowser andSelector:#windowSpec

     Tools::ProjectCheckerBrowser new openInterface:#windowSpec

     Tools::ProjectCheckerBrowser open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'NewApplication'

          name: 'NewApplication'

          bounds: (Rectangle 0 0 581 370)

        )

        component: 

       (SpecCollection

          collection: (

           (VariableVerticalPanelSpec

              name: 'VariableVerticalPanel1'

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

              component: 

             (SpecCollection

                collection: (

                 (SelectionInListModelViewSpec

                    name: 'List'

                    model: problemSelectionHolder

                    hasHorizontalScrollBar: true

                    hasVerticalScrollBar: true

                    listModel: problemListHolder

                    useIndex: false

                    highlightMode: line

                  )

                 (ViewSpec

                    name: 'Detail'

                    component: 

                   (SpecCollection

                      collection: (

                       (TextEditorSpec

                          name: 'Description'

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

                          model: problemDescriptionAspect

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          hasKeyboardFocusInitially: false

                        )

                       )

                    )

                  )

                 )

              )

              handles: (Any 0.5 1.0)

            )

           )

        )

      )

! !

!ProjectCheckerBrowser methodsFor:'aspects'!

problemDescriptionAspect

    <resource: #uiAspect>

    "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 ;-)"

    |holder|

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

                        subjectChannel: self problemSelectionHolder.

    ].

    ^ holder.

!

problemListHolder

    <resource: #uiAspect>

    "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 ;-)"

    problemListHolder isNil ifTrue:[

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

"/       problemListHolder addDependent:self.

"/       problemListHolder onChangeSend:#problemListHolderChanged to:self.

    ].

    ^ problemListHolder.

!

problemSelectionHolder

    <resource: #uiAspect>

    "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 ;-)"

    problemSelectionHolder isNil ifTrue:[

        problemSelectionHolder := ValueHolder new.

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

"/       problemSelectionHolder addDependent:self.

"/       problemSelectionHolder onChangeSend:#problemSelectionHolderChanged to:self.

    ].

    ^ problemSelectionHolder.

! !

!ProjectCheckerBrowser class methodsFor:'documentation'!

version_SVN

! !