JavaSlotIndexCache.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 30 Aug 2013 12:04:07 +0100
branchdevelopment
changeset 2694 73e08423c72b
parent 2429 ebece4dcaab9
child 2711 a00302fe5083
permissions -rw-r--r--
Fix in GroovyEvaluator: import all used classes when evaluating for inspector of debugger. This makes all classes accessed without fully qualified name (vast majority of code) accessible by the evaluator as well. Otherwise, Groovy won't be able to resolve classes used in the code.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     1
"
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
     2
 COPYRIGHT (c) 1996-2011 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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2248
diff changeset
     6
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
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
"
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    40
 COPYRIGHT (c) 1996-2011 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
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
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
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
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
    62
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    63
!JavaSlotIndexCache class methodsFor:'queries'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    64
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    65
color_slot_pData_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    66
    Color_Slot_pData isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    67
        Color_Slot_pData := color class instVarOffsetOf:'pData'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    68
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    69
    ^ Color_Slot_pData
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    70
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    71
    "Created: 8.2.1997 / 13:53:16 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    72
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    73
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    74
color_slot_value_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    75
    Color_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    76
        Color_Slot_value := color class instVarOffsetOf:'value'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    77
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    78
    ^ Color_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    79
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    80
    "Created: 8.2.1997 / 13:54:48 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    81
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    82
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    83
date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    84
    Date_Slot_expanded isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    85
        Date_Slot_expanded := (Java at:'java.util.Date') instVarOffsetOf:'expanded'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    86
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    87
    ^ Date_Slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    88
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    89
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    90
     JavaSlotIndexCache date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    91
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    92
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    93
    "Created: 8.2.1997 / 13:28:18 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    94
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    95
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    96
date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    97
    Date_Slot_tm_hour isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    98
        Date_Slot_tm_hour := (Java at:'java.util.Date') instVarOffsetOf:'tm_hour'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    99
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   100
    ^ Date_Slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   101
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   102
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   103
     JavaSlotIndexCache date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   104
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   105
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   106
    "Created: 8.2.1997 / 13:29:24 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   107
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   108
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   109
date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   110
    Date_Slot_tm_isdst isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   111
        Date_Slot_tm_isdst := (Java at:'java.util.Date') instVarOffsetOf:'tm_isdst'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   112
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   113
    ^ Date_Slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   114
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   115
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   116
     JavaSlotIndexCache date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   117
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   118
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   119
    "Created: 8.2.1997 / 13:39:00 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   120
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   121
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   122
date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   123
    Date_Slot_tm_mday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   124
        Date_Slot_tm_mday := (Java at:'java.util.Date') instVarOffsetOf:'tm_mday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   125
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   126
    ^ Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   127
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   128
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   129
     JavaSlotIndexCache date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   130
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   131
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   132
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   133
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   134
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   135
date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   136
    Date_Slot_tm_millis isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   137
        Date_Slot_tm_millis := (Java at:'java.util.Date') instVarOffsetOf:'tm_millis'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   138
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   139
    ^ Date_Slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   140
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   141
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   142
     JavaSlotIndexCache date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   143
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   144
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   145
    "Created: 8.2.1997 / 13:29:43 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   146
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   147
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   148
date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   149
    Date_Slot_tm_min isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   150
        Date_Slot_tm_min := (Java at:'java.util.Date') instVarOffsetOf:'tm_min'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   151
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   152
    ^ Date_Slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   153
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   154
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   155
     JavaSlotIndexCache date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   156
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   157
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   158
    "Created: 8.2.1997 / 13:29:32 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   159
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   160
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   161
date_slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   162
    Date_Slot_tm_mon isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   163
        Date_Slot_tm_mon := (Java at:'java.util.Date') instVarOffsetOf:'tm_mon'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   164
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   165
    ^ Date_Slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   166
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   167
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   168
     JavaSlotIndexCache date_slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   169
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   170
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   171
    "Created: 8.2.1997 / 13:29:05 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   172
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   173
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   174
date_slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   175
    Date_Slot_tm_sec isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   176
        Date_Slot_tm_sec := (Java at:'java.util.Date') instVarOffsetOf:'tm_sec'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   177
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   178
    ^ Date_Slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   179
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   180
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   181
     JavaSlotIndexCache date_slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   182
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   183
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   184
    "Created: 8.2.1997 / 13:29:37 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   185
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   186
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   187
date_slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   188
    Date_Slot_tm_wday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   189
        Date_Slot_tm_wday := (Java at:'java.util.Date') instVarOffsetOf:'tm_wday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   190
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   191
    ^ Date_Slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   192
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   193
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   194
     JavaSlotIndexCache date_slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   195
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   196
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   197
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   198
    "Modified: 8.2.1997 / 13:40:12 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   199
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   200
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   201
date_slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   202
    Date_Slot_tm_yday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   203
        Date_Slot_tm_yday := (Java at:'java.util.Date') instVarOffsetOf:'tm_yday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   204
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   205
    ^ Date_Slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   206
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   207
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   208
     JavaSlotIndexCache date_slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   209
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   210
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   211
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   212
    "Modified: 8.2.1997 / 13:38:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   213
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   214
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   215
date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   216
    Date_Slot_tm_year isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   217
        Date_Slot_tm_year := (Java at:'java.util.Date') instVarOffsetOf:'tm_year'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   218
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   219
    ^ Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   220
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   221
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   222
     JavaSlotIndexCache date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   223
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   224
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   225
    "Created: 8.2.1997 / 13:28:52 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   226
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   227
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   228
date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   229
    Date_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   230
        Date_Slot_value := (Java at:'java.util.Date') instVarOffsetOf:'value'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   231
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   232
    ^ Date_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   233
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   234
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   235
     JavaSlotIndexCache date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   236
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   237
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   238
    "Created: 8.2.1997 / 13:30:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   239
    "Modified: 8.2.1997 / 13:30:51 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   240
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   241
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   242
date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   243
    Date_Slot_valueValid isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   244
        Date_Slot_valueValid := (Java at:'java.util.Date') instVarOffsetOf:'valueValid'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   245
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   246
    ^ Date_Slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   247
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   248
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   249
     JavaSlotIndexCache date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   250
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   251
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   252
    "Created: 8.2.1997 / 13:25:46 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   253
    "Modified: 8.2.1997 / 13:27:47 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   254
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   255
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   256
graphics_slot_color_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   257
    Graphics_Slot_color isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   258
        Graphics_Slot_color := graphics class instVarOffsetOf:'color'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   259
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   260
    ^ Graphics_Slot_color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   261
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   262
    "Created: 8.2.1997 / 13:53:56 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   263
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   264
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   265
graphics_slot_pDrawable_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   266
    Graphics_Slot_pDrawable isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   267
        Graphics_Slot_pDrawable := graphics class instVarOffsetOf:'pDrawable'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   268
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   269
    ^ Graphics_Slot_pDrawable
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   270
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   271
    "Created: 8.2.1997 / 13:49:42 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   272
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   273
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   274
graphics_slot_touched_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   275
    Graphics_Slot_touched isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   276
        Graphics_Slot_touched := graphics class instVarOffsetOf:'touched'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   277
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   278
    ^ Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   279
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   280
    "Created: 8.2.1997 / 13:50:57 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   281
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   282
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   283
string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   284
    String_Slot_count isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   285
        String_Slot_count := (Java at:'java.lang.String') instVarOffsetOf:'count'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   286
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   287
    ^ String_Slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   288
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   289
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   290
     JavaSlotIndexCache string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   291
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   292
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   293
    "Created: 8.2.1997 / 13:19:06 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   294
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   295
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   296
string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   297
    String_Slot_offset isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   298
        String_Slot_offset := (Java at:'java.lang.String') instVarOffsetOf:'offset'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   299
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   300
    ^ String_Slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   301
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   302
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   303
     JavaSlotIndexCache string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   304
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   305
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   306
    "Modified: 8.2.1997 / 13:18:53 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   307
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   308
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   309
string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   310
    String_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   311
        String_Slot_value := (Java at:'java.lang.String') instVarOffsetOf:'value'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   312
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   313
    ^ String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   314
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   315
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   316
     JavaSlotIndexCache string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   317
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   318
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   319
    "Created: 8.2.1997 / 13:19:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   320
! !
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   321
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
   322
138
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
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
   326
    ^ '$Header: /cvs/stx/stx/libjava/JavaSlotIndexCache.st,v 1.7 2013-02-25 11:15:31 vrany Exp $'
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
2396
fadc6d7a2f5b Updated to rev 009a0df3afce
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2353
diff changeset
   330
    ^ '$Header: /cvs/stx/stx/libjava/JavaSlotIndexCache.st,v 1.7 2013-02-25 11:15:31 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
   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
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
    ^ '§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