"{ Package: 'stx:goodies/xmlsuite/xquery' }"

"{ NameSpace: XQuery }"

TriggerCommand subclass:#DropCommand

	instanceVariableNames:'name'

	classVariableNames:''

	poolDictionaries:''

	category:'XQuery-Trigger Creating'

!

!DropCommand class methodsFor:'priorities'!

priority

    "Superclass says that I am responsible to implement this method"

    ^5

    "Created: / 10-04-2012 / 19:51:01 / Adam Senk <senkadam@gmail.com>"

! !

!DropCommand methodsFor:'accessing'!

name

    ^ name

!

name:something

    name := something.

! !

!DropCommand methodsFor:'executing'!

execute

  "Place for future work"

  self halt.

    "Created: / 10-04-2012 / 19:46:28 / Adam Senk <senkadam@gmail.com>"

! !

!DropCommand class methodsFor:'documentation'!

version_SVN

    ^ '$Id$'

! !