From ebecdd00a8676fb96ef94c42b7e8156c504e9c9c Mon Sep 17 00:00:00 2001
From: Mark Rogaski <stigg@aie-guild.org>
Date: Thu, 21 Nov 2013 23:39:13 -0500
Subject: [PATCH] Added a GwSetDefaults() function and some starting XML for
 the Interface Options pane. (#13)

---
 GreenWall.xml      | 38 +++++++++++++++++++++++++++++----
 GreenWall_Core.lua | 52 ++++++++++++++++++++++++++++++++++------------
 2 files changed, 73 insertions(+), 17 deletions(-)

diff --git a/GreenWall.xml b/GreenWall.xml
index 69cf553..5ec132d 100644
--- a/GreenWall.xml
+++ b/GreenWall.xml
@@ -38,10 +38,40 @@
 xsi:schemaLocation="http://www.blizzard.com/wow/ui/
 C:\Projects\WoW\Bin\Interface\FrameXML\UI.xsd">
     <Script file="GreenWall_Core.lua"/>
-        <Frame name="GreenWallCoreFrame">
-            <Scripts>
-                <OnLoad>GreenWall_OnLoad(self);</OnLoad>
-                <OnEvent>GreenWall_OnEvent(self, event, ...);</OnEvent>
+    <Frame name="GreenWallCoreFrame">
+        <Scripts>
+            <OnLoad>GreenWall_OnLoad(self);</OnLoad>
+            <OnEvent>GreenWall_OnEvent(self, event, ...);</OnEvent>
         </Scripts>
+        <Layers>
+            <Layer level="OVERLAY">
+                <FontString name="$parentTitle" text="GreenWall" inherits="GameFontNormalLarge" justifyH="LEFT" justifyV="TOP">
+                    <Anchors>
+                        <Anchor point="TOPLEFT">
+                            <Offset>
+                                <AbsDimension x="16" y="-16"/>
+                            </Offset>
+                        </Anchor>
+                    </Anchors>
+                </FontString>
+                <FontString name="$parentSubText" text="These options affect the communications between co-guilds in a GreenWall confederation.  However, you do not need to configure anything to use GreenWall." inherits="GameFontHighlightSmall" nonspacewrap="true" maxLines="3" justifyH="LEFT" justifyV="TOP">
+                    <Size>
+                        <AbsDimension y="32" x="0"/>
+                    </Size>
+                    <Anchors>
+                        <Anchor point="TOPLEFT" relativeTo="$parentTitle" relativePoint="BOTTOMLEFT">
+                            <Offset>
+                                <AbsDimension x="0" y="-8"/>
+                            </Offset>
+                        </Anchor>
+                        <Anchor point="RIGHT">
+                            <Offset>
+                                <AbsDimension x="-32" y="0"/>
+                            </Offset>
+                        </Anchor>
+                    </Anchors>
+                </FontString>
+            </Layer>
+        </Layers>
     </Frame>
 </Ui>
diff --git a/GreenWall_Core.lua b/GreenWall_Core.lua
index 1d90e30..ce9f629 100644
--- a/GreenWall_Core.lua
+++ b/GreenWall_Core.lua
@@ -1191,6 +1191,44 @@ function GreenWall_OnLoad(self)
     self:RegisterEvent('PLAYER_GUILD_UPDATE');
     self:RegisterEvent('PLAYER_LOGIN');
     
+    --
+    -- Add a tab to the Interface Options panel.
+    --
+    self.name = 'GreenWall ' .. gwVersion;
+    self.refresh = function (self) return; end;
+    self.okay = function (self) return; end;
+    self.cancel = function (self) return; end;
+    self.default = function (self) return; end;
+    InterfaceOptions_AddCategory(self);
+        
+end
+
+
+--- Initialize options to default values.
+-- @param soft If true, set only undefined options to the default values.
+local function GwSetDefaults(soft)
+
+    if soft == nil then
+        soft = false;
+    else
+        soft = true;
+    end
+
+    if GreenWall == nil then
+        GreenWall = {};
+    end
+
+    for k, p in pairs(gwDefaults) do
+        if not soft or GreenWall[k] == nil then
+            GreenWall[k] = p['default'];
+        end
+    end
+    GreenWall.version = gwVersion;
+
+    if GreenWallLog == nil then
+        GreenWallLog = {};
+    end
+
 end
 
 
@@ -1210,19 +1248,7 @@ function GreenWall_OnEvent(self, event, ...)
         --
         -- Initialize the saved variables
         --
-        if GreenWall == nil then
-            GreenWall = {};
-        end
-        for k, p in pairs(gwDefaults) do
-            if GreenWall[k] == nil then
-                GreenWall[k] = p['default'];
-            end
-        end
-        GreenWall.version = gwVersion;
-
-        if GreenWallLog == nil then
-            GreenWallLog = {};
-        end
+        GwSetDefaults(true);
 
         --
         -- Thundercats are go!