HierarchicalItemWithLabelAndIcon.st
changeset 2943 8f42783f6e38
child 4694 7f830911e3aa
equal deleted inserted replaced
2942:71ae03ccdaf2 2943:8f42783f6e38
       
     1 "
       
     2  COPYRIGHT (c) 2006 by eXept Software AG
       
     3               All Rights Reserved
       
     4 
       
     5  This software is furnished under a license and may be used
       
     6  only in accordance with the terms of that license and with the
       
     7  inclusion of the above copyright notice.   This software may not
       
     8  be provided or otherwise made available to, or used by, any
       
     9  other person.  No title to or ownership of the software is
       
    10  hereby transferred.
       
    11 "
       
    12 
       
    13 "{ Package: 'stx:libwidg2' }"
       
    14 
       
    15 HierarchicalItemWithLabel subclass:#HierarchicalItemWithLabelAndIcon
       
    16 	instanceVariableNames:'icon'
       
    17 	classVariableNames:''
       
    18 	poolDictionaries:''
       
    19 	category:'Views-Support'
       
    20 !
       
    21 
       
    22 !HierarchicalItemWithLabelAndIcon class methodsFor:'documentation'!
       
    23 
       
    24 copyright
       
    25 "
       
    26  COPYRIGHT (c) 2006 by eXept Software AG
       
    27               All Rights Reserved
       
    28 
       
    29  This software is furnished under a license and may be used
       
    30  only in accordance with the terms of that license and with the
       
    31  inclusion of the above copyright notice.   This software may not
       
    32  be provided or otherwise made available to, or used by, any
       
    33  other person.  No title to or ownership of the software is
       
    34  hereby transferred.
       
    35 "
       
    36 ! !
       
    37 
       
    38 !HierarchicalItemWithLabelAndIcon methodsFor:'accessing'!
       
    39 
       
    40 icon
       
    41     "returns the icon"
       
    42 
       
    43     ^ icon
       
    44 !
       
    45 
       
    46 icon:something
       
    47     "set the value of the instance variable 'icon' (automatically generated)"
       
    48 
       
    49     icon := something.
       
    50 !
       
    51 
       
    52 label:aLabel icon:anIcon
       
    53     label := aLabel.
       
    54     icon  := anIcon.
       
    55 !
       
    56 
       
    57 labeled:aLabel icon:anIcon
       
    58     label := aLabel.
       
    59     icon  := anIcon.
       
    60 
       
    61 
       
    62 ! !
       
    63 
       
    64 !HierarchicalItemWithLabelAndIcon class methodsFor:'documentation'!
       
    65 
       
    66 version
       
    67     ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItemWithLabelAndIcon.st,v 1.1 2006-03-14 13:08:56 cg Exp $'
       
    68 ! !