1 "{ Package: 'cvut:stx/goodies/libsvn' }"

     2 

     3 "{ NameSpace: SVN }"

     4 

     5 Query subclass:#BranchQuery

     6 	instanceVariableNames:'repository'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'SVN-Queries'

    10 !

    11 

    12 !BranchQuery class methodsFor:'documentation'!

    13 

    14 version_SVN

    15     ^'$Id$'

    16 ! !

    17 

    18 !BranchQuery methodsFor:'accessing'!

    19 

    20 repository

    21     ^ repository

    22 

    23     "Created: / 14-04-2008 / 11:53:58 / Jan Vrany <vranyj1@fel.cvut.cz>"

    24 !

    25 

    26 repository:something

    27     repository := something.

    28 

    29     "Created: / 14-04-2008 / 11:53:58 / Jan Vrany <vranyj1@fel.cvut.cz>"

    30 ! !

    31 

    32 !BranchQuery methodsFor:'default actions'!

    33 

    34 defaultAction

    35 

    36     | branches branch dlg |

    37     branches := repository branches.

    38     branches size = 1 ifTrue:[^branches anyOne].

    39     Screen current ifNil:[^super defaultAction].

    40     dlg := BranchSelectionDialog on: repository.

    41     branch := dlg open.

    42     branch ifNil:

    43         [branch := branches 

    44                     detect:[:b | b isTrunk]

    45                     ifNone:[self error: 'No branch!!']].

    46     ^branch

    47 

    48     "Created: / 14-04-2008 / 11:55:22 / Jan Vrany <vranyj1@fel.cvut.cz>"

    49     "Modified: / 17-03-2009 / 18:05:54 / Jan Vrany <vranyj1@fel.cvut.cz>"

    50 ! !

    51 

    52 !BranchQuery class methodsFor:'documentation'!

    53 

    54 version

    55     ^ '$Header$'

    56 ! !