* Options dialog is now draggable

diff --git a/PerfectRaid.xml b/PerfectRaid.xml
index 99d6a04..1102784 100644
--- a/PerfectRaid.xml
+++ b/PerfectRaid.xml
@@ -18,32 +18,42 @@
 				<AbsValue val="32"/>
 			</EdgeSize>
 		</Backdrop>
-		<Layers>
-			<Layer level="ARTWORK">
-				<Texture name="$parentHeaderTexture" file="Interface\DialogFrame\UI-DialogBox-Header">
-					<Size>
-						<AbsDimension x="350" y="64"/>
-					</Size>
-					<Anchors>
-						<Anchor point="TOP">
-							<Offset>
-								<AbsDimension x="0" y="12"/>
-							</Offset>
-						</Anchor>
-					</Anchors>
+		<Frames>
+		  <Button name="$parentHeader">
+			<Size>
+			  <AbsDimension x="350" y="64"/>
+			</Size>
+			<Anchors>
+			  <Anchor point="TOP">
+				<Offset>
+				  <AbsDimension x="0" y="12"/>
+				</Offset>
+			  </Anchor>
+			</Anchors>
+			<Layers>
+			  <Layer level="ARTWORK">
+				<Texture name="$parentTexture" file="Interface\DialogFrame\UI-DialogBox-Header" setAllPoints="true">
 				</Texture>
 				<FontString name="$parentTitle" inherits="GameFontNormal">
-					<Anchors>
-						<Anchor point="TOP" relativeTo="$parentHeaderTexture">
-							<Offset>
-								<AbsDimension x="0" y="-14"/>
-							</Offset>
-						</Anchor>
-					</Anchors>
+				  <Anchors>
+					<Anchor point="TOP" relativeTo="$parentTexture">
+					  <Offset>
+						<AbsDimension x="0" y="-14"/>
+					  </Offset>
+					</Anchor>
+				  </Anchors>
 				</FontString>
-			</Layer>
-		</Layers>
-		<Frames>
+			  </Layer>
+			</Layers>
+			<Scripts>
+			  <OnMouseDown>
+				self:GetParent():StartMoving()
+			  </OnMouseDown>
+			  <OnMouseUp>
+				self:GetParent():StopMovingOrSizing()
+			  </OnMouseUp>
+			</Scripts>
+		  </Button>
 			<Button name="$parentCloseButton" hidden="false" inherits="UIPanelCloseButton">
 				<Anchors>
 					<Anchor point="TOPRIGHT">
diff --git a/PerfectRaid_Options.lua b/PerfectRaid_Options.lua
index 60530ba..aa72ca2 100644
--- a/PerfectRaid_Options.lua
+++ b/PerfectRaid_Options.lua
@@ -73,7 +73,7 @@ function Options:CreateOptions()
 	frame:SetWidth(600)
 	frame:SetPoint("CENTER", 0, 50)

-	PROptionsTitle:SetText(L["PerfectRaid Options"])
+	PROptionsHeaderTitle:SetText(L["PerfectRaid Options"])

 	local sortTbl = {}
 	for name,module in PerfectRaid:IterateModules() do