stx/MetacelloStXPlatform.st
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--
- fixes for package support
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    11
!MetacelloStXPlatform class methodsFor:'initialize-release'!
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    12
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    13
initialize
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    14
    "
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    15
    MetacelloStXPlatform initialize
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    16
    "
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    17
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    18
    Current := self new
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    19
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    20
    "Modified (comment): / 05-09-2012 / 17:41:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    21
! !
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    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
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    28
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    29
MetacelloStXPlatform initialize!