JavaSlotIndexCache.st
author Claus Gittinger <cg@exept.de>
Sun, 23 Feb 2020 14:03:15 +0100
branchcvs_MAIN
changeset 3997 5bb44f7e1d20
parent 3650 b3b4639d0883
permissions -rw-r--r--
#REFACTORING by exept class: Java class changed: #dumpConfigOn:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     1
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2731
diff changeset
     2
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     3
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
     4
 New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
     5
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2731
diff changeset
     6
 COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
     7
                            SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
     8
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     9
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    10
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    11
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    12
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    13
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    14
 hereby transferred.
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    15
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    16
 [1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    17
     of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    18
     see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    19
     as of 1.9.2010
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    20
"
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    21
"{ Package: 'stx:libjava' }"
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    22
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
    23
"{ NameSpace: Smalltalk }"
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
    24
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    25
Object subclass:#JavaSlotIndexCache
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    26
	instanceVariableNames:''
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    27
	classVariableNames:'String_Slot_offset String_Slot_count String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    28
		Date_Slot_valueValid Date_Slot_expanded Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    29
		Date_Slot_tm_yday Date_Slot_tm_mon Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    30
		Date_Slot_tm_hour Date_Slot_tm_min Date_Slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    31
		Date_Slot_tm_millis Date_Slot_tm_isdst Date_Slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    32
		Date_Slot_value Graphics_Slot_pDrawable Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    33
		Graphics_Slot_color Color_Slot_pData Color_Slot_value'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    34
	poolDictionaries:''
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    35
	category:'Languages-Java-Support'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    36
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    37
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    38
!JavaSlotIndexCache class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    39
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    40
copyright
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    41
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2731
diff changeset
    42
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    43
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    44
 New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    45
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2731
diff changeset
    46
 COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    47
                            SWING Research Group, Czech Technical University in Prague
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    48
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    49
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    50
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    51
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    52
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    53
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    54
 hereby transferred.
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    55
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    56
 [1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    57
     of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    58
     see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    59
     as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
    60
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    61
"
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    62
! !
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    63
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    64
!JavaSlotIndexCache class methodsFor:'queries'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    65
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    66
color_slot_pData_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    67
    Color_Slot_pData isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
    68
        Color_Slot_pData := color class instVarIndexFor:'pData'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    69
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    70
    ^ Color_Slot_pData
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    71
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    72
    "Created: 8.2.1997 / 13:53:16 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    73
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    74
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    75
color_slot_value_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    76
    Color_Slot_value isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
    77
        Color_Slot_value := color class instVarIndexFor:'value'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    78
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    79
    ^ Color_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    80
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    81
    "Created: 8.2.1997 / 13:54:48 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    82
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    83
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    84
date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    85
    Date_Slot_expanded isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
    86
        Date_Slot_expanded := (Java at:'java.util.Date') instVarIndexFor:'expanded'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    87
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    88
    ^ Date_Slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    89
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    90
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    91
     JavaSlotIndexCache date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    92
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    93
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    94
    "Created: 8.2.1997 / 13:28:18 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    95
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    96
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    97
date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    98
    Date_Slot_tm_hour isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
    99
        Date_Slot_tm_hour := (Java at:'java.util.Date') instVarIndexFor:'tm_hour'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   100
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   101
    ^ Date_Slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   102
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   103
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   104
     JavaSlotIndexCache date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   105
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   106
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   107
    "Created: 8.2.1997 / 13:29:24 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   108
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   109
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   110
date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   111
    Date_Slot_tm_isdst isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   112
        Date_Slot_tm_isdst := (Java at:'java.util.Date') instVarIndexFor:'tm_isdst'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   113
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   114
    ^ Date_Slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   115
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   116
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   117
     JavaSlotIndexCache date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   118
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   119
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   120
    "Created: 8.2.1997 / 13:39:00 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   121
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   122
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   123
date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   124
    Date_Slot_tm_mday isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   125
        Date_Slot_tm_mday := (Java at:'java.util.Date') instVarIndexFor:'tm_mday'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   126
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   127
    ^ Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   128
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   129
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   130
     JavaSlotIndexCache date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   131
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   132
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   133
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   134
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   135
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   136
date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   137
    Date_Slot_tm_millis isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   138
        Date_Slot_tm_millis := (Java at:'java.util.Date') instVarIndexFor:'tm_millis'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   139
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   140
    ^ Date_Slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   141
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   142
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   143
     JavaSlotIndexCache date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   144
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   145
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   146
    "Created: 8.2.1997 / 13:29:43 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   147
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   148
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   149
date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   150
    Date_Slot_tm_min isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   151
        Date_Slot_tm_min := (Java at:'java.util.Date') instVarIndexFor:'tm_min'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   152
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   153
    ^ Date_Slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   154
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   155
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   156
     JavaSlotIndexCache date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   157
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   158
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   159
    "Created: 8.2.1997 / 13:29:32 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   160
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   161
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   162
date_slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   163
    Date_Slot_tm_mon isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   164
        Date_Slot_tm_mon := (Java at:'java.util.Date') instVarIndexFor:'tm_mon'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   165
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   166
    ^ Date_Slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   167
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   168
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   169
     JavaSlotIndexCache date_slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   170
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   171
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   172
    "Created: 8.2.1997 / 13:29:05 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   173
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   174
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   175
date_slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   176
    Date_Slot_tm_sec isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   177
        Date_Slot_tm_sec := (Java at:'java.util.Date') instVarIndexFor:'tm_sec'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   178
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   179
    ^ Date_Slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   180
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   181
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   182
     JavaSlotIndexCache date_slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   183
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   184
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   185
    "Created: 8.2.1997 / 13:29:37 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   186
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   187
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   188
date_slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   189
    Date_Slot_tm_wday isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   190
        Date_Slot_tm_wday := (Java at:'java.util.Date') instVarIndexFor:'tm_wday'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   191
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   192
    ^ Date_Slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   193
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   194
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   195
     JavaSlotIndexCache date_slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   196
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   197
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   198
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   199
    "Modified: 8.2.1997 / 13:40:12 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   200
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   201
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   202
date_slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   203
    Date_Slot_tm_yday isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   204
        Date_Slot_tm_yday := (Java at:'java.util.Date') instVarIndexFor:'tm_yday'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   205
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   206
    ^ Date_Slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   207
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   208
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   209
     JavaSlotIndexCache date_slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   210
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   211
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   212
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   213
    "Modified: 8.2.1997 / 13:38:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   214
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   215
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   216
date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   217
    Date_Slot_tm_year isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   218
        Date_Slot_tm_year := (Java at:'java.util.Date') instVarIndexFor:'tm_year'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   219
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   220
    ^ Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   221
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   222
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   223
     JavaSlotIndexCache date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   224
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   225
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   226
    "Created: 8.2.1997 / 13:28:52 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   227
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   228
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   229
date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   230
    Date_Slot_value isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   231
        Date_Slot_value := (Java at:'java.util.Date') instVarIndexFor:'value'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   232
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   233
    ^ Date_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   234
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   235
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   236
     JavaSlotIndexCache date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   237
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   238
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   239
    "Created: 8.2.1997 / 13:30:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   240
    "Modified: 8.2.1997 / 13:30:51 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   241
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   242
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   243
date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   244
    Date_Slot_valueValid isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   245
        Date_Slot_valueValid := (Java at:'java.util.Date') instVarIndexFor:'valueValid'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   246
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   247
    ^ Date_Slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   248
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   249
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   250
     JavaSlotIndexCache date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   251
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   252
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   253
    "Created: 8.2.1997 / 13:25:46 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   254
    "Modified: 8.2.1997 / 13:27:47 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   255
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   256
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   257
graphics_slot_color_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   258
    Graphics_Slot_color isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   259
        Graphics_Slot_color := graphics class instVarIndexFor:'color'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   260
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   261
    ^ Graphics_Slot_color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   262
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   263
    "Created: 8.2.1997 / 13:53:56 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   264
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   265
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   266
graphics_slot_pDrawable_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   267
    Graphics_Slot_pDrawable isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   268
        Graphics_Slot_pDrawable := graphics class instVarIndexFor:'pDrawable'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   269
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   270
    ^ Graphics_Slot_pDrawable
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   271
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   272
    "Created: 8.2.1997 / 13:49:42 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   273
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   274
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   275
graphics_slot_touched_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   276
    Graphics_Slot_touched isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   277
        Graphics_Slot_touched := graphics class instVarIndexFor:'touched'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   278
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   279
    ^ Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   280
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   281
    "Created: 8.2.1997 / 13:50:57 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   282
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   283
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   284
string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   285
    String_Slot_count isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   286
        String_Slot_count := (Java at:'java.lang.String') instVarIndexFor:'count'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   287
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   288
    ^ String_Slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   289
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   290
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   291
     JavaSlotIndexCache string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   292
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   293
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   294
    "Created: 8.2.1997 / 13:19:06 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   295
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   296
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   297
string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   298
    String_Slot_offset isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   299
        String_Slot_offset := (Java at:'java.lang.String') instVarIndexFor:'offset'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   300
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   301
    ^ String_Slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   302
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   303
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   304
     JavaSlotIndexCache string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   305
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   306
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   307
    "Modified: 8.2.1997 / 13:18:53 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   308
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   309
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   310
string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   311
    String_Slot_value isNil ifTrue:[
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   312
        String_Slot_value := (Java at:'java.lang.String') instVarIndexFor:'value'    
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   313
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   314
    ^ String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   315
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   316
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   317
     JavaSlotIndexCache string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   318
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   319
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   320
    "Created: 8.2.1997 / 13:19:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   321
! !
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   322
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   323
!JavaSlotIndexCache class methodsFor:'documentation'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   324
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   325
version
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   326
    ^ '$Header$'
2248
028dc596b8a7 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   327
!
028dc596b8a7 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   328
028dc596b8a7 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   329
version_CVS
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   330
    ^ '$Header$'
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
   331
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
   332
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
   333
version_HG
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
   334
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
   335
    ^ '$Changeset: <not expanded> $'
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   336
!
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   337
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   338
version_SVN
3650
b3b4639d0883 #REFACTORING by stefan
Stefan Vogel <sv@exept.de>
parents: 3412
diff changeset
   339
    ^ '$Id$'
2108
ca8c4e7db2e8 category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
   340
! !
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
   341