SVN__WCAction.st
author convert-repo
Tue, 09 Aug 2016 03:35:30 +0000
changeset 1178 3a6dad9479fd
parent 839 92013544e5ec
permissions -rw-r--r--
update tags
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
723
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     1
"
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     2
 Copyright (c) 2007-2010 Jan Vrany
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     3
 Copyright (c) 2009-2010 eXept Software AG
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     4
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     6
 obtaining a copy of this software and associated documentation
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     7
 files (the 'Software'), to deal in the Software without
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     8
 restriction, including without limitation the rights to use,
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    10
 copies of the Software, and to permit persons to whom the
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    11
 Software is furnished to do so, subject to the following
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    12
 conditions:
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    13
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    14
 The above copyright notice and this permission notice shall be
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    15
 included in all copies or substantial portions of the Software.
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    16
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    25
"
425
8fcf97eb135e *** empty log message ***
fm
parents: 356
diff changeset
    26
"{ Package: 'stx:libsvn' }"
13
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    27
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    28
"{ NameSpace: SVN }"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    29
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    30
Object subclass:#WCAction
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    31
	instanceVariableNames:''
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    32
	classVariableNames:''
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    33
	poolDictionaries:''
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    34
	category:'SVN-Working copy'
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    35
!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    36
723
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    37
!WCAction class methodsFor:'documentation'!
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    38
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    39
copyright
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    40
"
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    41
 Copyright (c) 2007-2010 Jan Vrany
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    42
 Copyright (c) 2009-2010 eXept Software AG
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    43
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    44
 Permission is hereby granted, free of charge, to any person
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    45
 obtaining a copy of this software and associated documentation
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    46
 files (the 'Software'), to deal in the Software without
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    47
 restriction, including without limitation the rights to use,
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    48
 copy, modify, merge, publish, distribute, sublicense, and/or sell
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    49
 copies of the Software, and to permit persons to whom the
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    50
 Software is furnished to do so, subject to the following
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    51
 conditions:
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    52
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    53
 The above copyright notice and this permission notice shall be
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    54
 included in all copies or substantial portions of the Software.
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    55
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    56
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    57
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    58
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    59
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    60
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    61
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    62
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    63
 OTHER DEALINGS IN THE SOFTWARE.
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    64
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    65
"
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    66
! !
13
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    67
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    68
!WCAction class methodsFor:'accessing'!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    69
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    70
actionName
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    71
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    72
    ^self subclassResponsibility
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    73
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    74
    "Created: / 16-03-2008 / 08:48:47 / janfrog"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    75
!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    76
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    77
actionNamed: aString
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    78
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    79
    | cls |
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    80
    cls := self allSubclasses 
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    81
            detect:[:cls|cls actionName = aString]
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    82
            ifNone:[self error:'No such action: ', aString].
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    83
    ^cls new
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    84
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    85
    "Created: / 16-03-2008 / 08:58:24 / janfrog"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    86
! !
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    87
723
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    88
!WCAction class methodsFor:'others'!
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    89
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    90
version_CVS
839
92013544e5ec checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 723
diff changeset
    91
    ^ '$Header$'
723
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    92
! !
2b63dc75fb38 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 425
diff changeset
    93
13
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    94
!WCAction methodsFor:'accessing'!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    95
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    96
icon
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    97
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    98
    ^ nil
ac44d6d13769 initial checkin
fm
parents:
diff changeset
    99
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   100
    "Modified: / 24-06-2009 / 15:07:33 / Jan Vrany <vranyj1@fel.cvut.cz>"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   101
! !
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   102
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   103
!WCAction methodsFor:'printing & storing'!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   104
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   105
printOn: stream
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   106
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   107
    ^self class actionName printOn: stream
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   108
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   109
    "Created: / 16-03-2008 / 09:02:09 / janfrog"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   110
! !
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   111
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   112
!WCAction methodsFor:'processing'!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   113
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   114
processEntry: entry using: processor 
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   115
    "
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   116
        Double dispath to a processor, passing an entry"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   117
    
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   118
    self subclassResponsibility
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   119
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   120
    "Created: / 27-08-2009 / 08:47:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   121
! !
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   122
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   123
!WCAction methodsFor:'testing'!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   124
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   125
isConflict
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   126
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   127
    ^false
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   128
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   129
    "Created: / 17-08-2009 / 19:46:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   130
!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   131
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   132
isDeleted
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   133
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   134
    ^false
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   135
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   136
    "Created: / 17-08-2009 / 19:46:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   137
! !
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   138
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   139
!WCAction class methodsFor:'documentation'!
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   140
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   141
version
839
92013544e5ec checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 723
diff changeset
   142
    ^ '$Header$'
176
bce8f6445d2a changed: #version_SVN
fm
parents: 13
diff changeset
   143
!
bce8f6445d2a changed: #version_SVN
fm
parents: 13
diff changeset
   144
bce8f6445d2a changed: #version_SVN
fm
parents: 13
diff changeset
   145
version_SVN
839
92013544e5ec checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 723
diff changeset
   146
    ^ '§Id: SVN__WCAction.st 363 2011-08-08 13:49:48Z vranyj1 §'
13
ac44d6d13769 initial checkin
fm
parents:
diff changeset
   147
! !