3263 variableByteSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3263 variableByteSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3264 "create a new class as a subclass of an existing class (the receiver) |
3264 "create a new class as a subclass of an existing class (the receiver) |
3265 in which the subclass has indexable byte-sized nonpointer variables" |
3265 in which the subclass has indexable byte-sized nonpointer variables" |
3266 |
3266 |
3267 self isVariable ifTrue:[ |
3267 self isVariable ifTrue:[ |
3268 self isBytes ifFalse:[ |
3268 self isBytes ifFalse:[ |
3269 ^ self error: |
3269 ^ ClassBuildError raiseErrorString: |
3270 'cannot make a variable byte subclass of a variable non-byte class' |
3270 'cannot make a variable byte subclass of a variable non-byte class' |
3271 ]. |
3271 ]. |
3272 ]. |
3272 ]. |
3273 |
3273 |
3274 ^ self class |
3274 ^ self class |
3275 name:nameSymbol |
3275 name:nameSymbol |
3276 inEnvironment:(Class nameSpaceQuerySignal query) |
3276 inEnvironment:(Class nameSpaceQuerySignal query) |
3277 subclassOf:self |
3277 subclassOf:self |
3278 instanceVariableNames:instVarNameString |
3278 instanceVariableNames:instVarNameString |
3279 variable:true |
3279 variable:true |
3280 words:false |
3280 words:false |
3281 pointers:false |
3281 pointers:false |
3282 classVariableNames:classVarString |
3282 classVariableNames:classVarString |
3283 poolDictionaries:pool |
3283 poolDictionaries:pool |
3284 category:cat |
3284 category:cat |
3285 comment:nil |
3285 comment:nil |
3286 changed:true |
3286 changed:true |
3287 |
3287 |
3288 "Created: / 12.10.1996 / 19:18:18 / cg" |
3288 "Created: / 12.10.1996 / 19:18:18 / cg" |
3289 "Modified: / 6.11.1996 / 22:48:18 / cg" |
3289 "Modified: / 6.11.1996 / 22:48:18 / cg" |
3290 "Modified: / 18.3.1999 / 18:18:38 / stefan" |
3290 "Modified: / 18.3.1999 / 18:18:38 / stefan" |
3291 ! |
3291 ! |
3293 variableDoubleSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3293 variableDoubleSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3294 "create a new class as a subclass of an existing class (the receiver) |
3294 "create a new class as a subclass of an existing class (the receiver) |
3295 in which the subclass has indexable double-sized nonpointer variables" |
3295 in which the subclass has indexable double-sized nonpointer variables" |
3296 |
3296 |
3297 self isVariable ifTrue:[ |
3297 self isVariable ifTrue:[ |
3298 self isDoubles ifFalse:[ |
3298 self isDoubles ifFalse:[ |
3299 ^ self error: |
3299 ^ ClassBuildError raiseErrorString: |
3300 'cannot make a variable double subclass of a variable non-double class' |
3300 'cannot make a variable double subclass of a variable non-double class' |
3301 ]. |
3301 ]. |
3302 ]. |
3302 ]. |
3303 |
3303 |
3304 ^ self class |
3304 ^ self class |
3305 name:nameSymbol |
3305 name:nameSymbol |
3306 inEnvironment:(Class nameSpaceQuerySignal query) |
3306 inEnvironment:(Class nameSpaceQuerySignal query) |
3307 subclassOf:self |
3307 subclassOf:self |
3308 instanceVariableNames:instVarNameString |
3308 instanceVariableNames:instVarNameString |
3309 variable:#double |
3309 variable:#double |
3310 words:false |
3310 words:false |
3311 pointers:false |
3311 pointers:false |
3312 classVariableNames:classVarString |
3312 classVariableNames:classVarString |
3313 poolDictionaries:pool |
3313 poolDictionaries:pool |
3314 category:cat |
3314 category:cat |
3315 comment:nil |
3315 comment:nil |
3316 changed:true |
3316 changed:true |
3317 |
3317 |
3318 "Created: / 12.10.1996 / 19:18:21 / cg" |
3318 "Created: / 12.10.1996 / 19:18:21 / cg" |
3319 "Modified: / 6.11.1996 / 22:48:22 / cg" |
3319 "Modified: / 6.11.1996 / 22:48:22 / cg" |
3320 "Modified: / 18.3.1999 / 18:18:54 / stefan" |
3320 "Modified: / 18.3.1999 / 18:18:54 / stefan" |
3321 ! |
3321 ! |
3323 variableFloatSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3323 variableFloatSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3324 "create a new class as a subclass of an existing class (the receiver) |
3324 "create a new class as a subclass of an existing class (the receiver) |
3325 in which the subclass has indexable float-sized nonpointer variables" |
3325 in which the subclass has indexable float-sized nonpointer variables" |
3326 |
3326 |
3327 self isVariable ifTrue:[ |
3327 self isVariable ifTrue:[ |
3328 self isFloats ifFalse:[ |
3328 self isFloats ifFalse:[ |
3329 ^ self error: |
3329 ^ ClassBuildError raiseErrorString: |
3330 'cannot make a variable float subclass of a variable non-float class' |
3330 'cannot make a variable float subclass of a variable non-float class' |
3331 ]. |
3331 ]. |
3332 ]. |
3332 ]. |
3333 |
3333 |
3334 ^ self class |
3334 ^ self class |
3335 name:nameSymbol |
3335 name:nameSymbol |
3336 inEnvironment:(Class nameSpaceQuerySignal query) |
3336 inEnvironment:(Class nameSpaceQuerySignal query) |
3337 subclassOf:self |
3337 subclassOf:self |
3338 instanceVariableNames:instVarNameString |
3338 instanceVariableNames:instVarNameString |
3339 variable:#float |
3339 variable:#float |
3340 words:false |
3340 words:false |
3341 pointers:false |
3341 pointers:false |
3342 classVariableNames:classVarString |
3342 classVariableNames:classVarString |
3343 poolDictionaries:pool |
3343 poolDictionaries:pool |
3344 category:cat |
3344 category:cat |
3345 comment:nil |
3345 comment:nil |
3346 changed:true |
3346 changed:true |
3347 |
3347 |
3348 "Created: / 12.10.1996 / 19:18:24 / cg" |
3348 "Created: / 12.10.1996 / 19:18:24 / cg" |
3349 "Modified: / 6.11.1996 / 22:48:26 / cg" |
3349 "Modified: / 6.11.1996 / 22:48:26 / cg" |
3350 "Modified: / 18.3.1999 / 18:19:02 / stefan" |
3350 "Modified: / 18.3.1999 / 18:19:02 / stefan" |
3351 ! |
3351 ! |
3353 variableLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3353 variableLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3354 "create a new class as a subclass of an existing class (the receiver) |
3354 "create a new class as a subclass of an existing class (the receiver) |
3355 in which the subclass has indexable unsigned long-long-sized nonpointer variables" |
3355 in which the subclass has indexable unsigned long-long-sized nonpointer variables" |
3356 |
3356 |
3357 self isVariable ifTrue:[ |
3357 self isVariable ifTrue:[ |
3358 self isLongLongs ifFalse:[ |
3358 self isLongLongs ifFalse:[ |
3359 ^ self error: |
3359 ^ ClassBuildError raiseErrorString: |
3360 'cannot make a variable long-long subclass of a variable non-long-long class' |
3360 'cannot make a variable long-long subclass of a variable non-long-long class' |
3361 ]. |
3361 ]. |
3362 ]. |
3362 ]. |
3363 |
3363 |
3364 ^ self class |
3364 ^ self class |
3365 name:nameSymbol |
3365 name:nameSymbol |
3366 inEnvironment:(Class nameSpaceQuerySignal query) |
3366 inEnvironment:(Class nameSpaceQuerySignal query) |
3367 subclassOf:self |
3367 subclassOf:self |
3368 instanceVariableNames:instVarNameString |
3368 instanceVariableNames:instVarNameString |
3369 variable:#longLong |
3369 variable:#longLong |
3370 words:false |
3370 words:false |
3371 pointers:false |
3371 pointers:false |
3372 classVariableNames:classVarString |
3372 classVariableNames:classVarString |
3373 poolDictionaries:pool |
3373 poolDictionaries:pool |
3374 category:cat |
3374 category:cat |
3375 comment:nil |
3375 comment:nil |
3376 changed:true |
3376 changed:true |
3377 |
3377 |
3378 "Modified: / 18.3.1999 / 18:19:17 / stefan" |
3378 "Modified: / 18.3.1999 / 18:19:17 / stefan" |
3379 ! |
3379 ! |
3380 |
3380 |
3381 variableLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3381 variableLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3382 "create a new class as a subclass of an existing class (the receiver) |
3382 "create a new class as a subclass of an existing class (the receiver) |
3383 in which the subclass has indexable long-sized nonpointer variables" |
3383 in which the subclass has indexable long-sized nonpointer variables" |
3384 |
3384 |
3385 self isVariable ifTrue:[ |
3385 self isVariable ifTrue:[ |
3386 self isLongs ifFalse:[ |
3386 self isLongs ifFalse:[ |
3387 self isBytes ifFalse:[ |
3387 self isBytes ifFalse:[ |
3388 ^ self error: |
3388 ^ ClassBuildError raiseErrorString: |
3389 'cannot make a variable long subclass of a variable non-long class' |
3389 'cannot make a variable long subclass of a variable non-long class' |
3390 ]. |
3390 ]. |
3391 ]. |
3391 ]. |
3392 ]. |
3392 ]. |
3393 |
3393 |
3394 ^ self class |
3394 ^ self class |
3395 name:nameSymbol |
3395 name:nameSymbol |
3396 inEnvironment:(Class nameSpaceQuerySignal query) |
3396 inEnvironment:(Class nameSpaceQuerySignal query) |
3397 subclassOf:self |
3397 subclassOf:self |
3398 instanceVariableNames:instVarNameString |
3398 instanceVariableNames:instVarNameString |
3399 variable:#long |
3399 variable:#long |
3400 words:false |
3400 words:false |
3401 pointers:false |
3401 pointers:false |
3402 classVariableNames:classVarString |
3402 classVariableNames:classVarString |
3403 poolDictionaries:pool |
3403 poolDictionaries:pool |
3404 category:cat |
3404 category:cat |
3405 comment:nil |
3405 comment:nil |
3406 changed:true |
3406 changed:true |
3407 |
3407 |
3408 "Created: / 12.10.1996 / 19:18:27 / cg" |
3408 "Created: / 12.10.1996 / 19:18:27 / cg" |
3409 "Modified: / 6.11.1996 / 22:48:29 / cg" |
3409 "Modified: / 6.11.1996 / 22:48:29 / cg" |
3410 "Modified: / 18.3.1999 / 18:19:28 / stefan" |
3410 "Modified: / 18.3.1999 / 18:19:28 / stefan" |
3411 ! |
3411 ! |
3413 variableSignedLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3413 variableSignedLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3414 "create a new class as a subclass of an existing class (the receiver) |
3414 "create a new class as a subclass of an existing class (the receiver) |
3415 in which the subclass has indexable signed long-long-sized nonpointer variables" |
3415 in which the subclass has indexable signed long-long-sized nonpointer variables" |
3416 |
3416 |
3417 self isVariable ifTrue:[ |
3417 self isVariable ifTrue:[ |
3418 self isSignedLongLongs ifFalse:[ |
3418 self isSignedLongLongs ifFalse:[ |
3419 ^ self error: |
3419 ^ ClassBuildError raiseErrorString: |
3420 'cannot make a variable signed long-long subclass of a variable non-long-long class' |
3420 'cannot make a variable signed long-long subclass of a variable non-long-long class' |
3421 ]. |
3421 ]. |
3422 ]. |
3422 ]. |
3423 |
3423 |
3424 ^ self class |
3424 ^ self class |
3425 name:nameSymbol |
3425 name:nameSymbol |
3426 inEnvironment:(Class nameSpaceQuerySignal query) |
3426 inEnvironment:(Class nameSpaceQuerySignal query) |
3427 subclassOf:self |
3427 subclassOf:self |
3428 instanceVariableNames:instVarNameString |
3428 instanceVariableNames:instVarNameString |
3429 variable:#signedLongLong |
3429 variable:#signedLongLong |
3430 words:false |
3430 words:false |
3431 pointers:false |
3431 pointers:false |
3432 classVariableNames:classVarString |
3432 classVariableNames:classVarString |
3433 poolDictionaries:pool |
3433 poolDictionaries:pool |
3434 category:cat |
3434 category:cat |
3435 comment:nil |
3435 comment:nil |
3436 changed:true |
3436 changed:true |
3437 |
3437 |
3438 "Modified: / 18.3.1999 / 18:19:35 / stefan" |
3438 "Modified: / 18.3.1999 / 18:19:35 / stefan" |
3439 ! |
3439 ! |
3440 |
3440 |
3441 variableSignedLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3441 variableSignedLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3442 "create a new class as a subclass of an existing class (the receiver) |
3442 "create a new class as a subclass of an existing class (the receiver) |
3443 in which the subclass has indexable signed long-sized nonpointer variables" |
3443 in which the subclass has indexable signed long-sized nonpointer variables" |
3444 |
3444 |
3445 self isVariable ifTrue:[ |
3445 self isVariable ifTrue:[ |
3446 self isSignedLongs ifFalse:[ |
3446 self isSignedLongs ifFalse:[ |
3447 ^ self error: |
3447 ^ ClassBuildError raiseErrorString: |
3448 'cannot make a variable signed long subclass of a variable non-long class' |
3448 'cannot make a variable signed long subclass of a variable non-long class' |
3449 ]. |
3449 ]. |
3450 ]. |
3450 ]. |
3451 |
3451 |
3452 ^ self class |
3452 ^ self class |
3453 name:nameSymbol |
3453 name:nameSymbol |
3454 inEnvironment:(Class nameSpaceQuerySignal query) |
3454 inEnvironment:(Class nameSpaceQuerySignal query) |
3455 subclassOf:self |
3455 subclassOf:self |
3456 instanceVariableNames:instVarNameString |
3456 instanceVariableNames:instVarNameString |
3457 variable:#signedLong |
3457 variable:#signedLong |
3458 words:false |
3458 words:false |
3459 pointers:false |
3459 pointers:false |
3460 classVariableNames:classVarString |
3460 classVariableNames:classVarString |
3461 poolDictionaries:pool |
3461 poolDictionaries:pool |
3462 category:cat |
3462 category:cat |
3463 comment:nil |
3463 comment:nil |
3464 changed:true |
3464 changed:true |
3465 |
3465 |
3466 "Created: / 12.10.1996 / 19:18:31 / cg" |
3466 "Created: / 12.10.1996 / 19:18:31 / cg" |
3467 "Modified: / 6.11.1996 / 22:48:32 / cg" |
3467 "Modified: / 6.11.1996 / 22:48:32 / cg" |
3468 "Modified: / 18.3.1999 / 18:19:41 / stefan" |
3468 "Modified: / 18.3.1999 / 18:19:41 / stefan" |
3469 ! |
3469 ! |
3471 variableSignedWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3471 variableSignedWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3472 "create a new class as a subclass of an existing class (the receiver) |
3472 "create a new class as a subclass of an existing class (the receiver) |
3473 in which the subclass has indexable word-sized signed nonpointer variables" |
3473 in which the subclass has indexable word-sized signed nonpointer variables" |
3474 |
3474 |
3475 self isVariable ifTrue:[ |
3475 self isVariable ifTrue:[ |
3476 self isSignedWords ifFalse:[ |
3476 self isSignedWords ifFalse:[ |
3477 ^ self error: |
3477 ^ ClassBuildError raiseErrorString: |
3478 'cannot make a variable signed word subclass of a variable non-word class' |
3478 'cannot make a variable signed word subclass of a variable non-word class' |
3479 ]. |
3479 ]. |
3480 ]. |
3480 ]. |
3481 |
3481 |
3482 ^ self class |
3482 ^ self class |
3483 name:nameSymbol |
3483 name:nameSymbol |
3484 inEnvironment:(Class nameSpaceQuerySignal query) |
3484 inEnvironment:(Class nameSpaceQuerySignal query) |
3485 subclassOf:self |
3485 subclassOf:self |
3486 instanceVariableNames:instVarNameString |
3486 instanceVariableNames:instVarNameString |
3487 variable:#signedWord |
3487 variable:#signedWord |
3488 words:false |
3488 words:false |
3489 pointers:false |
3489 pointers:false |
3490 classVariableNames:classVarString |
3490 classVariableNames:classVarString |
3491 poolDictionaries:pool |
3491 poolDictionaries:pool |
3492 category:cat |
3492 category:cat |
3493 comment:nil |
3493 comment:nil |
3494 changed:true |
3494 changed:true |
3495 |
3495 |
3496 "Created: / 12.10.1996 / 19:18:34 / cg" |
3496 "Created: / 12.10.1996 / 19:18:34 / cg" |
3497 "Modified: / 6.11.1996 / 22:48:35 / cg" |
3497 "Modified: / 6.11.1996 / 22:48:35 / cg" |
3498 "Modified: / 18.3.1999 / 18:19:51 / stefan" |
3498 "Modified: / 18.3.1999 / 18:19:51 / stefan" |
3499 ! |
3499 ! |
3501 variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3501 variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3502 "create a new class as a subclass of an existing class (the receiver) |
3502 "create a new class as a subclass of an existing class (the receiver) |
3503 in which the subclass has indexable pointer variables" |
3503 in which the subclass has indexable pointer variables" |
3504 |
3504 |
3505 self isVariable ifTrue:[ |
3505 self isVariable ifTrue:[ |
3506 self isPointers ifFalse:[ |
3506 self isPointers ifFalse:[ |
3507 ^ self error: |
3507 ^ ClassBuildError raiseErrorString: |
3508 'cannot make a variable pointer subclass of a variable non-pointer class' |
3508 'cannot make a variable pointer subclass of a variable non-pointer class' |
3509 ] |
3509 ] |
3510 ]. |
3510 ]. |
3511 |
3511 |
3512 ^ self class |
3512 ^ self class |
3513 name:nameSymbol |
3513 name:nameSymbol |
3514 inEnvironment:(Class nameSpaceQuerySignal query) |
3514 inEnvironment:(Class nameSpaceQuerySignal query) |
3515 subclassOf:self |
3515 subclassOf:self |
3516 instanceVariableNames:instVarNameString |
3516 instanceVariableNames:instVarNameString |
3517 variable:true |
3517 variable:true |
3518 words:false |
3518 words:false |
3519 pointers:true |
3519 pointers:true |
3520 classVariableNames:classVarString |
3520 classVariableNames:classVarString |
3521 poolDictionaries:pool |
3521 poolDictionaries:pool |
3522 category:cat |
3522 category:cat |
3523 comment:nil |
3523 comment:nil |
3524 changed:true |
3524 changed:true |
3525 |
3525 |
3526 "Created: / 12.10.1996 / 19:18:37 / cg" |
3526 "Created: / 12.10.1996 / 19:18:37 / cg" |
3527 "Modified: / 6.11.1996 / 22:48:40 / cg" |
3527 "Modified: / 6.11.1996 / 22:48:40 / cg" |
3528 "Modified: / 18.3.1999 / 18:20:01 / stefan" |
3528 "Modified: / 18.3.1999 / 18:20:01 / stefan" |
3529 ! |
3529 ! |
3531 variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat classInstanceVariableNames:classInstanceVariableNames |
3531 variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat classInstanceVariableNames:classInstanceVariableNames |
3532 "create a new class as a subclass of an existing class (the receiver) |
3532 "create a new class as a subclass of an existing class (the receiver) |
3533 in which the subclass has indexable pointer variables" |
3533 in which the subclass has indexable pointer variables" |
3534 |
3534 |
3535 self isVariable ifTrue:[ |
3535 self isVariable ifTrue:[ |
3536 self isPointers ifFalse:[ |
3536 self isPointers ifFalse:[ |
3537 ^ self error: |
3537 ^ ClassBuildError raiseErrorString: |
3538 'cannot make a variable pointer subclass of a variable non-pointer class' |
3538 'cannot make a variable pointer subclass of a variable non-pointer class' |
3539 ] |
3539 ] |
3540 ]. |
3540 ]. |
3541 |
3541 |
3542 ^ self class |
3542 ^ self class |
3543 name:nameSymbol |
3543 name:nameSymbol |
3544 inEnvironment:(Class nameSpaceQuerySignal query) |
3544 inEnvironment:(Class nameSpaceQuerySignal query) |
3545 subclassOf:self |
3545 subclassOf:self |
3546 instanceVariableNames:instVarNameString |
3546 instanceVariableNames:instVarNameString |
3547 variable:true |
3547 variable:true |
3548 words:false |
3548 words:false |
3549 pointers:true |
3549 pointers:true |
3550 classVariableNames:classVarString |
3550 classVariableNames:classVarString |
3551 poolDictionaries:pool |
3551 poolDictionaries:pool |
3552 category:cat |
3552 category:cat |
3553 comment:nil |
3553 comment:nil |
3554 changed:true |
3554 changed:true |
3555 classInstanceVariableNames:classInstanceVariableNames |
3555 classInstanceVariableNames:classInstanceVariableNames |
3556 |
3556 |
3557 "Created: / 12.10.1996 / 19:18:37 / cg" |
3557 "Created: / 12.10.1996 / 19:18:37 / cg" |
3558 "Modified: / 6.11.1996 / 22:48:40 / cg" |
3558 "Modified: / 6.11.1996 / 22:48:40 / cg" |
3559 "Modified: / 18.3.1999 / 18:20:01 / stefan" |
3559 "Modified: / 18.3.1999 / 18:20:01 / stefan" |
3560 ! |
3560 ! |
3562 variableWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3562 variableWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat |
3563 "create a new class as a subclass of an existing class (the receiver) |
3563 "create a new class as a subclass of an existing class (the receiver) |
3564 in which the subclass has indexable word-sized nonpointer variables" |
3564 in which the subclass has indexable word-sized nonpointer variables" |
3565 |
3565 |
3566 self isVariable ifTrue:[ |
3566 self isVariable ifTrue:[ |
3567 self isWords ifFalse:[ |
3567 self isWords ifFalse:[ |
3568 self isBytes ifFalse:[ |
3568 self isBytes ifFalse:[ |
3569 ^ self error: |
3569 ^ ClassBuildError raiseErrorString: |
3570 'cannot make a variable word subclass of a variable non-word class' |
3570 'cannot make a variable word subclass of a variable non-word class' |
3571 ] |
3571 ] |
3572 ]. |
3572 ]. |
3573 ]. |
3573 ]. |
3574 |
3574 |
3575 ^ self class |
3575 ^ self class |
3576 name:nameSymbol |
3576 name:nameSymbol |
3577 inEnvironment:(Class nameSpaceQuerySignal query) |
3577 inEnvironment:(Class nameSpaceQuerySignal query) |
3578 subclassOf:self |
3578 subclassOf:self |
3579 instanceVariableNames:instVarNameString |
3579 instanceVariableNames:instVarNameString |
3580 variable:true |
3580 variable:true |
3581 words:true |
3581 words:true |
3582 pointers:false |
3582 pointers:false |
3583 classVariableNames:classVarString |
3583 classVariableNames:classVarString |
3584 poolDictionaries:pool |
3584 poolDictionaries:pool |
3585 category:cat |
3585 category:cat |
3586 comment:nil |
3586 comment:nil |
3587 changed:true |
3587 changed:true |
3588 |
3588 |
3589 "Created: / 12.10.1996 / 19:18:40 / cg" |
3589 "Created: / 12.10.1996 / 19:18:40 / cg" |
3590 "Modified: / 6.11.1996 / 22:48:43 / cg" |
3590 "Modified: / 6.11.1996 / 22:48:43 / cg" |
3591 "Modified: / 18.3.1999 / 18:20:07 / stefan" |
3591 "Modified: / 18.3.1999 / 18:20:07 / stefan" |
3592 ! ! |
3592 ! ! |
4058 ! ! |
4058 ! ! |
4059 |
4059 |
4060 !ClassDescription class methodsFor:'documentation'! |
4060 !ClassDescription class methodsFor:'documentation'! |
4061 |
4061 |
4062 version |
4062 version |
4063 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.203 2009-08-23 09:26:16 cg Exp $' |
4063 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.204 2009-09-02 10:25:49 cg Exp $' |
4064 ! ! |
4064 ! ! |
4065 |
4065 |
4066 ClassDescription initialize! |
4066 ClassDescription initialize! |
4067 ClassDescription::MethodRedefinitionNotification initialize! |
4067 ClassDescription::MethodRedefinitionNotification initialize! |
4068 ClassDescription::ClassRedefinitionNotification initialize! |
4068 ClassDescription::ClassRedefinitionNotification initialize! |