--- a/UIPainterTreeView.st Sat Jun 21 12:21:22 1997 +0200
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,134 +0,0 @@
-"
- COPYRIGHT (c) 1995 by Claus Gittinger
- 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.
-"
-
-
-
-ApplicationModel subclass:#UIPainterTreeView
- instanceVariableNames:'listHolder'
- classVariableNames:''
- poolDictionaries:''
- category:'Interface-UIPainter'
-!
-
-!UIPainterTreeView class methodsFor:'documentation'!
-
-copyright
-"
- COPYRIGHT (c) 1995 by Claus Gittinger
- 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
-"
- not yet finished, not yet published, not yet released.
-"
-
-! !
-
-!UIPainterTreeView class methodsFor:'instance creation'!
-
-listHolder:aListHolder
- |appl|
-
- appl := UIPainterTreeView new.
- appl listHolder:aListHolder.
- appl openInterface:#windowSpec.
- ^ appl
-
-! !
-
-!UIPainterTreeView class methodsFor:'interface specs'!
-
-windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
-
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
-
- "
- UIPainter new openOnClass:UIPainterTreeView andSelector:#windowSpec
- UIPainterTreeView new openInterface:#windowSpec
- "
-
- <resource: #canvas>
-
- ^
-
- #(#FullSpec
- #'window:'
- #(#WindowSpec
- #'name:' 'treeView'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #'label:' 'Tree-View'
- #'bounds:' #(#Rectangle 0 0 192 479)
- )
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#SequenceViewSpec
- #'name:' 'selectionInList'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #'menu:' #listMenu
- #'model:' #listHolder
- #'callbacksSpec:'
- #(#UIEventCallbackSubSpec
- #'doubleClickSelector:' #doubleClick
- )
- #'hasHorizontalScrollBar:' true
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' false
- #'miniScrollerVertical:' false
- #'isMultiSelect:' true
- )
- )
- )
- )
-! !
-
-!UIPainterTreeView methodsFor:'aspects'!
-
-doubleClick
- listHolder selectGroup
-!
-
-listHolder
- ^ listHolder
-
-!
-
-listHolder:aListHolder
- listHolder := aListHolder
-!
-
-listMenu
- "returns a block which returns the menu
- "
- ^ [listHolder painter menu]
-! !
-
-!UIPainterTreeView class methodsFor:'documentation'!
-
-version
- ^ '$Header$'
-
-! !