SVN__BranchQuery.st
author Claus Gittinger <cg@exept.de>
Tue, 16 Jan 2018 22:26:58 +0100
changeset 1183 8af078552bae
parent 909 2b76e3a0579c
permissions -rw-r--r--
flyByHelpSpec -> helpSpec
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
771
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     1
"
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     2
 Copyright (c) 2007-2010 Jan Vrany
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     3
 Copyright (c) 2009-2010 eXept Software AG
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     4
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     5
 Permission is hereby granted, free of charge, to any person
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     6
 obtaining a copy of this software and associated documentation
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     7
 files (the 'Software'), to deal in the Software without
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     8
 restriction, including without limitation the rights to use,
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
     9
 copy, modify, merge, publish, distribute, sublicense, and/or sell
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    10
 copies of the Software, and to permit persons to whom the
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    11
 Software is furnished to do so, subject to the following
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    12
 conditions:
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    13
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    14
 The above copyright notice and this permission notice shall be
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    15
 included in all copies or substantial portions of the Software.
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    16
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    17
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    18
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    19
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    20
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    21
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    22
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    23
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    24
 OTHER DEALINGS IN THE SOFTWARE.
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    25
"
434
a850d521e506 *** empty log message ***
fm
parents: 329
diff changeset
    26
"{ Package: 'stx:libsvn' }"
4
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    27
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    28
"{ NameSpace: SVN }"
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    29
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    30
Query subclass:#BranchQuery
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    31
	instanceVariableNames:'repository'
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    32
	classVariableNames:''
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    33
	poolDictionaries:''
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    34
	category:'SVN-Queries'
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    35
!
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    36
771
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    37
!BranchQuery class methodsFor:'documentation'!
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    38
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    39
copyright
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    40
"
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    41
 Copyright (c) 2007-2010 Jan Vrany
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    42
 Copyright (c) 2009-2010 eXept Software AG
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    43
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    44
 Permission is hereby granted, free of charge, to any person
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    45
 obtaining a copy of this software and associated documentation
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    46
 files (the 'Software'), to deal in the Software without
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    47
 restriction, including without limitation the rights to use,
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    48
 copy, modify, merge, publish, distribute, sublicense, and/or sell
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    49
 copies of the Software, and to permit persons to whom the
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    50
 Software is furnished to do so, subject to the following
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    51
 conditions:
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    52
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    53
 The above copyright notice and this permission notice shall be
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    54
 included in all copies or substantial portions of the Software.
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    55
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    56
 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    57
 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    58
 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    59
 NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    60
 HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    61
 WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    62
 FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    63
 OTHER DEALINGS IN THE SOFTWARE.
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    64
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    65
"
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    66
! !
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    67
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    68
!BranchQuery class methodsFor:'others'!
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    69
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    70
version_CVS
909
2b76e3a0579c checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 771
diff changeset
    71
    ^ '$Header$'
771
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    72
! !
4
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    73
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    74
!BranchQuery methodsFor:'accessing'!
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    75
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    76
repository
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    77
    ^ repository
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    78
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    79
    "Created: / 14-04-2008 / 11:53:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    80
!
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    81
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    82
repository:something
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    83
    repository := something.
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    84
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    85
    "Created: / 14-04-2008 / 11:53:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    86
! !
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    87
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    88
!BranchQuery methodsFor:'default actions'!
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    89
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    90
defaultAction
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    91
771
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    92
    | branch |
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    93
    branch := repository branchOrNil.
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    94
    branch ifNil:[branch := (BranchSelectionDialog on: repository) open; branch].    
4
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    95
    branch ifNil:
771
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
    96
        [branch := repository branches 
4
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    97
                    detect:[:b | b isTrunk]
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    98
                    ifNone:[self error: 'No branch!!']].
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
    99
    ^branch
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   100
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   101
    "Created: / 14-04-2008 / 11:55:22 / Jan Vrany <vranyj1@fel.cvut.cz>"
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   102
    "Modified: / 17-03-2009 / 18:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"
771
23c750bdc766 Updates from SVN
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 434
diff changeset
   103
    "Modified: / 10-03-2010 / 18:26:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   104
! !
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   105
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   106
!BranchQuery class methodsFor:'documentation'!
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   107
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   108
version
909
2b76e3a0579c checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 771
diff changeset
   109
    ^ '$Header$'
186
010b7611126d changed: #version_SVN
fm
parents: 4
diff changeset
   110
!
010b7611126d changed: #version_SVN
fm
parents: 4
diff changeset
   111
010b7611126d changed: #version_SVN
fm
parents: 4
diff changeset
   112
version_SVN
909
2b76e3a0579c checkin to get version methods correct
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 771
diff changeset
   113
    ^ '§Id: SVN__BranchQuery.st 363 2011-08-08 13:49:48Z vranyj1 §'
4
d085a6a1dfc4 initial checkin
fm
parents:
diff changeset
   114
! !