Initial checkin
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 12 Jul 2011 15:37:19 +0200
changeset 632 4b434a3cfa6d
parent 631 bf4c190b2650
child 633 21f34d8b860d
Initial checkin
SVN__BranchSelectionDialog.st
--- a/SVN__BranchSelectionDialog.st	Mon Jul 11 16:07:40 2011 +0200
+++ b/SVN__BranchSelectionDialog.st	Tue Jul 12 15:37:19 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 }"
@@ -11,6 +36,35 @@
 
 !BranchSelectionDialog 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.
+
+"
+!
+
 documentation
 "
     documentation to be added.
@@ -104,12 +158,11 @@
 
 !BranchSelectionDialog methodsFor:'accessing'!
 
-answerValueSelector
-    "Superclass SVN::Dialog says that I am responsible to implement this method"
+branch
 
-    ^#branchAspect
+    ^self branchAspect value
 
-    "Created: / 19-04-2008 / 13:15:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Created: / 02-11-2009 / 16:51:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 defaultTitle
@@ -122,6 +175,19 @@
 
 !BranchSelectionDialog methodsFor:'aspects'!
 
+acceptEnabledHolder
+    |holder|
+
+    (holder := builder bindingAt:#acceptEnabledHolder) isNil ifTrue:[
+        holder := (AspectAdaptor forAspect:#notNil) 
+                    subjectChannel:self branchAspect.
+        builder aspectAt:#acceptEnabledHolder put:holder
+    ].
+    ^ holder.
+
+    "Created: / 14-04-2008 / 11:19:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
 branchAspect
     "automatically generated by UIPainter ..."
 
@@ -169,20 +235,6 @@
     "Created: / 14-04-2008 / 10:55:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
-canDoAcceptAspect
-
-    |holder|
-
-    (holder := builder bindingAt:#canDoAcceptAspect) isNil ifTrue:[
-        holder := (AspectAdaptor forAspect: #notNil)
-            subjectChannel: self branchAspect.
-        builder aspectAt:#canDoAcceptAspect put: holder
-    ].
-        ^ holder.
-
-    "Created: / 14-04-2008 / 11:19:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
 showTagsAspect
     "automatically generated by UIPainter ..."
 
@@ -228,5 +280,5 @@
 !
 
 version_SVN
-    ^'§Id: SVN__BranchSelectionDialog.st 70 2009-04-16 12:47:44Z vranyj1 §'
+    ^ '§Id: SVN__BranchSelectionDialog.st 350 2011-07-07 18:42:56Z vranyj1 §'
 ! !