"{ Package: 'jv:vdb' }"
"{ NameSpace: Smalltalk }"
VDBAbstractListApplication subclass:#VDBAbstractTreeApplication
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'VDB-UI-Abstract'
!
!VDBAbstractTreeApplication 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:VDBStackApplication andSelector:#windowSpec
VDBStackApplication new openInterface:#windowSpec
VDBStackApplication open
"
<resource: #canvas>
^
#(FullSpec
name: windowSpec
window:
(WindowSpec
label: 'Execution Stack'
name: 'Execution Stack'
min: (Point 10 10)
bounds: (Rectangle 0 0 300 300)
)
component:
(SpecCollection
collection: (
(HierarchicalListViewSpec
name: 'Stack'
layout: (LayoutFrame 0 0 0 0 0 1 0 1)
model: internalSelectionHolder
menu: contextMenu
hasHorizontalScrollBar: true
hasVerticalScrollBar: true
listModel: internalListHolder
useIndex: false
highlightMode: line
showLines: false
useDefaultIcons: false
showRoot: false
postBuildCallback: postBuildInternalListView:
)
)
)
)
! !
!VDBAbstractTreeApplication class methodsFor:'queries'!
isAbstract
"Return if this class is an abstract class.
True is returned here for myself only; false for subclasses.
Abstract subclasses must redefine again."
^ self == VDBAbstractTreeApplication.
! !
!VDBAbstractTreeApplication methodsFor:'aspects-private'!
internalListHolder
"return/create the 'listHolder' value holder (automatically generated)"
internalListHolder isNil ifTrue:[
internalListHolder := HierarchicalList new.
internalListHolder showRoot: false.
internalListHolder root: HierarchicalItem new.
].
^ internalListHolder
"Created: / 20-09-2014 / 23:03:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !