JavaSlotIndexCache.st
author cg
Mon, 16 Nov 1998 15:17:54 +0000
changeset 454 38f590639d65
parent 138 a3a4f16ec585
child 713 75e92ac63bf1
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     1
"
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     3
              All Rights Reserved
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     4
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     5
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     6
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     8
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
     9
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    10
 hereby transferred.
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    11
"
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    12
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    13
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    14
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    15
Object subclass:#JavaSlotIndexCache
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    16
	instanceVariableNames:''
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    17
	classVariableNames:'String_Slot_offset String_Slot_count String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    18
		Date_Slot_valueValid Date_Slot_expanded Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    19
		Date_Slot_tm_yday Date_Slot_tm_mon Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    20
		Date_Slot_tm_hour Date_Slot_tm_min Date_Slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    21
		Date_Slot_tm_millis Date_Slot_tm_isdst Date_Slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    22
		Date_Slot_value Graphics_Slot_pDrawable Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    23
		Graphics_Slot_color Color_Slot_pData Color_Slot_value'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    24
	poolDictionaries:''
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    25
	category:'Java-Support'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    26
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    27
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    28
!JavaSlotIndexCache class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    29
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    30
copyright
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    31
"
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    32
 COPYRIGHT (c) 1997 by eXept Software AG
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    33
              All Rights Reserved
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    34
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    35
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    36
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    37
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    38
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    39
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    40
 hereby transferred.
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    41
"
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    42
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    43
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
    44
! !
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    45
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    46
!JavaSlotIndexCache class methodsFor:'queries'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    47
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    48
color_slot_pData_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    49
    Color_Slot_pData isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    50
        Color_Slot_pData := color class instVarOffsetOf:'pData'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    51
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    52
    ^ Color_Slot_pData
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    53
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    54
    "Created: 8.2.1997 / 13:53:16 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    55
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    56
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    57
color_slot_value_from:color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    58
    Color_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    59
        Color_Slot_value := color class instVarOffsetOf:'value'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    60
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    61
    ^ Color_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    62
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    63
    "Created: 8.2.1997 / 13:54:48 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    64
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    65
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    66
date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    67
    Date_Slot_expanded isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    68
        Date_Slot_expanded := (Java at:'java.util.Date') instVarOffsetOf:'expanded'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    69
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    70
    ^ Date_Slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    71
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    72
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    73
     JavaSlotIndexCache date_slot_expanded
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    74
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    75
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    76
    "Created: 8.2.1997 / 13:28:18 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    77
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    78
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    79
date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    80
    Date_Slot_tm_hour isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    81
        Date_Slot_tm_hour := (Java at:'java.util.Date') instVarOffsetOf:'tm_hour'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    82
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    83
    ^ Date_Slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    84
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    85
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    86
     JavaSlotIndexCache date_slot_tm_hour
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    87
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    88
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    89
    "Created: 8.2.1997 / 13:29:24 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    90
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    91
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    92
date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    93
    Date_Slot_tm_isdst isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    94
        Date_Slot_tm_isdst := (Java at:'java.util.Date') instVarOffsetOf:'tm_isdst'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    95
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    96
    ^ Date_Slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    97
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    98
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
    99
     JavaSlotIndexCache date_slot_tm_isdst
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   100
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   101
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   102
    "Created: 8.2.1997 / 13:39:00 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   103
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   104
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   105
date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   106
    Date_Slot_tm_mday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   107
        Date_Slot_tm_mday := (Java at:'java.util.Date') instVarOffsetOf:'tm_mday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   108
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   109
    ^ Date_Slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   110
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   111
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   112
     JavaSlotIndexCache date_slot_tm_mday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   113
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   114
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   115
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   116
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   117
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   118
date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   119
    Date_Slot_tm_millis isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   120
        Date_Slot_tm_millis := (Java at:'java.util.Date') instVarOffsetOf:'tm_millis'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   121
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   122
    ^ Date_Slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   123
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   124
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   125
     JavaSlotIndexCache date_slot_tm_millis
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   126
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   127
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   128
    "Created: 8.2.1997 / 13:29:43 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   129
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   130
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   131
date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   132
    Date_Slot_tm_min isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   133
        Date_Slot_tm_min := (Java at:'java.util.Date') instVarOffsetOf:'tm_min'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   134
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   135
    ^ Date_Slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   136
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   137
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   138
     JavaSlotIndexCache date_slot_tm_min
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   139
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   140
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   141
    "Created: 8.2.1997 / 13:29:32 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   142
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   143
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   144
date_slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   145
    Date_Slot_tm_mon isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   146
        Date_Slot_tm_mon := (Java at:'java.util.Date') instVarOffsetOf:'tm_mon'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   147
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   148
    ^ Date_Slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   149
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   150
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   151
     JavaSlotIndexCache date_slot_tm_mon
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   152
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   153
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   154
    "Created: 8.2.1997 / 13:29:05 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   155
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   156
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   157
date_slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   158
    Date_Slot_tm_sec isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   159
        Date_Slot_tm_sec := (Java at:'java.util.Date') instVarOffsetOf:'tm_sec'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   160
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   161
    ^ Date_Slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   162
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   163
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   164
     JavaSlotIndexCache date_slot_tm_sec
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   165
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   166
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   167
    "Created: 8.2.1997 / 13:29:37 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   168
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   169
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   170
date_slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   171
    Date_Slot_tm_wday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   172
        Date_Slot_tm_wday := (Java at:'java.util.Date') instVarOffsetOf:'tm_wday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   173
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   174
    ^ Date_Slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   175
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   176
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   177
     JavaSlotIndexCache date_slot_tm_wday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   178
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   179
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   180
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   181
    "Modified: 8.2.1997 / 13:40:12 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   182
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   183
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   184
date_slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   185
    Date_Slot_tm_yday isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   186
        Date_Slot_tm_yday := (Java at:'java.util.Date') instVarOffsetOf:'tm_yday'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   187
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   188
    ^ Date_Slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   189
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   190
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   191
     JavaSlotIndexCache date_slot_tm_yday
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   192
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   193
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   194
    "Created: 8.2.1997 / 13:29:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   195
    "Modified: 8.2.1997 / 13:38:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   196
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   197
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   198
date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   199
    Date_Slot_tm_year isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   200
        Date_Slot_tm_year := (Java at:'java.util.Date') instVarOffsetOf:'tm_year'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   201
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   202
    ^ Date_Slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   203
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   204
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   205
     JavaSlotIndexCache date_slot_tm_year
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   206
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   207
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   208
    "Created: 8.2.1997 / 13:28:52 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   209
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   210
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   211
date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   212
    Date_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   213
        Date_Slot_value := (Java at:'java.util.Date') instVarOffsetOf:'value'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   214
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   215
    ^ Date_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   216
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   217
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   218
     JavaSlotIndexCache date_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   219
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   220
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   221
    "Created: 8.2.1997 / 13:30:30 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   222
    "Modified: 8.2.1997 / 13:30:51 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   223
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   224
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   225
date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   226
    Date_Slot_valueValid isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   227
        Date_Slot_valueValid := (Java at:'java.util.Date') instVarOffsetOf:'valueValid'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   228
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   229
    ^ Date_Slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   230
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   231
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   232
     JavaSlotIndexCache date_slot_valueValid
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   233
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   234
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   235
    "Created: 8.2.1997 / 13:25:46 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   236
    "Modified: 8.2.1997 / 13:27:47 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   237
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   238
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   239
graphics_slot_color_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   240
    Graphics_Slot_color isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   241
        Graphics_Slot_color := graphics class instVarOffsetOf:'color'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   242
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   243
    ^ Graphics_Slot_color
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   244
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   245
    "Created: 8.2.1997 / 13:53:56 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   246
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   247
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   248
graphics_slot_pDrawable_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   249
    Graphics_Slot_pDrawable isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   250
        Graphics_Slot_pDrawable := graphics class instVarOffsetOf:'pDrawable'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   251
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   252
    ^ Graphics_Slot_pDrawable
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   253
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   254
    "Created: 8.2.1997 / 13:49:42 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   255
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   256
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   257
graphics_slot_touched_from:graphics
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   258
    Graphics_Slot_touched isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   259
        Graphics_Slot_touched := graphics class instVarOffsetOf:'touched'
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   260
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   261
    ^ Graphics_Slot_touched
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   262
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   263
    "Created: 8.2.1997 / 13:50:57 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   264
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   265
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   266
string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   267
    String_Slot_count isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   268
        String_Slot_count := (Java at:'java.lang.String') instVarOffsetOf:'count'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   269
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   270
    ^ String_Slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   271
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   272
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   273
     JavaSlotIndexCache string_slot_count
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   274
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   275
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   276
    "Created: 8.2.1997 / 13:19:06 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   277
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   278
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   279
string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   280
    String_Slot_offset isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   281
        String_Slot_offset := (Java at:'java.lang.String') instVarOffsetOf:'offset'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   282
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   283
    ^ String_Slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   284
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   285
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   286
     JavaSlotIndexCache string_slot_offset
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   287
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   288
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   289
    "Modified: 8.2.1997 / 13:18:53 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   290
!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   291
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   292
string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   293
    String_Slot_value isNil ifTrue:[
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   294
        String_Slot_value := (Java at:'java.lang.String') instVarOffsetOf:'value'    
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   295
    ].
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   296
    ^ String_Slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   297
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   298
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   299
     JavaSlotIndexCache string_slot_value
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   300
    "
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   301
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   302
    "Created: 8.2.1997 / 13:19:14 / cg"
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   303
! !
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   304
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   305
!JavaSlotIndexCache class methodsFor:'documentation'!
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   306
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   307
version
454
38f590639d65 *** empty log message ***
cg
parents: 138
diff changeset
   308
    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaSlotIndexCache.st,v 1.2 1998/11/16 15:13:39 cg Exp $'
138
a3a4f16ec585 intitial checkin
cg
parents:
diff changeset
   309
! !