author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Wed, 19 Sep 2012 01:38:26 +0000 | |
changeset 20 | 8caf2f257260 |
parent 9 | d126d2954bf9 |
permissions | -rw-r--r-- |
5
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
"{ Package: 'stx:goodies/metacello/stx' }" |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
MetacelloPlatform subclass:#MetacelloStXPlatform |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
instanceVariableNames:'' |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
5 |
classVariableNames:'' |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
poolDictionaries:'' |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
category:'Metacello-St/X-Model' |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
! |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
|
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
|
9 | 11 |
!MetacelloStXPlatform class methodsFor:'initialize-release'! |
12 |
||
13 |
initialize |
|
14 |
" |
|
15 |
MetacelloStXPlatform initialize |
|
16 |
" |
|
17 |
||
18 |
Current := self new |
|
19 |
||
20 |
"Modified (comment): / 05-09-2012 / 17:41:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
21 |
! ! |
|
22 |
||
5
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
!MetacelloStXPlatform class methodsFor:'documentation'! |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
|
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
version_SVN |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
^ '$Id:: $' |
eebd7f36c3cc
- some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
! ! |
9 | 28 |
|
29 |
MetacelloStXPlatform initialize! |