SVN__Wizard.st
changeset 737 b3347104b469
parent 459 419ec821c929
child 796 911907034325
equal deleted inserted replaced
736:864e336198b5 737:b3347104b469
       
     1 "
       
     2  Copyright (c) 2007-2010 Jan Vrany
       
     3  Copyright (c) 2009-2010 eXept Software AG
       
     4 
       
     5  Permission is hereby granted, free of charge, to any person
       
     6  obtaining a copy of this software and associated documentation
       
     7  files (the 'Software'), to deal in the Software without
       
     8  restriction, including without limitation the rights to use,
       
     9  copy, modify, merge, publish, distribute, sublicense, and/or sell
       
    10  copies of the Software, and to permit persons to whom the
       
    11  Software is furnished to do so, subject to the following
       
    12  conditions:
       
    13 
       
    14  The above copyright notice and this permission notice shall be
       
    15  included in all copies or substantial portions of the Software.
       
    16 
       
    17  THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
       
    18  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
       
    19  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
       
    20  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
       
    21  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
       
    22  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
       
    23  FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
       
    24  OTHER DEALINGS IN THE SOFTWARE.
       
    25 "
     1 "{ Package: 'stx:libsvn' }"
    26 "{ Package: 'stx:libsvn' }"
     2 
    27 
     3 "{ NameSpace: SVN }"
    28 "{ NameSpace: SVN }"
     4 
    29 
     5 Dialog subclass:#Wizard
    30 Dialog subclass:#Wizard
     7 	classVariableNames:''
    32 	classVariableNames:''
     8 	poolDictionaries:''
    33 	poolDictionaries:''
     9 	category:'SVN-UI-Dialogs'
    34 	category:'SVN-UI-Dialogs'
    10 !
    35 !
    11 
    36 
       
    37 !Wizard class methodsFor:'documentation'!
       
    38 
       
    39 copyright
       
    40 "
       
    41  Copyright (c) 2007-2010 Jan Vrany
       
    42  Copyright (c) 2009-2010 eXept Software AG
       
    43 
       
    44  Permission is hereby granted, free of charge, to any person
       
    45  obtaining a copy of this software and associated documentation
       
    46  files (the 'Software'), to deal in the Software without
       
    47  restriction, including without limitation the rights to use,
       
    48  copy, modify, merge, publish, distribute, sublicense, and/or sell
       
    49  copies of the Software, and to permit persons to whom the
       
    50  Software is furnished to do so, subject to the following
       
    51  conditions:
       
    52 
       
    53  The above copyright notice and this permission notice shall be
       
    54  included in all copies or substantial portions of the Software.
       
    55 
       
    56  THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
       
    57  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
       
    58  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
       
    59  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
       
    60  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
       
    61  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
       
    62  FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
       
    63  OTHER DEALINGS IN THE SOFTWARE.
       
    64 
       
    65 "
       
    66 ! !
    12 
    67 
    13 !Wizard class methodsFor:'interface specs'!
    68 !Wizard class methodsFor:'interface specs'!
    14 
    69 
    15 buttonsSpec
    70 buttonsSpec
    16     "This resource specification was automatically generated
    71     "This resource specification was automatically generated
    69                     label: 'OK'
   124                     label: 'OK'
    70                     name: 'AcceptButton'
   125                     name: 'AcceptButton'
    71                     translateLabel: true
   126                     translateLabel: true
    72                     labelChannel: acceptButtonTitleAspect
   127                     labelChannel: acceptButtonTitleAspect
    73                     model: doAccept
   128                     model: doAccept
    74                     enableChannel: canDoAcceptAspect
   129                     enableChannel: acceptEnabledHolder
    75                     extent: (Point 125 22)
   130                     extent: (Point 125 22)
    76                   )
   131                   )
    77                  (ActionButtonSpec
   132                  (ActionButtonSpec
    78                     label: 'Cancel'
   133                     label: 'Cancel'
    79                     name: 'CancelButton'
   134                     name: 'CancelButton'
   133          
   188          
   134         )
   189         )
   135       )
   190       )
   136 ! !
   191 ! !
   137 
   192 
       
   193 !Wizard class methodsFor:'others'!
       
   194 
       
   195 version_CVS
       
   196     ^ '$ÂHeader: /cvs/stx/stx/libsvn/SVN__Wizard.st,v 1.4 2009/10/19 12:24:08 fm Exp Â$'
       
   197 ! !
       
   198 
   138 !Wizard methodsFor:'accessing'!
   199 !Wizard methodsFor:'accessing'!
   139 
       
   140 answerValueSelector
       
   141     "Superclass SVN::Dialog says that I am responsible to implement this method"
       
   142 
       
   143     ^#yourself
       
   144 
       
   145     "Created: / 20-04-2008 / 20:39:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
       
   146 !
       
   147 
   200 
   148 defaultSubtitle
   201 defaultSubtitle
   149     ^ 'Package: ' , self model package asText allItalic
   202     ^ 'Package: ' , self model package asText allItalic
   150 
   203 
   151     "Created: / 28-10-2008 / 09:14:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
   204     "Created: / 28-10-2008 / 09:14:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
   194     "Created: / 23-03-2009 / 11:49:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
   247     "Created: / 23-03-2009 / 11:49:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
   195 ! !
   248 ! !
   196 
   249 
   197 !Wizard methodsFor:'accessing - buttons'!
   250 !Wizard methodsFor:'accessing - buttons'!
   198 
   251 
   199 doAcceptEnabled: aBoolean
       
   200 
       
   201     self canDoAcceptAspect value: aBoolean
       
   202 
       
   203     "Created: / 24-03-2009 / 19:56:25 / Jan Vrany <vranyj1@fel.cvut.cz>"
       
   204 !
       
   205 
       
   206 goNextEnabled: aBoolean
   252 goNextEnabled: aBoolean
   207 
   253 
   208     self goNextEnabledHolder value: aBoolean
   254     self goNextEnabledHolder value: aBoolean
   209 
   255 
   210     "Created: / 24-03-2009 / 19:56:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
   256     "Created: / 24-03-2009 / 19:56:02 / Jan Vrany <vranyj1@fel.cvut.cz>"
   306 ! !
   352 ! !
   307 
   353 
   308 !Wizard class methodsFor:'documentation'!
   354 !Wizard class methodsFor:'documentation'!
   309 
   355 
   310 version
   356 version
   311     ^ '$Header$'
   357     ^ '$Id$'
   312 !
       
   313 
       
   314 version_CVS
       
   315     ^ '$Header$'
       
   316 !
   358 !
   317 
   359 
   318 version_SVN
   360 version_SVN
   319     ^'§Id: SVN__Wizard.st 70 2009-04-16 12:47:44Z vranyj1 §'
   361     ^ '§Id: SVN__Wizard.st 350 2011-07-07 18:42:56Z vranyj1 §'
   320 ! !
   362 ! !