JavaSlotIndexCache.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 26 Apr 2015 21:07:30 +0100
changeset 3442 e59716e00703
parent 3324 a58245c0e83a
child 3360 1a8899091305
permissions -rw-r--r--
Oops, fix for commit 48320b2d4: Use first element of binding to read bound value For workspace variables it does not matter much as both values are valueholders, however in inspector and for debugger, binding contains block with fixed number of arguments.
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
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    23
Object subclass:#JavaSlotIndexCache
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    24
	instanceVariableNames:''
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    25
	classVariableNames:'String_Slot_offset String_Slot_count String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    26
		Date_Slot_valueValid Date_Slot_expanded Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    27
		Date_Slot_tm_yday Date_Slot_tm_mon Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    28
		Date_Slot_tm_hour Date_Slot_tm_min Date_Slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    29
		Date_Slot_tm_millis Date_Slot_tm_isdst Date_Slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    30
		Date_Slot_value Graphics_Slot_pDrawable Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    31
		Graphics_Slot_color Color_Slot_pData Color_Slot_value'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    32
	poolDictionaries:''
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    33
	category:'Languages-Java-Support'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    34
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    35
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    36
!JavaSlotIndexCache class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    37
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    38
copyright
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    39
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2731
diff changeset
    40
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    41
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
    42
 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
    43
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2731
diff changeset
    44
 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
    45
                            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
    46
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    47
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    48
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    49
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    50
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    51
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    52
 hereby transferred.
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    53
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
    54
 [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
    55
     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
    56
     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
    57
     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
    58
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    59
"
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    60
! !
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    61
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    62
!JavaSlotIndexCache class methodsFor:'queries'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    63
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    64
color_slot_pData_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    65
    Color_Slot_pData isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    66
        Color_Slot_pData := color class instVarOffsetOf:'pData'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    67
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    68
    ^ Color_Slot_pData
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    69
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    70
    "Created: 8.2.1997 / 13:53:16 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    71
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    72
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    73
color_slot_value_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    74
    Color_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    75
        Color_Slot_value := color class instVarOffsetOf:'value'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    76
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    77
    ^ Color_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    78
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    79
    "Created: 8.2.1997 / 13:54:48 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    80
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    81
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    82
date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    83
    Date_Slot_expanded isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    84
        Date_Slot_expanded := (Java at:'java.util.Date') instVarOffsetOf:'expanded'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    85
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    86
    ^ Date_Slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    87
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    88
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    89
     JavaSlotIndexCache date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    90
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    91
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    92
    "Created: 8.2.1997 / 13:28:18 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    93
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    94
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    95
date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    96
    Date_Slot_tm_hour isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    97
        Date_Slot_tm_hour := (Java at:'java.util.Date') instVarOffsetOf:'tm_hour'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    98
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    99
    ^ Date_Slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   100
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   101
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   102
     JavaSlotIndexCache date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   103
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   104
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   105
    "Created: 8.2.1997 / 13:29:24 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   106
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   107
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   108
date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   109
    Date_Slot_tm_isdst isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   110
        Date_Slot_tm_isdst := (Java at:'java.util.Date') instVarOffsetOf:'tm_isdst'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   111
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   112
    ^ Date_Slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   113
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   114
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   115
     JavaSlotIndexCache date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   116
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   117
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   118
    "Created: 8.2.1997 / 13:39:00 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   119
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   120
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   121
date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   122
    Date_Slot_tm_mday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   123
        Date_Slot_tm_mday := (Java at:'java.util.Date') instVarOffsetOf:'tm_mday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   124
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   125
    ^ Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   126
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   127
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   128
     JavaSlotIndexCache date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   129
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   130
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   131
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   132
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   133
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   134
date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   135
    Date_Slot_tm_millis isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   136
        Date_Slot_tm_millis := (Java at:'java.util.Date') instVarOffsetOf:'tm_millis'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   137
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   138
    ^ Date_Slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   139
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   140
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   141
     JavaSlotIndexCache date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   142
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   143
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   144
    "Created: 8.2.1997 / 13:29:43 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   145
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   146
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   147
date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   148
    Date_Slot_tm_min isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   149
        Date_Slot_tm_min := (Java at:'java.util.Date') instVarOffsetOf:'tm_min'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   150
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   151
    ^ Date_Slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   152
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   153
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   154
     JavaSlotIndexCache date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   155
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   156
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   157
    "Created: 8.2.1997 / 13:29:32 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   158
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   159
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   160
date_slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   161
    Date_Slot_tm_mon isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   162
        Date_Slot_tm_mon := (Java at:'java.util.Date') instVarOffsetOf:'tm_mon'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   163
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   164
    ^ Date_Slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   165
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   166
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   167
     JavaSlotIndexCache date_slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   168
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   169
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   170
    "Created: 8.2.1997 / 13:29:05 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   171
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   172
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   173
date_slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   174
    Date_Slot_tm_sec isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   175
        Date_Slot_tm_sec := (Java at:'java.util.Date') instVarOffsetOf:'tm_sec'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   176
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   177
    ^ Date_Slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   178
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   179
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   180
     JavaSlotIndexCache date_slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   181
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   182
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   183
    "Created: 8.2.1997 / 13:29:37 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   184
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   185
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   186
date_slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   187
    Date_Slot_tm_wday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   188
        Date_Slot_tm_wday := (Java at:'java.util.Date') instVarOffsetOf:'tm_wday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   189
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   190
    ^ Date_Slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   191
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   192
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   193
     JavaSlotIndexCache date_slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   194
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   195
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   196
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   197
    "Modified: 8.2.1997 / 13:40:12 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   198
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   199
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   200
date_slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   201
    Date_Slot_tm_yday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   202
        Date_Slot_tm_yday := (Java at:'java.util.Date') instVarOffsetOf:'tm_yday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   203
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   204
    ^ Date_Slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   205
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   206
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   207
     JavaSlotIndexCache date_slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   208
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   209
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   210
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   211
    "Modified: 8.2.1997 / 13:38:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   212
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   213
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   214
date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   215
    Date_Slot_tm_year isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   216
        Date_Slot_tm_year := (Java at:'java.util.Date') instVarOffsetOf:'tm_year'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   217
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   218
    ^ Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   219
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   220
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   221
     JavaSlotIndexCache date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   222
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   223
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   224
    "Created: 8.2.1997 / 13:28:52 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   225
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   226
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   227
date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   228
    Date_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   229
        Date_Slot_value := (Java at:'java.util.Date') instVarOffsetOf:'value'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   230
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   231
    ^ Date_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   232
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   233
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   234
     JavaSlotIndexCache date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   235
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   236
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   237
    "Created: 8.2.1997 / 13:30:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   238
    "Modified: 8.2.1997 / 13:30:51 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   239
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   240
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   241
date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   242
    Date_Slot_valueValid isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   243
        Date_Slot_valueValid := (Java at:'java.util.Date') instVarOffsetOf:'valueValid'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   244
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   245
    ^ Date_Slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   246
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   247
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   248
     JavaSlotIndexCache date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   249
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   250
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   251
    "Created: 8.2.1997 / 13:25:46 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   252
    "Modified: 8.2.1997 / 13:27:47 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   253
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   254
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   255
graphics_slot_color_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   256
    Graphics_Slot_color isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   257
        Graphics_Slot_color := graphics class instVarOffsetOf:'color'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   258
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   259
    ^ Graphics_Slot_color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   260
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   261
    "Created: 8.2.1997 / 13:53:56 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   262
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   263
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   264
graphics_slot_pDrawable_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   265
    Graphics_Slot_pDrawable isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   266
        Graphics_Slot_pDrawable := graphics class instVarOffsetOf:'pDrawable'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   267
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   268
    ^ Graphics_Slot_pDrawable
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   269
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   270
    "Created: 8.2.1997 / 13:49:42 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   271
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   272
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   273
graphics_slot_touched_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   274
    Graphics_Slot_touched isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   275
        Graphics_Slot_touched := graphics class instVarOffsetOf:'touched'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   276
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   277
    ^ Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   278
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   279
    "Created: 8.2.1997 / 13:50:57 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   280
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   281
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   282
string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   283
    String_Slot_count isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   284
        String_Slot_count := (Java at:'java.lang.String') instVarOffsetOf:'count'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   285
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   286
    ^ String_Slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   287
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   288
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   289
     JavaSlotIndexCache string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   290
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   291
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   292
    "Created: 8.2.1997 / 13:19:06 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   293
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   294
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   295
string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   296
    String_Slot_offset isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   297
        String_Slot_offset := (Java at:'java.lang.String') instVarOffsetOf:'offset'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   298
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   299
    ^ String_Slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   300
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   301
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   302
     JavaSlotIndexCache string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   303
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   304
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   305
    "Modified: 8.2.1997 / 13:18:53 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   306
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   307
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   308
string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   309
    String_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   310
        String_Slot_value := (Java at:'java.lang.String') instVarOffsetOf:'value'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   311
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   312
    ^ String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   313
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   314
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   315
     JavaSlotIndexCache string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   316
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   317
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   318
    "Created: 8.2.1997 / 13:19:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   319
! !
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   320
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   321
!JavaSlotIndexCache class methodsFor:'documentation'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   322
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   323
version
2678
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2396
diff changeset
   324
    ^ '$Header: /cvs/stx/stx/libjava/JavaSlotIndexCache.st,v 1.8 2013-09-06 00:41:26 vrany Exp $'
2248
028dc596b8a7 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   325
!
028dc596b8a7 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   326
028dc596b8a7 changed: #copyright
Claus Gittinger <cg@exept.de>
parents: 2151
diff changeset
   327
version_CVS
2678
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks:
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2396
diff changeset
   328
    ^ '$Header: /cvs/stx/stx/libjava/JavaSlotIndexCache.st,v 1.8 2013-09-06 00:41:26 vrany Exp $'
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
   329
!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
   330
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
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
   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
    ^ '$Changeset: <not expanded> $'
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   334
!
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   335
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   336
version_SVN
2731
13f5be2bf83b Merged d87e89dd5276 and fe83a843a7bf (branch default - CVS HEAD)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2711 2678
diff changeset
   337
    ^ 'Id'
2108
ca8c4e7db2e8 category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
   338
! !
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
   339