SVN__Property.st
author Claus Gittinger <cg@exept.de>
Fri, 18 Nov 2016 16:14:26 +0100
changeset 1180 92753f6cc822
parent 880 d0dc89f25137
permissions -rw-r--r--
#REFACTORING by cg class: SVNSourceCodeManager SVNVersionInfo is private
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
772
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     1
"
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     2
 Copyright (c) 2007-2010 Jan Vrany
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     3
 Copyright (c) 2009-2010 eXept Software AG
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     4
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     6
 obtaining a copy of this software and associated documentation
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     7
 files (the 'Software'), to deal in the Software without
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     8
 restriction, including without limitation the rights to use,
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    10
 copies of the Software, and to permit persons to whom the
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    11
 Software is furnished to do so, subject to the following
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    12
 conditions:
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    13
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    14
 The above copyright notice and this permission notice shall be
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    15
 included in all copies or substantial portions of the Software.
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    16
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    25
"
476
414385c26a0c *** empty log message ***
fm
parents: 286
diff changeset
    26
"{ Package: 'stx:libsvn' }"
31
da24e41dc798 initial checkin
fm
parents:
diff changeset
    27
da24e41dc798 initial checkin
fm
parents:
diff changeset
    28
"{ NameSpace: SVN }"
da24e41dc798 initial checkin
fm
parents:
diff changeset
    29
da24e41dc798 initial checkin
fm
parents:
diff changeset
    30
Object subclass:#Property
da24e41dc798 initial checkin
fm
parents:
diff changeset
    31
	instanceVariableNames:'name value modified'
da24e41dc798 initial checkin
fm
parents:
diff changeset
    32
	classVariableNames:''
da24e41dc798 initial checkin
fm
parents:
diff changeset
    33
	poolDictionaries:''
da24e41dc798 initial checkin
fm
parents:
diff changeset
    34
	category:'SVN-Core'
da24e41dc798 initial checkin
fm
parents:
diff changeset
    35
!
da24e41dc798 initial checkin
fm
parents:
diff changeset
    36
772
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    37
!Property class methodsFor:'documentation'!
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    38
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    39
copyright
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    40
"
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    41
 Copyright (c) 2007-2010 Jan Vrany
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    42
 Copyright (c) 2009-2010 eXept Software AG
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    43
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    44
 Permission is hereby granted, free of charge, to any person
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    45
 obtaining a copy of this software and associated documentation
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    46
 files (the 'Software'), to deal in the Software without
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    47
 restriction, including without limitation the rights to use,
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    48
 copy, modify, merge, publish, distribute, sublicense, and/or sell
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    49
 copies of the Software, and to permit persons to whom the
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    50
 Software is furnished to do so, subject to the following
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    51
 conditions:
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    52
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    53
 The above copyright notice and this permission notice shall be
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    54
 included in all copies or substantial portions of the Software.
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    55
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    56
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    57
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    58
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    59
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    60
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    61
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    62
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    63
 OTHER DEALINGS IN THE SOFTWARE.
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    64
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    65
"
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    66
! !
31
da24e41dc798 initial checkin
fm
parents:
diff changeset
    67
da24e41dc798 initial checkin
fm
parents:
diff changeset
    68
!Property class methodsFor:'instance creation'!
da24e41dc798 initial checkin
fm
parents:
diff changeset
    69
da24e41dc798 initial checkin
fm
parents:
diff changeset
    70
name: name value: value
da24e41dc798 initial checkin
fm
parents:
diff changeset
    71
da24e41dc798 initial checkin
fm
parents:
diff changeset
    72
    ^self new setName: name value: value
da24e41dc798 initial checkin
fm
parents:
diff changeset
    73
da24e41dc798 initial checkin
fm
parents:
diff changeset
    74
    "Created: / 10-10-2008 / 09:55:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
    75
! !
da24e41dc798 initial checkin
fm
parents:
diff changeset
    76
772
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    77
!Property class methodsFor:'others'!
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    78
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    79
version_CVS
880
d0dc89f25137 checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 772
diff changeset
    80
    ^ '$Header$'
772
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    81
! !
6ae37677ce38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 476
diff changeset
    82
31
da24e41dc798 initial checkin
fm
parents:
diff changeset
    83
!Property methodsFor:'accessing'!
da24e41dc798 initial checkin
fm
parents:
diff changeset
    84
da24e41dc798 initial checkin
fm
parents:
diff changeset
    85
modified
da24e41dc798 initial checkin
fm
parents:
diff changeset
    86
    ^ modified
da24e41dc798 initial checkin
fm
parents:
diff changeset
    87
!
da24e41dc798 initial checkin
fm
parents:
diff changeset
    88
da24e41dc798 initial checkin
fm
parents:
diff changeset
    89
modified:aBoolean
da24e41dc798 initial checkin
fm
parents:
diff changeset
    90
    modified := aBoolean.
da24e41dc798 initial checkin
fm
parents:
diff changeset
    91
!
da24e41dc798 initial checkin
fm
parents:
diff changeset
    92
da24e41dc798 initial checkin
fm
parents:
diff changeset
    93
name
da24e41dc798 initial checkin
fm
parents:
diff changeset
    94
    ^ name
da24e41dc798 initial checkin
fm
parents:
diff changeset
    95
da24e41dc798 initial checkin
fm
parents:
diff changeset
    96
    "Created: / 10-10-2008 / 09:54:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
    97
!
da24e41dc798 initial checkin
fm
parents:
diff changeset
    98
da24e41dc798 initial checkin
fm
parents:
diff changeset
    99
name:aString
da24e41dc798 initial checkin
fm
parents:
diff changeset
   100
    name := aString.
da24e41dc798 initial checkin
fm
parents:
diff changeset
   101
da24e41dc798 initial checkin
fm
parents:
diff changeset
   102
    "Created: / 10-10-2008 / 09:54:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
   103
!
da24e41dc798 initial checkin
fm
parents:
diff changeset
   104
da24e41dc798 initial checkin
fm
parents:
diff changeset
   105
name:nameArg value:valueArg 
da24e41dc798 initial checkin
fm
parents:
diff changeset
   106
    name := nameArg.
da24e41dc798 initial checkin
fm
parents:
diff changeset
   107
    value := valueArg.
da24e41dc798 initial checkin
fm
parents:
diff changeset
   108
da24e41dc798 initial checkin
fm
parents:
diff changeset
   109
    "Created: / 10-10-2008 / 09:54:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
   110
!
da24e41dc798 initial checkin
fm
parents:
diff changeset
   111
da24e41dc798 initial checkin
fm
parents:
diff changeset
   112
value
da24e41dc798 initial checkin
fm
parents:
diff changeset
   113
    ^ value
da24e41dc798 initial checkin
fm
parents:
diff changeset
   114
da24e41dc798 initial checkin
fm
parents:
diff changeset
   115
    "Created: / 10-10-2008 / 09:54:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
   116
!
da24e41dc798 initial checkin
fm
parents:
diff changeset
   117
da24e41dc798 initial checkin
fm
parents:
diff changeset
   118
value:aString
da24e41dc798 initial checkin
fm
parents:
diff changeset
   119
    value := aString.
da24e41dc798 initial checkin
fm
parents:
diff changeset
   120
    modified := true
da24e41dc798 initial checkin
fm
parents:
diff changeset
   121
da24e41dc798 initial checkin
fm
parents:
diff changeset
   122
    "Created: / 10-10-2008 / 09:54:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
   123
    "Modified: / 23-03-2009 / 11:57:04 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
   124
! !
da24e41dc798 initial checkin
fm
parents:
diff changeset
   125
da24e41dc798 initial checkin
fm
parents:
diff changeset
   126
!Property methodsFor:'initialization'!
da24e41dc798 initial checkin
fm
parents:
diff changeset
   127
da24e41dc798 initial checkin
fm
parents:
diff changeset
   128
setName:nameArg value:valueArg 
da24e41dc798 initial checkin
fm
parents:
diff changeset
   129
    name := nameArg.
da24e41dc798 initial checkin
fm
parents:
diff changeset
   130
    value := valueArg.
da24e41dc798 initial checkin
fm
parents:
diff changeset
   131
da24e41dc798 initial checkin
fm
parents:
diff changeset
   132
    "Created: / 10-10-2008 / 09:55:03 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
   133
! !
da24e41dc798 initial checkin
fm
parents:
diff changeset
   134
da24e41dc798 initial checkin
fm
parents:
diff changeset
   135
!Property methodsFor:'testing'!
da24e41dc798 initial checkin
fm
parents:
diff changeset
   136
da24e41dc798 initial checkin
fm
parents:
diff changeset
   137
isModified
da24e41dc798 initial checkin
fm
parents:
diff changeset
   138
    ^ modified == true
da24e41dc798 initial checkin
fm
parents:
diff changeset
   139
da24e41dc798 initial checkin
fm
parents:
diff changeset
   140
    "Created: / 10-10-2008 / 09:54:34 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
   141
    "Modified: / 23-03-2009 / 11:42:38 / Jan Vrany <vranyj1@fel.cvut.cz>"
da24e41dc798 initial checkin
fm
parents:
diff changeset
   142
! !
da24e41dc798 initial checkin
fm
parents:
diff changeset
   143
da24e41dc798 initial checkin
fm
parents:
diff changeset
   144
!Property class methodsFor:'documentation'!
da24e41dc798 initial checkin
fm
parents:
diff changeset
   145
da24e41dc798 initial checkin
fm
parents:
diff changeset
   146
version
880
d0dc89f25137 checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 772
diff changeset
   147
    ^ '$Header$'
206
aae55fc96001 changed: #version_SVN
fm
parents: 31
diff changeset
   148
!
aae55fc96001 changed: #version_SVN
fm
parents: 31
diff changeset
   149
aae55fc96001 changed: #version_SVN
fm
parents: 31
diff changeset
   150
version_SVN
880
d0dc89f25137 checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 772
diff changeset
   151
    ^ '§Id: SVN__Property.st 363 2011-08-08 13:49:48Z vranyj1 §'
31
da24e41dc798 initial checkin
fm
parents:
diff changeset
   152
! !