JavaFieldDescriptorWithUnionType.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 29 Jan 2013 15:15:51 +0000
branchdevelopment
changeset 2006 c0598cab5f15
parent 1864 60a8dc26c8c6
child 2069 75d40b7b986f
permissions -rw-r--r--
Commit fix: fixed content of Smalltalk extensions containers. Somehow, bare Java class were written to extension containers for Java classes.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1263
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     1
"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     2
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     3
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     4
 New code and modifications done at SWING Research Group [1]:
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     5
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     6
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     7
                            SWING Research Group, Czech Technical University in Prague
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     8
451695d79afa Few fixes
vranyj1
parents:
diff changeset
     9
 This software is furnished under a license and may be used
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    10
 only in accordance with the terms of that license and with the
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    11
 inclusion of the above copyright notice.   This software may not
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    12
 be provided or otherwise made available to, or used by, any
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    13
 other person.  No title to or ownership of the software is
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    14
 hereby transferred.
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    15
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    16
 [1] Code written at SWING Research Group contains a signature
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    17
     of one of the above copright owners. For exact set of such code,
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    18
     see the differences between this version and version stx:libjava
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    19
     as of 1.9.2010
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    20
"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    21
"{ Package: 'stx:libjava' }"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    22
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    23
JavaDescriptor subclass:#JavaFieldDescriptorWithUnionType
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    24
	instanceVariableNames:'descriptors'
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    25
	classVariableNames:''
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    26
	poolDictionaries:''
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    27
	category:'Languages-Java-Support'
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    28
!
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    29
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    30
!JavaFieldDescriptorWithUnionType class methodsFor:'documentation'!
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    31
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    32
copyright
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    33
"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    34
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    35
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    36
 New code and modifications done at SWING Research Group [1]:
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    37
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    38
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    39
                            SWING Research Group, Czech Technical University in Prague
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    40
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    41
 This software is furnished under a license and may be used
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    42
 only in accordance with the terms of that license and with the
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    43
 inclusion of the above copyright notice.   This software may not
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    44
 be provided or otherwise made available to, or used by, any
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    45
 other person.  No title to or ownership of the software is
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    46
 hereby transferred.
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    47
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    48
 [1] Code written at SWING Research Group contains a signature
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    49
     of one of the above copright owners. For exact set of such code,
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    50
     see the differences between this version and version stx:libjava
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    51
     as of 1.9.2010
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    52
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    53
"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    54
! !
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    55
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    56
!JavaFieldDescriptorWithUnionType class methodsFor:'instance creation'!
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    57
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    58
new
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    59
    "return an initialized instance"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    60
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    61
    ^ self basicNew initialize.
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    62
! !
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    63
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    64
!JavaFieldDescriptorWithUnionType methodsFor:'accessing'!
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    65
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    66
addDescriptor: desc
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    67
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    68
    descriptors add: desc
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    69
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    70
    "Created: / 10-12-2011 / 21:38:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    71
! !
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    72
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    73
!JavaFieldDescriptorWithUnionType methodsFor:'comparing'!
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    74
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    75
match: another
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    76
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    77
    descriptors do:[:each|
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    78
        (each match: another) ifTrue:[ ^ true ].
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    79
    ].
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    80
    ^false
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    81
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    82
    "Created: / 10-12-2011 / 21:33:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    83
! !
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    84
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    85
!JavaFieldDescriptorWithUnionType methodsFor:'initialization'!
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    86
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    87
initialize
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    88
    "Invoked when a new instance is created."
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    89
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    90
    "/ please change as required (and remove this comment)
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    91
    descriptors := Set new
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    92
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    93
    "/ super initialize.   -- commented since inherited method does nothing
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    94
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    95
    "Modified: / 10-12-2011 / 21:31:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    96
! !
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    97
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    98
!JavaFieldDescriptorWithUnionType class methodsFor:'documentation'!
451695d79afa Few fixes
vranyj1
parents:
diff changeset
    99
1864
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   100
version_HG
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   101
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   102
    ^ '$Changeset: <not expanded> $'
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   103
!
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   104
1263
451695d79afa Few fixes
vranyj1
parents:
diff changeset
   105
version_SVN
1864
60a8dc26c8c6 Updated from HG
vranyj1
parents: 1818
diff changeset
   106
    ^ '§Id§'
1263
451695d79afa Few fixes
vranyj1
parents:
diff changeset
   107
! !