HierarchicalItemWithLabelAndIconAndValue.st
author Jan Vrany <jan.vrany@labware.com>
Fri, 02 Sep 2022 11:25:39 +0100
branchjv
changeset 6261 9b7eb7159d29
parent 2944 4eb59e38eb2e
permissions -rw-r--r--
Fix loong standing bug with some menus not being translated / resolved This has happened with browser "View" menu when sometimes it had the slice resolved and sometimes not. It turned out that it was because the code disabled resources (and therefore slices) resolution when processing shortcuts, so the menu was created and cached unresolved. This fixes the issue. eXept apparently run into the same problem.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2944
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 2006 by eXept Software AG
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"{ Package: 'stx:libwidg2' }"
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
HierarchicalItemWithLabelAndIcon subclass:#HierarchicalItemWithLabelAndIconAndValue
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	instanceVariableNames:'value'
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	classVariableNames:''
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	poolDictionaries:''
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	category:'Views-Support'
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!HierarchicalItemWithLabelAndIconAndValue class methodsFor:'documentation'!
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
copyright
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
"
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
 COPYRIGHT (c) 2006 by eXept Software AG
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
              All Rights Reserved
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
 This software is furnished under a license and may be used
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
 only in accordance with the terms of that license and with the
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 inclusion of the above copyright notice.   This software may not
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 be provided or otherwise made available to, or used by, any
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 other person.  No title to or ownership of the software is
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 hereby transferred.
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
"
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
! !
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
!HierarchicalItemWithLabelAndIconAndValue methodsFor:'accessing'!
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
value
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
    ^ value
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
!
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
value:something
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    value := something.
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
! !
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!HierarchicalItemWithLabelAndIconAndValue class methodsFor:'documentation'!
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
version
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItemWithLabelAndIconAndValue.st,v 1.1 2006-03-14 13:09:48 cg Exp $'
4eb59e38eb2e initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
! !