UIPainterTreeView.st
author ca
Wed, 04 Jun 1997 13:31:50 +0200
changeset 138 035c98964c38
parent 110 a00f1446c10b
permissions -rw-r--r--
update
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
     1
"
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
     2
 COPYRIGHT (c) 1995 by Claus Gittinger
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
     3
              All Rights Reserved
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
     4
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
     5
 This software is furnished under a license and may be used
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    10
 hereby transferred.
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    11
"
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    12
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    13
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    14
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    15
ApplicationModel subclass:#UIPainterTreeView
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    16
	instanceVariableNames:'listHolder'
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    17
	classVariableNames:''
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    18
	poolDictionaries:''
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    19
	category:'Interface-UIPainter'
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    20
!
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    21
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    22
!UIPainterTreeView class methodsFor:'documentation'!
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    23
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    24
copyright
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    25
"
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    26
 COPYRIGHT (c) 1995 by Claus Gittinger
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    27
              All Rights Reserved
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    28
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    29
 This software is furnished under a license and may be used
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    30
 only in accordance with the terms of that license and with the
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    32
 be provided or otherwise made available to, or used by, any
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    33
 other person.  No title to or ownership of the software is
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    34
 hereby transferred.
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    35
"
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    36
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    37
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    38
!
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    39
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    40
documentation
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    41
"
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    42
    not yet finished, not yet published, not yet released.
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    43
"
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    44
49
7f58dd5fc836 checkin from browser
ca
parents: 43
diff changeset
    45
! !
7f58dd5fc836 checkin from browser
ca
parents: 43
diff changeset
    46
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    47
!UIPainterTreeView class methodsFor:'instance creation'!
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    48
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    49
listHolder:aListHolder
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    50
     |appl|
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    51
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    52
     appl := UIPainterTreeView new.
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    53
     appl listHolder:aListHolder.
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    54
     appl openInterface:#windowSpec.
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    55
   ^ appl
49
7f58dd5fc836 checkin from browser
ca
parents: 43
diff changeset
    56
7f58dd5fc836 checkin from browser
ca
parents: 43
diff changeset
    57
! !
7f58dd5fc836 checkin from browser
ca
parents: 43
diff changeset
    58
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    59
!UIPainterTreeView class methodsFor:'interface specs'!
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    60
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    61
windowSpec
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    62
    "this window spec was automatically generated by the ST/X UIPainter"
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    63
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    64
    "do not manually edit this - the painter/builder may not be able to
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    65
     handle the specification if its corrupted."
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    66
49
7f58dd5fc836 checkin from browser
ca
parents: 43
diff changeset
    67
    "
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    68
     UIPainter new openOnClass:UIPainterTreeView andSelector:#windowSpec
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    69
     UIPainterTreeView new openInterface:#windowSpec
49
7f58dd5fc836 checkin from browser
ca
parents: 43
diff changeset
    70
    "
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
    71
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    72
    <resource: #canvas>
58
668eb9eae2ac *** empty log message ***
ca
parents: 54
diff changeset
    73
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    74
    ^
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    75
     
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    76
       #(#FullSpec
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    77
          #'window:' 
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    78
           #(#WindowSpec
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    79
              #'name:' 'treeView'
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    80
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    81
              #'label:' 'Tree-View'
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    82
              #'bounds:' #(#Rectangle 0 0 192 479)
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    83
          )
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    84
          #'component:' 
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    85
           #(#SpecCollection
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    86
              #'collection:' 
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    87
               #(
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    88
                 #(#SequenceViewSpec
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    89
                    #'name:' 'selectionInList'
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    90
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    91
                    #'menu:' #listMenu
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    92
                    #'model:' #listHolder
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    93
                    #'callbacksSpec:' 
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    94
                     #(#UIEventCallbackSubSpec
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    95
                        #'doubleClickSelector:' #doubleClick
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    96
                    )
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    97
                    #'hasHorizontalScrollBar:' true
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    98
                    #'hasVerticalScrollBar:' true
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
    99
                    #'miniScrollerHorizontal:' false
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   100
                    #'miniScrollerVertical:' false
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   101
                    #'isMultiSelect:' true
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   102
                )
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   103
              )
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   104
          )
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   105
      )
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   106
! !
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   107
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   108
!UIPainterTreeView methodsFor:'aspects'!
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   109
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   110
doubleClick
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   111
    listHolder selectGroup
62
0e8573b4329a so far so good ...
ca
parents: 60
diff changeset
   112
!
0e8573b4329a so far so good ...
ca
parents: 60
diff changeset
   113
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   114
listHolder
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   115
    ^ listHolder
62
0e8573b4329a so far so good ...
ca
parents: 60
diff changeset
   116
0e8573b4329a so far so good ...
ca
parents: 60
diff changeset
   117
!
0e8573b4329a so far so good ...
ca
parents: 60
diff changeset
   118
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   119
listHolder:aListHolder
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   120
    listHolder := aListHolder
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   121
!
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   122
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   123
listMenu
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   124
    "returns a block which returns the menu
58
668eb9eae2ac *** empty log message ***
ca
parents: 54
diff changeset
   125
    "
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   126
    ^ [listHolder painter menu]
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   127
! !
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   128
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   129
!UIPainterTreeView class methodsFor:'documentation'!
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   130
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   131
version
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   132
    ^ '$Header$'
110
a00f1446c10b no longer used but updated
ca
parents: 78
diff changeset
   133
43
3dd91a85c243 intitial checkin
ca
parents:
diff changeset
   134
! !