--- a/SVN__CommitCommand.st Mon Aug 08 14:54:44 2011 +0200
+++ b/SVN__CommitCommand.st Mon Aug 08 14:55:03 2011 +0200
@@ -1,3 +1,28 @@
+"
+ Copyright (c) 2007-2010 Jan Vrany
+ Copyright (c) 2009-2010 eXept Software AG
+
+ Permission is hereby granted, free of charge, to any person
+ obtaining a copy of this software and associated documentation
+ files (the 'Software'), to deal in the Software without
+ restriction, including without limitation the rights to use,
+ copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the
+ Software is furnished to do so, subject to the following
+ conditions:
+
+ The above copyright notice and this permission notice shall be
+ included in all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+ OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+ OTHER DEALINGS IN THE SOFTWARE.
+"
"{ Package: 'stx:libsvn' }"
"{ NameSpace: SVN }"
@@ -9,6 +34,42 @@
category:'SVN-Private-Commands'
!
+!CommitCommand class methodsFor:'documentation'!
+
+copyright
+"
+ Copyright (c) 2007-2010 Jan Vrany
+ Copyright (c) 2009-2010 eXept Software AG
+
+ Permission is hereby granted, free of charge, to any person
+ obtaining a copy of this software and associated documentation
+ files (the 'Software'), to deal in the Software without
+ restriction, including without limitation the rights to use,
+ copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the
+ Software is furnished to do so, subject to the following
+ conditions:
+
+ The above copyright notice and this permission notice shall be
+ included in all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+ OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+ OTHER DEALINGS IN THE SOFTWARE.
+
+"
+! !
+
+!CommitCommand class methodsFor:'others'!
+
+version_CVS
+ ^ '$ÂHeader: /cvs/stx/stx/libsvn/SVN__CommitCommand.st,v 1.5 2009/10/19 12:52:48 fm Exp Â$'
+! !
!CommitCommand methodsFor:'accessing'!
@@ -41,26 +102,25 @@
execute
^ [ super execute ] on:SVN::AuthorizationError
- do:[:ex |
+ do:[:ex |
|credentials dialog|
credentials := Credentials new username:OperatingSystem getLoginName.
- credentials := (dialog := CredentialsDialog new)
- model:credentials;
- subtitle:self url;
- open.
- credentials
- ifNil:[ ex pass ]
- ifNotNil:[
- username := credentials username.
- password := credentials password.
- noAuthCache := dialog savePassword not.
- self execute
- ]
-]
+ ((dialog := CredentialsDialog new)
+ model:credentials;
+ subtitle: workingCopy url;
+ open)
+ ifFalse:
+ [ex pass]
+ ifTrue:
+ [username := credentials username.
+ password := credentials password.
+ noAuthCache := dialog savePassword not.
+ self execute]]
"Created: / 03-10-2008 / 18:22:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
"Modified: / 15-07-2009 / 12:09:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 01-02-2010 / 12:21:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!CommitCommand methodsFor:'executing - private'!
@@ -114,13 +174,9 @@
!CommitCommand class methodsFor:'documentation'!
version
- ^ '$Header$'
-!
-
-version_CVS
- ^ '$Header$'
+ ^ '$Id$'
!
version_SVN
- ^'§Id: SVN__CommitCommand.st 100 2009-07-15 18:35:02Z vranyj1 §'
+ ^ '§Id: SVN__CommitCommand.st 350 2011-07-07 18:42:56Z vranyj1 §'
! !