1 "{ Package: 'jv:vdb' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 VDBAbstractListApplication subclass:#VDBAbstractTreeApplication

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'VDB-UI-Abstract'

    10 !

    11 

    12 !VDBAbstractTreeApplication class methodsFor:'interface specs'!

    13 

    14 windowSpec

    15     "This resource specification was automatically generated

    16      by the UIPainter of ST/X."

    17 

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

    19      the UIPainter may not be able to read the specification."

    20 

    21     "

    22      UIPainter new openOnClass:VDBStackApplication andSelector:#windowSpec

    23      VDBStackApplication new openInterface:#windowSpec

    24      VDBStackApplication open

    25     "

    26 

    27     <resource: #canvas>

    28 

    29     ^ 

    30     #(FullSpec

    31        name: windowSpec

    32        window: 

    33       (WindowSpec

    34          label: 'Execution Stack'

    35          name: 'Execution Stack'

    36          min: (Point 10 10)

    37          bounds: (Rectangle 0 0 300 300)

    38        )

    39        component: 

    40       (SpecCollection

    41          collection: (

    42           (HierarchicalListViewSpec

    43              name: 'Stack'

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

    45              model: internalSelectionHolder

    46              menu: contextMenu

    47              hasHorizontalScrollBar: true

    48              hasVerticalScrollBar: true

    49              listModel: internalListHolder

    50              useIndex: false

    51              highlightMode: line

    52              showLines: false

    53              useDefaultIcons: false

    54              showRoot: false

    55              postBuildCallback: postBuildInternalListView:

    56            )

    57           )

    58         

    59        )

    60      )

    61 ! !

    62 

    63 !VDBAbstractTreeApplication class methodsFor:'queries'!

    64 

    65 isAbstract

    66     "Return if this class is an abstract class.

    67      True is returned here for myself only; false for subclasses.

    68      Abstract subclasses must redefine again."

    69 

    70     ^ self == VDBAbstractTreeApplication.

    71 ! !

    72 

    73 !VDBAbstractTreeApplication methodsFor:'aspects-private'!

    74 

    75 internalListHolder

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

    77 

    78     internalListHolder isNil ifTrue:[

    79         internalListHolder := HierarchicalList new.

    80         internalListHolder showRoot: false.

    81         internalListHolder root: HierarchicalItem new.

    82     ].

    83     ^ internalListHolder

    84 

    85     "Created: / 20-09-2014 / 23:03:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    86 ! !

    87