stx/stx_goodies_metacello_stx.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 18 Sep 2012 18:26:49 +0000
changeset 18 d2f3f631bc3c
parent 13 48e7864158dd
child 25 67134fbb3120
permissions -rw-r--r--
- MetacelloStXVersionSpec class definition added: #version_SVN - MetacelloStXVersionConstructor class definition added: #version_SVN - MetacelloStXPackageSpec class definition added:78 methods - MetacelloStXProject class definition added: #packageSpecClass #versionConstructorClass #versionSpecClass #version_SVN - stx_goodies_metacello_stx changed: #classNamesAndAttributes #extensionMethodNames #preRequisites
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
LibraryDefinition subclass:#stx_goodies_metacello_stx
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:'* Projects & Packages *'
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
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
!stx_goodies_metacello_stx class methodsFor:'description'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
excludedFromPreRequisites
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
    "list all packages which should be ignored in the automatic
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
     preRequisites scan. See #preRequisites for more."
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
    ^ #(
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
    )
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
preRequisites
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
    "list all required packages.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
     This list can be maintained manually or (better) generated and
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
     updated by scanning the superclass hierarchies and looking for
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
     global variable accesses. (the browser has a menu function for that)
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
     Howevery, often too much is found, and you may want to explicitely
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
     exclude individual packages in the #excludedFromPrerequisites method."
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
    ^ #(
18
d2f3f631bc3c - MetacelloStXVersionSpec
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    30
        #'stx:goodies/metacello/core'    "MetacelloProject - superclass of MetacelloStXProject "
d2f3f631bc3c - MetacelloStXVersionSpec
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 13
diff changeset
    31
        #'stx:libbasic'    "Collection - superclass of MetacelloStXPackageSpec::Prerequisites "
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
    )
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
! !
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
!stx_goodies_metacello_stx class methodsFor:'description - contents'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
classNamesAndAttributes
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
    "lists the classes which are to be included in the project.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
     Each entry in the list may be: a single class-name (symbol),
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
     or an array-literal consisting of class name and attributes.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
     Attributes are: #autoload or #<os> where os is one of win32, unix,..."
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
    ^ #(
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
        "<className> or (<className> attributes...) in load order"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
        MetacelloStXPlatform
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
        MetacelloStXProject
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
        #'stx_goodies_metacello_stx'
9
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 7
diff changeset
    48
        MetacelloStXPackageSpec
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 7
diff changeset
    49
        MetacelloStXVersionConstructor
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 7
diff changeset
    50
        MetacelloStXVersionSpec
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
    )
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
extensionMethodNames
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
    "lists the extension methods which are to be included in the project.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
     Entries are 2-element array literals, consisting of class-name and selector."
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
    ^ #(
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
    )
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
! !
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
!stx_goodies_metacello_stx class methodsFor:'description - project information'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
applicationIconFileName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
    "Return the name (without suffix) of an icon-file (the app's icon); will be included in the rc-resource file"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
    ^ nil
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
    "/ ^ self applicationName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
companyName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
    "Return a companyname which will appear in <lib>.rc"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
11
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    74
    ^ 'Dale Henrichs & Jan Vrany'
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    75
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    76
    "Modified: / 10-09-2012 / 22:14:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
description
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
    "Return a description string which will appear in vc.def / bc.def"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
11
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    82
    ^ 'Metacello -- a Smalltalk project configuration management tool'
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    83
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    84
    "Modified: / 10-09-2012 / 22:15:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
legalCopyright
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
    "Return a copyright string which will appear in <lib>.rc"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
11
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    90
    ^ 'Copyright Dale Henrichs 2008-2012\nCopyright Jan Vrany 2012 (port & Smalltalk/X specific code)'
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    91
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    92
    "Modified: / 10-09-2012 / 22:16:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
productInstallDirBaseName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
    "Returns a default installDir which will appear in <app>.nsi.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    97
     This is usually not the one you want to keep"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    99
    ^ (self package asCollectionOfSubstringsSeparatedByAny:':/') last
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   100
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   101
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   102
productName
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
    "Return a product name which will appear in <lib>.rc"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
11
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   105
    ^ 'Metacello'
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   106
d354ac2af7ec Metacello package refactoring - phase 2~
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   107
    "Modified: / 10-09-2012 / 22:16:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
! !
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
!stx_goodies_metacello_stx class methodsFor:'description - svn'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
svnRepositoryUrlString
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
    "Return a SVN repository URL of myself.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
     (Generated since 2011-04-08)
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
     Do not make the string shorter!!!!!! We have to use fixed-length keyword!!!!!!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   116
    "        
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   118
    ^ '$URL::                                                                                                                        $'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   119
!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   120
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   121
svnRevisionNr
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   122
    "Return a SVN revision number of myself.
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   123
     This number is updated after a commit"
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   124
9
d126d2954bf9 More St/X specific stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 7
diff changeset
   125
    ^ "$SVN-Revision:"'6               '"$"
5
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   126
! !
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   127
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   128
!stx_goodies_metacello_stx class methodsFor:'documentation'!
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   129
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   130
version_SVN
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   131
    ^ '$Id::                                                                                                                        $'
eebd7f36c3cc - some Smalltalk/X specific Metacello classes
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   132
! !