equal
deleted
inserted
replaced
675 |
675 |
676 !Smalltalk class methodsFor:'Compatibility-V''Age'! |
676 !Smalltalk class methodsFor:'Compatibility-V''Age'! |
677 |
677 |
678 allClassesImplementing:aSelector |
678 allClassesImplementing:aSelector |
679 ^ self allClasses select:[:cls | cls implements:aSelector]. |
679 ^ self allClasses select:[:cls | cls implements:aSelector]. |
|
680 ! |
|
681 |
|
682 declareConstant:constantName poolName:poolName value:value |
|
683 |pool| |
|
684 |
|
685 pool := self classNamed:poolName. |
|
686 pool declareConstant:constantName value:value |
|
687 ! |
|
688 |
|
689 declarePoolDictionary:poolDictionaryName |
|
690 SharedPool subclass:(poolDictionaryName asSymbol) |
|
691 instanceVariableNames:'' |
|
692 classVariableNames:'' |
|
693 poolDictionaries:'' |
|
694 category:nil |
680 ! ! |
695 ! ! |
681 |
696 |
682 !Smalltalk class methodsFor:'Compatibility-VW5.4'! |
697 !Smalltalk class methodsFor:'Compatibility-VW5.4'! |
683 |
698 |
684 defineClass:nameSymbol superclass:superclass indexedType:indexed private:private instanceVariableNames:instVars classInstanceVariableNames:classInstVars imports:imports category:category attributes:annotations |
699 defineClass:nameSymbol superclass:superclass indexedType:indexed private:private instanceVariableNames:instVars classInstanceVariableNames:classInstVars imports:imports category:category attributes:annotations |
6624 ! ! |
6639 ! ! |
6625 |
6640 |
6626 !Smalltalk class methodsFor:'documentation'! |
6641 !Smalltalk class methodsFor:'documentation'! |
6627 |
6642 |
6628 version |
6643 version |
6629 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.708 2006-01-30 18:09:35 cg Exp $' |
6644 ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.709 2006-02-03 15:34:48 cg Exp $' |
6630 ! ! |
6645 ! ! |