TreeItemWithImage.st
author Claus Gittinger <cg@exept.de>
Thu, 11 Feb 1999 18:49:07 +0100
changeset 1193 e18387126713
child 1194 1a860b1214f6
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1193
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
TreeItem subclass:#TreeItemWithImage
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
	instanceVariableNames:'image'
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	classVariableNames:''
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	poolDictionaries:''
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	category:'Interface-Support'
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
!
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!TreeItemWithImage class methodsFor:'documentation'!
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
documentation
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
    Like a regular TreeItem, but provides its own icon image.
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
    [author:]
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
        Claus Gittinger (cg@exept)
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
    [see also:]
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
        TreeItem FileTreeItem
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
        SelectionInTree SelectionInTreeView
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
    [instance variables:]
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
        image           <ImageOrForm>           my icon image
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
    [class variables:]
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
"
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
! !
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
!TreeItemWithImage methodsFor:'accessing'!
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
image
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
    "return the value of the instance variable 'image' (automatically generated)"
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
    ^ image!
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
image:something
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
    "set the value of the instance variable 'image' (automatically generated)"
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    image := something.! !
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
!TreeItemWithImage class methodsFor:'documentation'!
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
version
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
    ^ '$Header: /cvs/stx/stx/libwidg2/TreeItemWithImage.st,v 1.1 1999-02-11 17:49:07 cg Exp $'
e18387126713 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
! !