--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/xquery/trunk/XQuery__ConnectCommand.st Sun Mar 25 16:49:21 2012 +0000
@@ -0,0 +1,70 @@
+"{ Package: 'stx:goodies/xmlsuite/xquery' }"
+
+"{ NameSpace: XQuery }"
+
+TriggerCommand subclass:#ConnectCommand
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'XQuery-Trigger Creating'
+!
+
+
+!ConnectCommand class methodsFor:'priorities'!
+
+priority
+ "Superclass says that I am responsible to implement this method"
+
+ ^5
+
+ "Created: / 25-03-2012 / 15:18:19 / Adam Senk <senkadam@gmail.com>"
+! !
+
+!ConnectCommand methodsFor:'accessing'!
+
+targetSequence
+ ^ targetSequence
+!
+
+targetSequence:something
+ targetSequence := something.
+!
+
+triggerDefSequence
+ ^ sourceSequence
+
+ "Modified: / 25-03-2012 / 13:31:24 / Adam Senk <senkadam@gmail.com>"
+!
+
+triggerDefSequence:something
+ sourceSequence := something.
+
+ "Modified: / 25-03-2012 / 13:32:02 / Adam Senk <senkadam@gmail.com>"
+! !
+
+!ConnectCommand methodsFor:'connecting'!
+
+connect: triggerDefNode to: node
+
+ node documentAdaptor
+ connectTriggerDef: triggerDefNode nodeId to: node nodeId
+
+ "Created: / 25-03-2012 / 13:35:49 / Adam Senk <senkadam@gmail.com>"
+! !
+
+!ConnectCommand methodsFor:'executing'!
+
+execute
+ "Superclass says that I am responsible to implement this method"
+
+ self sourceSequence
+ do:[:node|self connect: node to: self targetSequence first]
+
+ "Created: / 25-03-2012 / 13:33:53 / Adam Senk <senkadam@gmail.com>"
+! !
+
+!ConnectCommand class methodsFor:'documentation'!
+
+version_SVN
+ ^ '$Id$'
+! !