MCMockDependentItem.st
author Jan Vrany <jan.vrany@labware.com>
Tue, 11 Jul 2023 12:13:27 +0100
branchjv
changeset 1173 e3dd2050492e
parent 1095 87f223484bc3
permissions -rw-r--r--
Update class category to match package name if it does not This is needed because in Squeak / Pharo world package membership is defined by (class) category prefix. This is soo annoying...
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: 655
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: 655
diff changeset
     2
101
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"{ Package: 'stx:goodies/monticello' }"
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
MCMock subclass:#MCMockDependentItem
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	instanceVariableNames:'name provides requires'
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	classVariableNames:''
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
	poolDictionaries:''
655
fad48019e7ec category change
Claus Gittinger <cg@exept.de>
parents: 339
diff changeset
     9
	category:'SCM-Monticello-Mocks'
101
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
!MCMockDependentItem methodsFor:'as yet unclassified'!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
<= other
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	^ self name <= other name
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
name
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	^ name
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
name: aString
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
226
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    26
	name := aString
101
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
provides: anArray
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
226
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    31
	provides := anArray
101
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
provisions
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
	^ provides ifNil: [#()]
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
requirements
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
	^ requires ifNil: [#()]
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
requires: anArray
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
226
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    46
	requires := anArray
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    47
! !
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    48
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    49
!MCMockDependentItem methodsFor:'squeak compatibility'!
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    50
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    51
< other
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    52
        ^ self <= other
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    53
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    54
    "Created: / 25-08-2009 / 12:04:23 / Jaroslav Havlin <havlij6@fel.cvut.cz>"
101
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
! !
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
!MCMockDependentItem class methodsFor:'documentation'!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
version
655
fad48019e7ec category change
Claus Gittinger <cg@exept.de>
parents: 339
diff changeset
    60
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockDependentItem.st,v 1.5 2012-09-11 21:24:25 cg Exp $'
149
6c42819bd3e3 added: #<
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    61
!
6c42819bd3e3 added: #<
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    62
6c42819bd3e3 added: #<
Claus Gittinger <cg@exept.de>
parents: 101
diff changeset
    63
version_CVS
655
fad48019e7ec category change
Claus Gittinger <cg@exept.de>
parents: 339
diff changeset
    64
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockDependentItem.st,v 1.5 2012-09-11 21:24:25 cg Exp $'
226
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    65
!
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    66
65c367458c4f added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 149
diff changeset
    67
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: 655
diff changeset
    68
    ^ '§Id: MCMockDependentItem.st 5 2010-08-29 07:30:29Z vranyj1 §'
101
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
! !