MCVariableDefinition.st
author Jan Vrany <jan.vrany@labware.com>
Tue, 11 Jul 2023 12:59:07 +0100
branchjv
changeset 1174 f0a16c301971
parent 1095 87f223484bc3
permissions -rw-r--r--
Make `ProjectDefinition >> #monticelloTimestamps_code` an extension in `stx:goodies/monticello` ...and convert it to use (not so) new annotation-based extension mechanism.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1095
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 726
diff changeset
     1
"{ Encoding: utf8 }"
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 726
diff changeset
     2
60
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ Package: 'stx:goodies/monticello' }"
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
Object subclass:#MCVariableDefinition
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:'name'
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
695
4d76a66654af category change
Claus Gittinger <cg@exept.de>
parents: 372
diff changeset
     9
	category:'SCM-Monticello-Modeling'
60
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
!MCVariableDefinition class methodsFor:'as yet unclassified'!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
name: aString
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	^ self new name: aString
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
! !
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!MCVariableDefinition methodsFor:'accessing'!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
name
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
	^ name
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
name: aString
252
e0766b054cf9 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 60
diff changeset
    27
	name := aString
60
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
! !
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
!MCVariableDefinition methodsFor:'comparing'!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
= other
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
	^ (self species = other species)
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
		and: [self name = other name]
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
hash
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
	^ name hash
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
! !
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
726
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    41
!MCVariableDefinition methodsFor:'printing'!
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    42
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    43
printOn: aStream
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    44
	super printOn: aStream.
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    45
	aStream nextPut: $(; nextPutAll: self name; nextPut: $)
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    46
! !
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    47
60
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
!MCVariableDefinition methodsFor:'testing'!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
isClassInstanceVariable
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
	^ false
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
isClassInstanceVariableDefinition
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
	^ false
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
isClassVariable
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
	^ false
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
isInstanceVariable
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
	^ false
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
isInstanceVariableDefinition
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
	^ false
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
isPoolImport
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
	^ false
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
! !
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
!MCVariableDefinition class methodsFor:'documentation'!
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
version
726
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    77
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVariableDefinition.st,v 1.5 2013-01-18 13:02:44 cg Exp $'
252
e0766b054cf9 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 60
diff changeset
    78
!
e0766b054cf9 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 60
diff changeset
    79
e0766b054cf9 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 60
diff changeset
    80
version_CVS
726
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    81
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVariableDefinition.st,v 1.5 2013-01-18 13:02:44 cg Exp $'
252
e0766b054cf9 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 60
diff changeset
    82
!
e0766b054cf9 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 60
diff changeset
    83
e0766b054cf9 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 60
diff changeset
    84
version_SVN
1095
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present
Patrik Svestka <patrik.svestka@gmail.com>
parents: 726
diff changeset
    85
    ^ '§Id: MCVariableDefinition.st 5 2010-08-29 07:30:29Z vranyj1 §'
60
7476cb845887 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    86
! !
726
3c4a4c9847c9 category changes
Claus Gittinger <cg@exept.de>
parents: 695
diff changeset
    87