--- a/gui.lua	Fri Jun 17 20:30:46 2011 +0000
+++ b/gui.lua	Tue Jun 28 07:36:26 2011 +0000
@@ -93,6 +93,10 @@
 		end
 	end
 
+	function addon:registered_textgen_iter()
+		return pairs(text_gen_funcs)
+	end
+
 	-- This function is called during load, so be careful!
 	function addon:register_text_generator (text_type, title, description, generator, opt_specgen)
 		if type(generator) ~= 'function' then
@@ -1400,8 +1404,25 @@
 			simple:AddChild(w)
 		end
 		grp:AddChild(simple)
+
+		simple = GUI:Create("SimpleGroup")
+		simple:SetLayout("Flow")
+		simple:SetRelativeWidth(0.85)
+		w = mkbutton("MidS-H", [[not exactly an Easter egg, with sound]])
+		w:SetRelativeWidth(0.15)
+		w:SetCallback("OnClick", function() 
+			PlaySoundFile[[Sound\Music\WorldEvents\HordeFirepole.mp3]]
+		end)
+		simple:AddChild(w)
+		w = mkbutton("MidS-A", [[not exactly an Easter egg, with sound]])
+		w:SetRelativeWidth(0.15)
+		w:SetCallback("OnClick", function() 
+			PlaySoundFile[[Sound\Music\WorldEvents\AllianceFirepole.mp3]]
+		end)
+		simple:AddChild(w)
+		grp:AddChild(simple)
+
 		grp:ResumeLayout()
-
 		container:AddChild(grp)
 		GUI:ClearFocus()
 	end
@@ -1437,33 +1458,36 @@
 		grp:SetFullWidth(true)
 		grp:SetTitle("User Options     [these are saved across sessions]")
 
+		-- The relative width fields used to be done to take up less vertical space, but
+		-- that turned out to look messy.  Now they're just a straight line for the most part.
+
 		-- reminder popup
-		w = mkoption ('popup_on_join', "Show reminder popup", 0.35,
+		w = mkoption ('popup_on_join', "Show reminder popup", 0.95,
 			[[When joining a raid and not already tracking, display a dialog asking for instructions.]])
 		grp:AddChild(w)
 
 		-- toggle scroll-to-bottom on first tab
-		w = mkoption('scroll_to_bottom', "Scroll to bottom when opening display", 0.60,
+		w = mkoption('scroll_to_bottom', "Scroll to bottom when opening display", 0.95,
 			[[Scroll to the bottom of the loot window (most recent entries) when displaying the GUI.]])
 		grp:AddChild(w)
 
 		-- /loot option
-		w = mkoption('register_slashloot', "Register /loot slash command on login", 0.45,
+		w = mkoption('register_slashloot', "Register /loot slash command on login", 0.95,
 			[[Register "/loot" as a slash command in addition to the normal "/ouroloot".  Relog to take effect.]])
 		grp:AddChild(w)
 
 		-- chatty mode
-		w = mkoption('chatty_on_kill', "Be chatty on boss kill", 0.30,
+		w = mkoption('chatty_on_kill', "Be chatty on boss kill", 0.95,
 			[[Print something to chat output when DBM tells Ouro Loot about a successful boss kill.]])
 		grp:AddChild(w)
 
 		-- less noise in main panel
-		w = mkoption('no_tracking_wipes', "Do not track wipes", 0.25,
+		w = mkoption('no_tracking_wipes', "Do not track wipes", 0.95,
 			[[Do not add 'wipe' entries on the main loot grid, or generate any text for them.]])
 		grp:AddChild(w)
 
 		-- cutesy abbrevs
-		w = mkoption('snarky_boss', "Use snarky boss names", 0.35,
+		w = mkoption('snarky_boss', "Use snarky boss names", 0.95,
 			[[Irreverent replacement names for boss events.]])
 		grp:AddChild(w)
 
@@ -1471,7 +1495,7 @@
 		do
 			local pair = GUI:Create("SimpleGroup")
 			pair:SetLayout("Flow")
-			pair:SetRelativeWidth(0.6)
+			pair:SetRelativeWidth(0.95)
 			local editbox, checkbox
 			editbox = mkbutton("EditBox", nil, OuroLootSV_opts.keybinding_text,
 				[[Keybinding text format is fragile!  Relog to take effect.]])