--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Turok/Layout/Dialog.lua	Sun Feb 21 08:32:53 2016 -0500
@@ -0,0 +1,186 @@
+--- Dialog Generator
+-- @file-author@
+-- @project-revision@ @project-hash@
+-- @file-revision@ @file-hash@
+-- Created: 1/1/2016 3:37 PM
+--- Framescript template for generating intelligible dialog panels
+--[[
+-- Frame << TkListFrame
+-- {
+--    Frame <rows> << TkListItem                <--  Any number of list item frames with parentArray="rows"
+--    {
+          :GetRow(row, values, id, offset)      <--  Populates the uiobjects that make up the given row, with data from values[id], on display row offset
+          <opts>                                <--  Any layered region of child frame with parentArray=opts"
+      }
+      Button <buttons>                      <--  Any frame with parentArray="buttons"
+
+      .Click (button, list)                 <--  Defines results of using a control button
+      .Check (button, row, list)            <--  Defines results of operating a row widget
+      .Wheel (list, delta)                  <--  Defines response to mousewheel action over the list panel
+   }
+
+   Globals:
+   TkList_Init ( object, values, offset, numRows )
+    Takes the return from CreateFrame and a table of values and establishes a scrollable list interface.
+
+   TkPanel_Init ( object )
+    TkList_Init without the scrollable list operations. Lines up control buttons and nothing else.
+--]]
+local TK_LIST_SPACING = 1
+local TK_LIST_PADDING = 3
+local TK_LIST_HEADING_SIZE = 26
+local TK_LIST_ITEM_HEIGHT = 24
+local TK_LIST_DISPLAY_ITEMS = 10
+
+local print = function(...)
+  if _G.Devian and _G.DevianDB.workspace ~= 1 then
+    _G.print('Xui', ...)
+  end
+end
+-- GLOBALS: TkList_SetView, TkList_Init, Turok
+local type, error, pairs, ipairs, tonumber, max, CreateFrame = type, error, pairs, ipairs, tonumber, math.max, CreateFrame
+local checkval = function(valtype, t, fallback)
+  return (type(t) == valtype) and t or (fallback or error('Expected table reference, got '..type(t)))
+end
+local tableval = function(t, fallback)
+  return checkval('table', t, fallback or {})
+end
+local funcval = function(f, fallback)
+  return checkval('function', f, fallback or function() end)
+end
+
+--- Orders list row
+-- Does an ipairs iteration over self.opts and distributes the referenced objects along the horizontal axis of 'self'
+-- Note that members are only aligned horizontally; no column alignment is done. Widths can be set by datafunc to accomplish that.
+local function TkListItem_Init (listrow)
+  if not listrow.opts then
+    print('no options to enumerate')
+    return
+  end
+  local rwidth = TK_LIST_PADDING*2
+  for i, z in pairs(listrow.opts) do
+    if i > 1 then
+      z:SetPoint('LEFT', listrow.opts[i-1], 'RIGHT', TK_LIST_SPACING, 0)
+    else
+      z:SetPoint('LEFT', listrow, 'LEFT', TK_LIST_PADDING, 0)
+    end
+    rwidth = rwidth + z:GetWidth()+TK_LIST_SPACING
+    z:Show()
+  end
+  listrow:SetSize(rwidth-TK_LIST_PADDING*2,TK_LIST_ITEM_HEIGHT)
+  listrow:Show()
+  print(rwidth)
+  return rwidth
+end
+
+
+---
+local function TkControls_Init(self)
+  local buttonsize = (self._dwidth - (#self.buttons -1) * TK_LIST_SPACING - TK_LIST_PADDING*2) / #self.buttons
+  for n, b in ipairs(self.buttons) do
+    --print('Spirit', buttonsize)
+    b:SetWidth(buttonsize)
+    b:SetPoint('TOPLEFT', self, 'BOTTOMLEFT', buttonsize* (n-1) + TK_LIST_SPACING * (n-1) + TK_LIST_PADDING, -TK_LIST_PADDING)
+  end
+  self.controls:SetHeight(self.buttons[1]:GetHeight()+ TK_LIST_PADDING*2)
+end
+
+--- Populates the list frame with items
+function TkList_SetView(self, start_num, num_rows)
+  print(self, start_num, num_rows)
+  if not start_num then
+    start_num = self.offset
+  end
+
+  if not num_rows then
+    num_rows = self.num_rows
+  end
+
+  if start_num > #self.info then
+    start_num = #self.info - #self.info % num_rows
+  elseif start_num < 1 then
+    start_num = 1
+  end
+
+  print('  ', self:GetName(), start_num, num_rows, #self.info)
+  self.offset = start_num
+
+  for draw_num = 1, num_rows do
+    local actual_row = draw_num + start_num - 1
+    if not self.rows[draw_num] then
+      self.rows[draw_num] = CreateFrame('Frame', self:GetName()..'_Option_'..draw_num, self, 'TurokListItem')
+      self.rows[draw_num]:SetHeight(TK_LIST_ITEM_HEIGHT)
+      self.rows[draw_num].row_num = draw_num
+    end
+    self.rows[draw_num].actual_row = actual_row
+    local row = self.rows[draw_num]
+    if self.info[actual_row] then
+      print( actual_row, draw_num)
+      self.GetRow(row, self.info, actual_row, draw_num)
+      row:Show()
+    else
+      print('|cFF888888'..actual_row, draw_num)
+      row:Hide()
+    end
+    row:SetParent(self)
+  end
+end
+
+--- Prime TkListFrame template-spawn for use
+-- @param self frame object to list-ify
+-- @param info array of list item values
+-- @param datafunc function that takes 1) frame object 2) info table 3) index number 4) row number
+-- @param offset starting offset for initial view
+function TkList_Init (self, info, offset, num_rows)
+  -- error checking
+  --[[if type(info) ~= 'table' then
+    error('arg #2 info must be an associative array')
+  end
+  if type(datafunc) ~= 'function' then
+    error('arg #3 needs a funcref or method name from the frame object')
+  end
+  --]]
+  self.GetRow = funcval(self.GetRow, function() end)
+  self.info = tableval(info, {})
+  for i, v in ipairs(info) do
+    print('Main', i, '=', v.spellName, v.spellTab)
+    self.max_row = i
+  end
+  print('Main', 'last row #', self.max_row)
+
+
+  -- obtain data contents
+  self._dwidth = 0
+  self.rows = {}
+  self.offset = offset and offset or 1
+  self.num_rows = (tonumber(num_rows) ~= nil) and num_rows or TK_LIST_DISPLAY_ITEMS
+  self.name:SetHeight(TK_LIST_HEADING_SIZE)
+  TkList_SetView(self, offset)
+
+  -- sort out the proper width
+  local rwidth = 1
+  local  k = 0
+  for n, item in ipairs(self.rows) do
+    print(item:GetName())
+    if item:IsShown() then
+      if n > 1 then
+        item:SetPoint('TOPLEFT', self.rows[n-1], 'BOTTOMLEFT', 0, - TK_LIST_SPACING)
+      else
+        item:SetPoint('TOPLEFT', self, 'TOPLEFT', TK_LIST_PADDING, -(TK_LIST_PADDING+TK_LIST_HEADING_SIZE+TK_LIST_SPACING))
+      end
+      k = k+1
+      self._dwidth = max(self._dwidth, TkListItem_Init(item))
+    end
+  end
+
+  TkControls_Init(self)
+
+  self:SetSize(self._dwidth , (k*TK_LIST_ITEM_HEIGHT)+(TK_LIST_PADDING*2)+(k*TK_LIST_SPACING)+TK_LIST_HEADING_SIZE)
+end
+
+--- Set up for a non-list-style panel, no iterative controls
+function TkPanel_Init(self)
+  self._dwidth = self:GetWidth()
+  TkControls_Init(self)
+  --self:SetSize(self._dwidth , (k*TK_LIST_ITEM_HEIGHT)+(TK_LIST_PADDING*2)+(k*TK_LIST_SPACING)+TK_LIST_HEADING_SIZE)
+end