"{ Package: 'stx:goodies/monticello' }"

"{ NameSpace: Smalltalk }"

Tools::BrowserList subclass:#MCBrowserList

	instanceVariableNames:'listHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Monticello-St/X UI'

!

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

     MCBrowserList new openInterface:#windowSpec

     MCBrowserList open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'MC Browser List'

          name: 'MC Browser List'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 300 300)

        )

        component: 

       (SpecCollection

          collection: (

           (SelectionInListModelViewSpec

              name: 'SelectionInListModelView1'

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

              model: selectionHolder

              menu: menuHolder

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              listModel: listHolder

              useIndex: false

              highlightMode: line

            )

           )

        )

      )

! !

!MCBrowserList 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)."

    ^ #(

        #inGeneratorHolder

        #outGeneratorHolder

        #menuHolder

        #selectionHolder

      ).

    "Modified: / 17-09-2010 / 11:37:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCBrowserList class methodsFor:'queries'!

isAbstract

    ^ self == MCBrowserList

! !

!MCBrowserList methodsFor:'aspects'!

listHolder

    "return/create the 'listHolder' value holder (automatically generated)"

    listHolder isNil ifTrue:[

        listHolder := ValueHolder new.

    ].

    ^ listHolder

! !

!MCBrowserList methodsFor:'queries'!

supportsSearch

    ^false

    "Created: / 04-08-2011 / 19:04:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCBrowserList class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCBrowserList.st,v 1.5 2015-02-01 14:14:45 cg Exp $'

!

version_CVS

    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCBrowserList.st,v 1.5 2015-02-01 14:14:45 cg Exp $'

!

version_SVN

    ^ '$Id: MCBrowserList.st,v 1.5 2015-02-01 14:14:45 cg Exp $'

! !