JavaSlotIndexCache.st
author Claus Gittinger <cg@exept.de>
Thu, 24 Nov 2011 12:24:23 +0100
changeset 2229 e19b4b99be34
parent 2151 c0b6570c6f9b
child 2248 028dc596b8a7
permissions -rw-r--r--
added: #version_CVS
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
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
     3
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
     4
                            SWING Research Group, Czech Technical University in Prague
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
     5
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
     6
 Parts of the code written by Claus Gittinger are under following
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
     7
 license:
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     8
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.
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    15
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    16
 Parts of the code written at SWING Reasearch Group [1] are MIT licensed:
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    17
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    18
 Permission is hereby granted, free of charge, to any person
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    19
 obtaining a copy of this software and associated documentation
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    20
 files (the 'Software'), to deal in the Software without
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    21
 restriction, including without limitation the rights to use,
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    22
 copy, modify, merge, publish, distribute, sublicense, and/or sell
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    23
 copies of the Software, and to permit persons to whom the
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    24
 Software is furnished to do so, subject to the following
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    25
 conditions:
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    26
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    27
 The above copyright notice and this permission notice shall be
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    28
 included in all copies or substantial portions of the Software.
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    29
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    30
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    31
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    32
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    33
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    34
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    35
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    36
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    37
 OTHER DEALINGS IN THE SOFTWARE.
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    38
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    39
 [1] Code written at SWING Research Group contain a signature
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    40
     of one of the above copright owners.
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    41
"
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    42
"{ Package: 'stx:libjava' }"
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    43
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    44
Object subclass:#JavaSlotIndexCache
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    45
	instanceVariableNames:''
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    46
	classVariableNames:'String_Slot_offset String_Slot_count String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    47
		Date_Slot_valueValid Date_Slot_expanded Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    48
		Date_Slot_tm_yday Date_Slot_tm_mon Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    49
		Date_Slot_tm_hour Date_Slot_tm_min Date_Slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    50
		Date_Slot_tm_millis Date_Slot_tm_isdst Date_Slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    51
		Date_Slot_value Graphics_Slot_pDrawable Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    52
		Graphics_Slot_color Color_Slot_pData Color_Slot_value'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    53
	poolDictionaries:''
713
75e92ac63bf1 category change
cg
parents: 454
diff changeset
    54
	category:'Languages-Java-Support'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    55
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    56
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    57
!JavaSlotIndexCache class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    58
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    59
copyright
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    60
"
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    61
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    62
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    63
                            SWING Research Group, Czech Technical University in Prague
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    64
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    65
 Parts of the code written by Claus Gittinger are under following
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    66
 license:
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    67
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    68
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    69
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    70
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    71
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    72
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    73
 hereby transferred.
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    74
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    75
 Parts of the code written at SWING Reasearch Group [1] are MIT licensed:
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    76
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    77
 Permission is hereby granted, free of charge, to any person
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    78
 obtaining a copy of this software and associated documentation
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    79
 files (the 'Software'), to deal in the Software without
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    80
 restriction, including without limitation the rights to use,
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    81
 copy, modify, merge, publish, distribute, sublicense, and/or sell
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    82
 copies of the Software, and to permit persons to whom the
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    83
 Software is furnished to do so, subject to the following
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    84
 conditions:
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    85
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    86
 The above copyright notice and this permission notice shall be
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    87
 included in all copies or substantial portions of the Software.
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    88
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    89
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    90
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    91
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    92
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    93
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    94
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    95
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    96
 OTHER DEALINGS IN THE SOFTWARE.
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    97
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    98
 [1] Code written at SWING Research Group contain a signature
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
    99
     of one of the above copright owners.
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   100
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   101
"
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
   102
! !
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   103
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   104
!JavaSlotIndexCache class methodsFor:'queries'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   105
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   106
color_slot_pData_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   107
    Color_Slot_pData isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   108
        Color_Slot_pData := color class instVarOffsetOf:'pData'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   109
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   110
    ^ Color_Slot_pData
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   111
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   112
    "Created: 8.2.1997 / 13:53:16 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   113
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   114
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   115
color_slot_value_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   116
    Color_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   117
        Color_Slot_value := color class instVarOffsetOf:'value'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   118
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   119
    ^ Color_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   120
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   121
    "Created: 8.2.1997 / 13:54:48 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   122
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   123
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   124
date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   125
    Date_Slot_expanded isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   126
        Date_Slot_expanded := (Java at:'java.util.Date') instVarOffsetOf:'expanded'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   127
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   128
    ^ Date_Slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   129
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   130
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   131
     JavaSlotIndexCache date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   132
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   133
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   134
    "Created: 8.2.1997 / 13:28:18 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   135
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   136
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   137
date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   138
    Date_Slot_tm_hour isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   139
        Date_Slot_tm_hour := (Java at:'java.util.Date') instVarOffsetOf:'tm_hour'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   140
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   141
    ^ Date_Slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   142
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   143
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   144
     JavaSlotIndexCache date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   145
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   146
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   147
    "Created: 8.2.1997 / 13:29:24 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   148
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   149
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   150
date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   151
    Date_Slot_tm_isdst isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   152
        Date_Slot_tm_isdst := (Java at:'java.util.Date') instVarOffsetOf:'tm_isdst'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   153
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   154
    ^ Date_Slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   155
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   156
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   157
     JavaSlotIndexCache date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   158
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   159
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   160
    "Created: 8.2.1997 / 13:39:00 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   161
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   162
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   163
date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   164
    Date_Slot_tm_mday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   165
        Date_Slot_tm_mday := (Java at:'java.util.Date') instVarOffsetOf:'tm_mday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   166
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   167
    ^ Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   168
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   169
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   170
     JavaSlotIndexCache date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   171
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   172
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   173
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   174
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   175
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   176
date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   177
    Date_Slot_tm_millis isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   178
        Date_Slot_tm_millis := (Java at:'java.util.Date') instVarOffsetOf:'tm_millis'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   179
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   180
    ^ Date_Slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   181
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   182
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   183
     JavaSlotIndexCache date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   184
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   185
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   186
    "Created: 8.2.1997 / 13:29:43 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   187
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   188
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   189
date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   190
    Date_Slot_tm_min isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   191
        Date_Slot_tm_min := (Java at:'java.util.Date') instVarOffsetOf:'tm_min'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   192
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   193
    ^ Date_Slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   194
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   195
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   196
     JavaSlotIndexCache date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   197
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   198
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   199
    "Created: 8.2.1997 / 13:29:32 / 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_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   203
    Date_Slot_tm_mon isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   204
        Date_Slot_tm_mon := (Java at:'java.util.Date') instVarOffsetOf:'tm_mon'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   205
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   206
    ^ Date_Slot_tm_mon
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_mon
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:05 / 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_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   216
    Date_Slot_tm_sec isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   217
        Date_Slot_tm_sec := (Java at:'java.util.Date') instVarOffsetOf:'tm_sec'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   218
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   219
    ^ Date_Slot_tm_sec
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_sec
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:29:37 / 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_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   229
    Date_Slot_tm_wday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   230
        Date_Slot_tm_wday := (Java at:'java.util.Date') instVarOffsetOf:'tm_wday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   231
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   232
    ^ Date_Slot_tm_wday
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_tm_wday
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:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   239
    "Modified: 8.2.1997 / 13:40:12 / 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_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   243
    Date_Slot_tm_yday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   244
        Date_Slot_tm_yday := (Java at:'java.util.Date') instVarOffsetOf:'tm_yday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   245
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   246
    ^ Date_Slot_tm_yday
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_tm_yday
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:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   253
    "Modified: 8.2.1997 / 13:38:30 / 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
date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   257
    Date_Slot_tm_year isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   258
        Date_Slot_tm_year := (Java at:'java.util.Date') instVarOffsetOf:'tm_year'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   259
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   260
    ^ Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   261
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   262
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   263
     JavaSlotIndexCache date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   264
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   265
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   266
    "Created: 8.2.1997 / 13:28:52 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   267
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   268
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   269
date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   270
    Date_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   271
        Date_Slot_value := (Java at:'java.util.Date') instVarOffsetOf:'value'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   272
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   273
    ^ Date_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   274
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   275
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   276
     JavaSlotIndexCache date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   277
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   278
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   279
    "Created: 8.2.1997 / 13:30:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   280
    "Modified: 8.2.1997 / 13:30:51 / 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
date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   284
    Date_Slot_valueValid isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   285
        Date_Slot_valueValid := (Java at:'java.util.Date') instVarOffsetOf:'valueValid'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   286
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   287
    ^ Date_Slot_valueValid
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 date_slot_valueValid
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:25:46 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   294
    "Modified: 8.2.1997 / 13:27:47 / 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
graphics_slot_color_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   298
    Graphics_Slot_color isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   299
        Graphics_Slot_color := graphics class instVarOffsetOf:'color'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   300
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   301
    ^ Graphics_Slot_color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   302
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   303
    "Created: 8.2.1997 / 13:53:56 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   304
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   305
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   306
graphics_slot_pDrawable_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   307
    Graphics_Slot_pDrawable isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   308
        Graphics_Slot_pDrawable := graphics class instVarOffsetOf:'pDrawable'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   309
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   310
    ^ Graphics_Slot_pDrawable
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   311
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   312
    "Created: 8.2.1997 / 13:49:42 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   313
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   314
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   315
graphics_slot_touched_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   316
    Graphics_Slot_touched isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   317
        Graphics_Slot_touched := graphics class instVarOffsetOf:'touched'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   318
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   319
    ^ Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   320
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   321
    "Created: 8.2.1997 / 13:50:57 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   322
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   323
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   324
string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   325
    String_Slot_count isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   326
        String_Slot_count := (Java at:'java.lang.String') instVarOffsetOf:'count'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   327
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   328
    ^ String_Slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   329
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   330
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   331
     JavaSlotIndexCache string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   332
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   333
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   334
    "Created: 8.2.1997 / 13:19:06 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   335
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   336
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   337
string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   338
    String_Slot_offset isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   339
        String_Slot_offset := (Java at:'java.lang.String') instVarOffsetOf:'offset'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   340
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   341
    ^ String_Slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   342
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   343
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   344
     JavaSlotIndexCache string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   345
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   346
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   347
    "Modified: 8.2.1997 / 13:18:53 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   348
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   349
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   350
string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   351
    String_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   352
        String_Slot_value := (Java at:'java.lang.String') instVarOffsetOf:'value'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   353
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   354
    ^ String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   355
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   356
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   357
     JavaSlotIndexCache string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   358
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   359
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   360
    "Created: 8.2.1997 / 13:19:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   361
! !
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   362
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   363
!JavaSlotIndexCache class methodsFor:'documentation'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   364
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   365
version
2151
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   366
    ^ '$Id: JavaSlotIndexCache.st,v 1.4 2011-08-18 18:42:48 vrany Exp $'
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   367
!
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   368
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   369
version_SVN
c0b6570c6f9b Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2108
diff changeset
   370
    ^ '$Id: JavaSlotIndexCache.st,v 1.4 2011-08-18 18:42:48 vrany Exp $'
2108
ca8c4e7db2e8 category change
Claus Gittinger <cg@exept.de>
parents: 749
diff changeset
   371
! !