John@38: local AceGUI = LibStub("AceGUI-3.0")
John@42: local bsk=bsk
John@42: local _G=_G
John@42: local table=table 
John@42: local pairs=pairs
John@65: local setmetatable=setmetatable
John@42: local ipairs=ipairs
John@42: local string=string
John@67: local sformat=string.format
John@42: local tostring=tostring
John@42: local type=type
John@42: local getn=getn
John@42: setfenv(1,bsk)
John@1: 
John@69: -- todo: switching lists should close a presently-open bid
John@69: 
John@56: local copy = function(t)
John@56:     local c = {}
John@56:     if not t then return c end
John@56:     for i,v in pairs(t) do c[i] = v end
John@56:     return c
John@56: end
John@56: local colorize = function(str,color)
John@56:     if str==nil or str=="" then return "" end
John@56:     if type(color) == "table" then
John@56:         color = string.format("%02x%02x%02x",255*color.r,255*color.g,255*color.b)
John@56:     end
John@56:     if color == nil then return str end
John@56:     return "|cff"..tostring(color or "ffffff")..str.."|r"
John@56: end
John@1: 
John@63: local CreateListSelector = function(SListPopulator)
John@56:     PersonList:RefreshRaidList()
John@56:     local pulldown = AceGUI:Create("Dropdown")
John@56:     local pull = {}
John@56:     local ltemp = 0
John@56:     local lids = LootLists:GetAllIds()
John@56:     for _,v in pairs(lids) do
John@56:         local l = LootLists:Select(v)
John@56:         pull[l:GetId()] = l:GetName()
John@56:         --local entry = {value=i,text=v.name}
John@56:         if l:GetLength() > 0 then
John@56:             pulldown:SetItemDisabled(i,true)
John@56:             if ltemp == 0 then
John@56:                 ltemp = l:GetId()
John@51:             end
John@51:         end
John@1:     end
John@56:     pulldown:SetWidth(175)
John@56:     pulldown:SetList(pull)
John@68:     pulldown:SetCallback("OnValueChanged", function(_,_,value) SListPopulator:SelectList(value) end)
John@68:     if ltemp > 0 then pulldown:SetValue(ltemp); SListPopulator:SelectList(ltemp) end -- sadly, SetValue doesn't fire a OnValueChanged
John@56:     return pulldown
John@1: end
John@1: 
John@65: local f, right
John@59: local escapeButton = 
John@59: {
John@59:     shown = false,
John@59:     ["IsShown"] = function(self) return self.shown end,
John@60:     ["Hide"] = function(self) if f then AceGUI:Release(f); self.shown=false end end
John@59: }
John@38: 
John@65: SelectorListEventDispatcher =
John@63: {
John@65:     listeners = nil,
John@63:     target = nil,
John@67:     line = nil,
John@63:     ["SetTarget"] = function(self,other)
John@63:         self.target = other 
John@65:         self.target:SetCallback("OnSelectionCleared",function(...) self:OnSelectionCleared(...) end)
John@65:         self.target:SetCallback("OnSelection",function(...) self:OnSelection(...) end)
John@63:     end,
John@63:     ["RegisterListener"] = function(self,other) table.insert(self.listeners,other) end,
John@63:     ["OnSelectionCleared"] = function(self,_)
John@67:         self.line = nil
John@63:         self:Event("OnSelectionCleared")
John@63:     end,
John@65:     ["OnSelection"] = function(self,_,_,line)
John@67:         self.line = line
John@63:         self:Event("OnSelection",line)
John@63:     end,
John@63:     ["Event"] = function(self,event,arg)
John@63:         if not self.target then error("Event called with no listener...") end
John@63:         if not self.listeners then return end
John@63:         for i,v in pairs(self.listeners) do
John@67:             --bsk.print("listener")
John@63:             if type(v) == "table" then
John@63:                 if v[event] then
John@63:                     v[event](v,arg)
John@63:                 end
John@63:             elseif type(v) == "function" then
John@63:                 v(event,arg)
John@63:             elseif type(v) ~= "nil" then -- allow nils to pass quietly
John@63:                 _G.error("Bad listener - "..type(v))
John@63:             end
John@63:         end
John@63:     end,
John@67:     ["Release"] = function(self) self.listeners = {}; self.target=nil; self.line=nil end,
John@67:     ["LatestValue"] = function(self) return self.line end
John@63: }
John@65: function SelectorListEventDispatcher:new()
John@65:     local t = {}
John@65:     setmetatable(t,SelectorListEventDispatcher)
John@65:     self.__index = self
John@65:     t.listeners = {}
John@65:     return t
John@63: end
John@65: 
John@65: SListEventDispatch = SelectorListEventDispatcher:new()
John@65: LListEventDispatch = SelectorListEventDispatcher:new()
John@67: RListEventDispatch = SelectorListEventDispatcher:new()
John@65: 
John@63: local SListPopulator =
John@63: {
John@63:     filtered = false,
John@63:     widget = nil,
John@63:     data = nil,
John@63:     lref = nil,
John@63: 
John@63:     ["Release"] = function(self) self.filtered, self.widget, self.data, self.lref = false, nil, nil, nil end,
John@63:     ["Redraw"] = function(self)
John@63:         if self.lref == nil or self.widget == nil then return end -- don't do work if not fully initialized
John@63:         self.data = {}
John@63:         for le in self.lref:OrderedListEntryIter() do
John@63:             local disabled = not PersonList:IsActive(le:GetId()) 
John@63:             if not self.filtered or not disabled then
John@63:                 local line = {value=le:GetId(),text=le:GetName(),icon=[[Interface\Glues\CharacterCreate\UI-CharacterCreate-Classes]]}
John@63:                 line.iconCoords=_G.CLASS_ICON_TCOORDS[le:GetClass()]
John@67:                 line.textPlain = line.text
John@63:                 line.text=colorize(line.text,_G.RAID_CLASS_COLORS[le:GetClass()])
John@63:                 line.disabled = disabled
John@63:                 table.insert(self.data,line)
John@63:             end
John@63:         end
John@63:         self.widget:SetList(self.data)
John@65:         SListEventDispatch:Event("Redraw")
John@63:     end,
John@63:     ["SetWidget"] = function(self,w) 
John@65:         if type(w) ~= "table" or type(w.SetList) ~= "function" then
John@63:             _G.error("Bad SetWidget")
John@63:         end
John@63:         self.widget = w
John@63:     end,
John@63:     ["SetFiltered"] = function(self,value) 
John@63:         self.filtered = value
John@63:         self:Redraw()
John@63:     end,
John@68:     ["SelectList"] = function(self,value) 
John@63:         self.lref = LootLists:Select(value)
John@63:         self:Redraw()
John@68:     end,
John@68:     ["DataEvent"] = function(self)
John@68:         self:Redraw()
John@69:     end,
John@69:     ["GetMe"] = function(self)
John@69:         local me = _G.UnitName("player")
John@69:         for i,v in pairs(self.data) do
John@69:             if v.textPlain == me then
John@69:                 return v
John@69:             end
John@69:         end
John@69:     end,
John@69: }
John@69: 
John@69: local LListPopulator =
John@69: {
John@69:     -- todo: set event receivers from the comm and for loot 
John@69:     data = {},
John@69:     widget = nil,
John@69:     ["Release"] = function(self) self.data = {}; self.widget = nil end,
John@69:     ["Redraw"]= function(self)
John@69:         self.widget:SetList(self.data)
John@69:         LListEventDispatch:Event("Redraw")
John@69:     end,
John@69:     ["SetWidget"] = function(self,w)
John@69:         if type(w) ~= "table" or type(w.SetList) ~= "function" then
John@69:             _G.error("Bad SetWidget")
John@69:         end
John@69:         self.widget = w
John@69:         if debug then
John@69:             self.data = {
John@69:                 {
John@69:                     value=1, 
John@69:                     text = "|cffa335ee|Hitem:77109:4080:4009:0:0:0:0:0:85:0|h[Band of Reconstruction]|h|r",
John@69:                     link = "|cffa335ee|Hitem:77109:4080:4009:0:0:0:0:0:85:0|h[Band of Reconstruction]|h|r",
John@69:                 },
John@69:                 {
John@69:                     value=2,
John@69:                     text = "|cffa335ee|Hitem:19351:0:0:0:0:0:0:0:85:0|h[Maladath, Runed Blade of the Black Flight]|h|r",
John@69:                     link = "|cffa335ee|Hitem:19351:0:0:0:0:0:0:0:85:0|h[Maladath, Runed Blade of the Black Flight]|h|r"
John@69:                 },
John@69:                 {
John@69:                     value=3,
John@69:                     text = "|cffa335ee|Hitem:31986:0:0:0:0:0:0:0:85:0|h[Merciless Gladiator's Crossbow of the Phoenix]|h|r",
John@69:                     link = "|cffa335ee|Hitem:31986:0:0:0:0:0:0:0:85:0|h[Merciless Gladiator's Crossbow of the Phoenix]|h|r"
John@69:                 },
John@69:                 {
John@69:                     value=4,
John@69:                     text = "|cffa335ee|Hitem:65003:0:0:0:0:0:0:0:85:0|h[Reclaimed Ashkandi, Greatsword of the Brotherhood]|h|r",
John@69:                     link = "|cffa335ee|Hitem:65003:0:0:0:0:0:0:0:85:0|h[Reclaimed Ashkandi, Greatsword of the Brotherhood]|h|r"
John@69:                 },
John@69:                 {
John@69:                     value=5,
John@69:                     text = "|cffff8000|Hitem:19019:0:0:0:0:0:0:0:85:0|h[Thunderfury, Blessed Blade of the Windseeker]|h|r",
John@69:                     link = "|cffff8000|Hitem:19019:0:0:0:0:0:0:0:85:0|h[Thunderfury, Blessed Blade of the Windseeker]|h|r"
John@69:                 },
John@69:             }
John@69:         end
John@69:         self:Redraw()
John@69:     end,
John@69: }
John@69: 
John@69: local RListPopulator =
John@69: {
John@69:     data = {},
John@69:     widget = nil,
John@69:     ["Release"] = function(self) self.data = {}; self.widget = nil end,
John@69:     ["Redraw"] = function(self)
John@69:         self.widget:SetList(self.data)
John@69:         RListEventDispatch:Event("Redraw")
John@69:     end,
John@69:     ["SetWidget"] = function(self,w)
John@69:         if type(w) ~= "table" or type(w.SetList) ~= "function" then
John@69:             _G.error("Bad SetWidget")
John@69:         end
John@69:         self.widget = w
John@69:         if debug then
John@69:             local dummydata = {}
John@69:             local tree = SListPopulator.data
John@69:             for i,v in pairs(tree) do dummydata[i] = copy(v); dummydata[i].disabled = false end
John@69:             if dummydata[2] then dummydata[2].text = dummydata[2].text .. " (roll 73)" end
John@69:             self.data = dummydata
John@69:         end
John@69:         self:Redraw()
John@69:     end,
John@69:     ["Force"] = function(self,who)
John@69:         for i,v in pairs(self.data) do
John@69:             if who.value == v.value then
John@69:                 print(who.value .. " is already on the list")
John@69:                 return -- no double adds please
John@69:             end
John@69:         end
John@69:         local new = self.Convert(who,72)
John@69:         table.insert(self.data,new)
John@69:         -- todo: keep this list sorted
John@69:         self:Redraw()
John@69:     end,
John@69:     ["Retract"] = function(self,who)
John@69:         for i,v in pairs(self.data) do
John@69:             if who.value == v.value then
John@69:                 table.remove(self.data,i)
John@69:             end
John@69:         end
John@69:         self:Redraw()
John@69:     end,
John@69:     ["Convert"] = function(who,roll) -- convert an LE object into one suitable to put in a SelectorList
John@69:         local new = copy(who)
John@69:         new.disabled = false -- todo: should be unnessary - they can't get on the list like this
John@69:         if roll then
John@69:             new.text = new.text .. " (roll 73)"
John@69:         end
John@69:         return new
John@69:     end,
John@63: }
John@63: 
John@68: DataEventDispatch =
John@68: {
John@68:     -- todo: batch events
John@68:     listeners = {},
John@68:     ["DataEvent"] = function(self,_) --todo: pass along the received event
John@68:         for i,v in pairs(self.listeners) do
John@68:             if v and v["DataEvent"] then
John@68:                 v:DataEvent()
John@68:             end
John@68:         end
John@68:     end,
John@68:     ["RegisterListener"] = function(self,listener)
John@68:         if not listener or not listener["DataEvent"] then
John@68:             _G.error("Bad listener")
John@68:         end
John@68:         table.insert(self.listeners,listener)
John@68:     end
John@68: }
John@68: 
John@68: function OnInitializeSetStaticData()
John@68:     SetChangeListener(DataEventDispatch)
John@68:     DataEventDispatch:RegisterListener(SListPopulator)
John@68: end
John@68: 
John@42: function CreateGUI()
John@59:     -- special registration procedure to be closable with the escape button
John@59:     --escapeButton.shown = true
John@59:     --_G["BSK_ESCAPEBUTTON"] = escapeButton
John@59:     --table.insert(_G.UISpecialFrames, "BSK_ESCAPEBUTTON")
John@59: 
John@60:     if f then return end -- no second gui please
John@69:     local admin = admin or true
John@59:     f = AceGUI:Create("Frame")
John@1: 
John@69:     f:SetCallback("OnClose",function(widget) escapeButton.shown = false; AceGUI:Release(widget); f=nil; right=nil; SListEventDispatch:Release(); LListEventDispatch:Release(); SListPopulator:Release(); RListEventDispatch:Release(); LListPopulator:Release(); RListPopulator:Release() end)
John@56:     f:SetTitle("BSK")
John@56:     f:SetLayout("Flow")
John@56:     f:SetHeight(680) 
John@56:     f:SetWidth(580)
John@1: 
John@56:     local left = AceGUI:Create("InlineGroup")
John@56:     left:SetLayout("List")
John@56:     left:SetWidth(175)
John@56:     left:SetFullHeight(true)
John@56:     left.alignoffset=0.25 -- hack, as per http://forums.wowace.com/showthread.php?t=17114
John@1: 
John@65:     right = AceGUI:Create("InlineGroup")
John@56:     right:SetLayout("Flow")
John@56:     right:SetWidth(700-175-160)
John@56:     right:SetFullHeight(true)
John@56:     right.alignoffset=0.25
John@38: 
John@56:     local t1 = AceGUI:Create("SelectorList")
John@56:     t1:SetNumLines(25)
John@56:     t1:SetFullWidth(true)
John@56:     t1:SetInteractive(admin)
John@69:     SListEventDispatch:SetTarget(t1)
John@63:     SListPopulator:SetWidget(t1)
John@38: 
John@63:     local p1 = CreateListSelector(SListPopulator)
John@56:     p1:SetFullWidth(true)
John@38: 
John@56:     left:AddChild(p1)
John@56:     left:AddChild(t1)
John@38: 
John@56:     local t2 = AceGUI:Create("SelectorList")
John@56:     t2:SetNumLines(7)
John@56:     t2:SetFullWidth(true)
John@56:     t2:EnableButtonTooltips(true)
John@65:     LListEventDispatch:SetTarget(t2)
John@69:     LListPopulator:SetWidget(t2)
John@65: 
John@65:     local biddingZone = AceGUI:Create("SimpleGroup")
John@65:     biddingZone:SetLayout("Flow")
John@65:     biddingZone:SetFullWidth(true)
John@38: 
John@60:     local alb1, alb2, alb3
John@60:     if admin then 
John@60:         alb1 = AceGUI:Create("Button")
John@60:         alb1:SetWidth(100)
John@60:         alb1:SetText("Open Bids")
John@65:         alb1.userdata = 
John@65:         {
John@65:             state = false,
John@65:             widget = alb1,
John@65:             ["Redraw"] = function(self,_) self.widget:SetDisabled(true); self.item = nil end,
John@65:             ["OnSelection"] = function(self,value) self.widget:SetDisabled(false); self.item = value end,
John@65:             ["OnSelectionCleared"] = function(self) self.widget:SetDisabled(true); self.item = nil end
John@65:         }
John@65:         alb1:SetDisabled(true)
John@65:         LListEventDispatch:RegisterListener(alb1.userdata)
John@65:         alb1:SetCallback("OnClick", 
John@65:             function(widget) 
John@65:                 if widget.userdata.state then -- we were bidding when the button was pressed
John@65:                     biddingZone:ReleaseChildren()
John@68:                     widget:SetText("Open Bids")
John@67:                     RListEventDispatch:Release()
John@70:                     RListPopulator:Release() 
John@65:                 else
John@68:                     widget:SetText("Close bids")
John@65:                     local spacer = AceGUI:Create("Label")
John@65:                     spacer:SetText(" ")
John@65:                     spacer:SetFullWidth(true)
John@65:                     local spacer2 = AceGUI:Create("Label")
John@65:                     spacer2:SetText(" ")
John@65:                     spacer2:SetFullWidth(true)
John@65: 
John@65:                     local label = AceGUI:Create("Label")
John@65:                     label:SetText("Bidding now open for ...")
John@65:                     local biddingOn = AceGUI:Create("InteractiveLabel")
John@67:                     biddingOn.userdata = { LListEventDispatch:LatestValue().link } 
John@65:                     biddingOn:SetText(biddingOn.userdata[1])
John@65:                     biddingOn:SetFullWidth(true)
John@65:                     biddingOn:SetCallback("OnEnter", function(widget) _G.GameTooltip:SetOwner(widget.frame,"ANCHOR_RIGHT");  _G.GameTooltip:SetHyperlink(widget.userdata[1]); _G.GameTooltip:Show() end )
John@65:                     biddingOn:SetCallback("OnLeave", function(widget) _G.GameTooltip:Hide() end )
John@65:                     local b1 = AceGUI:Create("SelectorList")
John@65:                     b1:SetNumLines(6)
John@65:                     b1:SetInteractive(admin)
John@65:                     local bidTitle = AceGUI:Create("Label")
John@65:                     bidTitle:SetText("Current bids")
John@65:                     bidTitle:SetFullWidth(true)
John@65: 
John@65:                     local bidRetractButton = AceGUI:Create("Button")
John@65:                     bidRetractButton:SetText("Place Bid")
John@65:                     bidRetractButton:SetWidth(100)
John@70:                     bidRetractButton:SetCallback("OnClick", function(widget) RListPopulator:Force(SListPopulator:GetMe()) end) -- todo: Force is not the desired thing here.
John@65:                     local rollButton = AceGUI:Create("Button")
John@65:                     rollButton:SetText("Offset Roll")
John@65:                     rollButton:SetWidth(100)
John@65: 
John@69:                     RListEventDispatch:SetTarget(b1)
John@69:                     RListPopulator:SetWidget(b1)
John@67: 
John@65:                     local g1
John@65:                     if admin then
John@65:                         b1.alignoffset = 0.25 -- or else g1 won't align well
John@65:                         g1 = AceGUI:Create("SimpleGroup")
John@65:                         g1.alignoffset = 0.25
John@65:                         g1:SetWidth(120)
John@65:                         g1:SetLayout("List")
John@65: 
John@67:                         -- todo: convoluted and repetitive - surely there's a
John@67:                         -- better way than this ...
John@65:                         adminForce = AceGUI:Create("Button")
John@67:                         if SListEventDispatch:LatestValue() then
John@67:                             adminForce:SetText(sformat("Force bid (%s)",SListEventDispatch:LatestValue().textPlain))
John@67:                             adminForce:SetDisabled(false)
John@67:                         else
John@67:                             adminForce:SetText("Force bid")
John@67:                             adminForce:SetDisabled(true)
John@67:                         end
John@67:                         adminForce:SetWidth(160)
John@69:                         adminForce:SetCallback("OnClick",function(widget) RListPopulator:Force(SListEventDispatch:LatestValue()) end)
John@67:                         adminForce.userdata = 
John@67:                         {
John@67:                             widget = adminForce,
John@67:                             ["Redraw"] = function(self,_) self.widget:SetDisabled(true); self.widget:SetText("Force bid") end,
John@67:                             ["OnSelection"] = function(self,_) self.widget:SetDisabled(false); self.widget:SetText(sformat("Force bid (%s)",SListEventDispatch:LatestValue().textPlain)) end,
John@67:                             ["OnSelectionCleared"] = function(self) self.widget:SetDisabled(true); self.widget:SetText("Force bid") end
John@67:                         }
John@67:                         SListEventDispatch:RegisterListener(adminForce.userdata)
John@65: 
John@65:                         adminRetract = AceGUI:Create("Button")
John@67:                         if RListEventDispatch:LatestValue() then
John@67:                             adminRetract:SetText(sformat("Retract bid (%s)",RListEventDispatch:LatestValue().textPlain))
John@67:                             adminRetract:SetDisabled(false)
John@67:                         else
John@67:                             adminRetract:SetText("Retract bid")
John@67:                             adminRetract:SetDisabled(true)
John@67:                         end
John@67:                         adminRetract:SetWidth(160)
John@67:                         adminRetract.userdata = 
John@67:                         {
John@67:                             widget = adminRetract,
John@67:                             ["Redraw"] = function(self,_) self.widget:SetDisabled(true); self.widget:SetText("Retract bid") end,
John@67:                             ["OnSelection"] = function(self,_) self.widget:SetDisabled(false); self.widget:SetText(sformat("Retract bid (%s)",RListEventDispatch:LatestValue().textPlain)) end,
John@67:                             ["OnSelectionCleared"] = function(self) self.widget:SetDisabled(true); self.widget:SetText("Retract bid") end
John@67:                         }
John@69:                         adminRetract:SetCallback("OnClick",function(widget) RListPopulator:Retract(RListEventDispatch:LatestValue()) end)
John@67:                         RListEventDispatch:RegisterListener(adminRetract.userdata)
John@67:                         adminRetract:SetDisabled(true)
John@65: 
John@65:                         g1:AddChildren(adminForce,adminRetract)
John@65:                     end
John@65: 
John@65:                     biddingZone:AddChildren(spacer,label,biddingOn,bidRetractButton,rollButton,spacer2,bidTitle,b1)
John@65:                     if admin then biddingZone:AddChildren(g1) end
John@65:                 end
John@65:                 widget.userdata.state = not widget.userdata.state
John@65:             end
John@65:         )
John@60: 
John@60:         alb2 = AceGUI:Create("Button")
John@60:         alb2:SetWidth(100)
John@60:         alb2:SetText("Assign")
John@65:         alb2.userdata =
John@65:         {
John@65:             widget = alb2,
John@65:             ["OnUpdate"] = function(self) self.widget:SetDisabled(not (self.slist.checked and self.llist.checked)) end,
John@65:         }
John@65:         alb2.userdata.slist = 
John@65:         {
John@65:             parent = alb2.userdata,
John@65:             checked = false,
John@65:             ["Redraw"] = function(self) self.checked = false; self.parent:OnUpdate() end,
John@65:             ["OnSelection"] = function(self) self.checked = true; self.parent:OnUpdate() end,
John@65:             ["OnSelectionCleared"] = function(self) self.checked = false; self.parent:OnUpdate() end,
John@65:         }
John@65:         alb2.userdata.llist = 
John@65:         {
John@65:             parent = alb2.userdata,
John@65:             checked = false,
John@65:             ["Redraw"] = function(self) self.checked = false; self.parent:OnUpdate() end,
John@65:             ["OnSelection"] = function(self) self.checked = true; self.parent:OnUpdate() end,
John@65:             ["OnSelectionCleared"] = function(self) self.checked = false; self.parent:OnUpdate() end,
John@65:         }
John@65:         SListEventDispatch:RegisterListener(alb2.userdata.slist)
John@65:         LListEventDispatch:RegisterListener(alb2.userdata.llist)
John@60: 
John@60:         alb3 = AceGUI:Create("Button")
John@60:         alb3:SetWidth(100)
John@60:         alb3:SetText("Suicide")
John@65:         alb3.userdata = -- TODO: holy hell, come up with a pattern or something for this ....
John@65:         {
John@65:             widget = alb3,
John@65:             ["OnUpdate"] = function(self) self.widget:SetDisabled(not (self.slist.checked and self.llist.checked)) end,
John@65:         }
John@65:         alb3.userdata.slist = 
John@65:         {
John@65:             parent = alb3.userdata,
John@65:             checked = false,
John@65:             ["Redraw"] = function(self) self.checked = false; self.parent:OnUpdate() end,
John@65:             ["OnSelection"] = function(self) self.checked = true; self.parent:OnUpdate() end,
John@65:             ["OnSelectionCleared"] = function(self) self.checked = false; self.parent:OnUpdate() end,
John@65:         }
John@65:         alb3.userdata.llist = 
John@65:         {
John@65:             parent = alb3.userdata,
John@65:             checked = false,
John@65:             ["Redraw"] = function(self) self.checked = false; self.parent:OnUpdate() end,
John@65:             ["OnSelection"] = function(self) self.checked = true; self.parent:OnUpdate() end,
John@65:             ["OnSelectionCleared"] = function(self) self.checked = false; self.parent:OnUpdate() end,
John@65:         }
John@65:         SListEventDispatch:RegisterListener(alb3.userdata.slist)
John@65:         LListEventDispatch:RegisterListener(alb3.userdata.llist)
John@60:     end
John@38: 
John@65:     local suicideSelected, undo
John@60:     if admin then
John@60: 
John@60:         suicideSelected = AceGUI:Create("Button")
John@60:         suicideSelected:SetFullWidth(true)
John@60:         suicideSelected:SetText("Suicide")
John@68:         suicideSelected:SetCallback("OnClick",
John@68:             function(_)
John@68:                 local p = SListEventDispatch:LatestValue()
John@68:                 local lref = SListPopulator.lref
John@68:                 lref:SuicidePerson(p.value)
John@68:             end
John@68:         )
John@68: 
John@63:         -- use userdata + SListEventDispatch to toggle state
John@63:         suicideSelected.userdata = 
John@63:         {
John@63:             widget = suicideSelected,
John@65:             ["Redraw"] = function(self,_) self.widget:SetDisabled(true) end,
John@63:             ["OnSelection"] = function(self,_) self.widget:SetDisabled(false) end,
John@63:             ["OnSelectionCleared"] = function(self) self.widget:SetDisabled(true) end
John@63:         }
John@63:         SListEventDispatch:RegisterListener(suicideSelected.userdata)
John@60: 
John@60:         undo = AceGUI:Create("Button")
John@63:         undo:SetText("Undo / out of order")
John@60:         undo:SetFullWidth(true)
John@63:         undo:SetDisabled(true)
John@60:     end
John@60: 
John@56:     local filter = AceGUI:Create("CheckBox")
John@56:     filter:SetLabel("Only show active")
John@56:     filter:SetFullWidth(true)
John@63:     filter:SetValue(false)
John@63:     SListPopulator:SetFiltered(false)
John@63:     filter:SetCallback("OnValueChanged",function(widget,_,value) SListPopulator:SetFiltered(value) end)
John@56: 
John@56:     left:AddChildren(filter)
John@56:     if admin then left:AddChildren(suicideSelected,undo) end
John@56:     right:AddChildren(t2)
John@56:     if admin then right:AddChildren(alb1,alb2,alb3) end
John@56:     right:AddChildren(biddingZone)
John@56:     f:AddChildren(left,right)
John@58: 
John@58: 
John@1: end