first export save

Author: tg123

Myslot.toc

@@ -13,13 +13,16 @@
 ## Notes-zhTW: @localization(locale="zhTW", key="TOC_NOTES")@
 ## Author: Boshi Lian
 ## Version: @project-version@
+## SavedVariables: MyslotExports
+
 
 libs\base64.lua
 libs\crc32.lua
 libs\lua-pb\lua-pb.xml
 
 protobuf\Myslot.lua
 
+event.lua
 locales.lua
 keys.lua
 Myslot.lua

event.lua

@@ -0,0 +1,29 @@
+local ADDONNAME, ADDONSELF = ...
+
+local f = CreateFrame("Frame")
+local m = {}
+f:SetScript("OnEvent", function(self, event, ...)
+    if event == "ADDON_LOADED" then
+        local name = select(1, ...)
+
+        if ADDONNAME ~= name then
+            return
+        end
+    end
+
+    local cbs = m[event]
+    if cbs then
+        for _, cb in pairs(cbs) do
+            cb(...)
+        end
+    end
+end)
+
+ADDONSELF.regevent = function(event, cb)
+    if not m[event] then
+        m[event] = {}
+    end
+
+    f:RegisterEvent(event)
+    table.insert(m[event] , cb)
+end

gui.lua

@@ -1,6 +1,7 @@
 local _, MySlot = ...
 
 local L = MySlot.L
+local RegEvent = MySlot.regevent
 
 
 local f = CreateFrame("Frame", nil, UIParent)
@@ -43,38 +44,38 @@ end
 
 -- export editbox
 local exportEditbox
-do
-    local t = CreateFrame("ScrollFrame", nil, f, "UIPanelScrollFrameTemplate")
-    t:EnableMouse(true)
-    t:SetPoint("TOPLEFT", f, 25, -30)
-    t:SetWidth(580)
-    t:SetHeight(500)
-    local edit = CreateFrame("EditBox", nil, t)
-    edit:SetWidth(560)
-    edit:SetHeight(480)
-    edit:SetPoint("TOPLEFT", t, 0, 0)
-    edit:SetAutoFocus(false)
-    edit:SetMaxLetters(99999999)
-    edit:SetMultiLine(true)
-    edit:SetFontObject(GameTooltipTextSmall)
-    edit:SetScript("OnTextChanged", function(self)
-        ScrollingEdit_OnTextChanged(self, t)
-    end)
-    edit:SetScript("OnCursorChanged", ScrollingEdit_OnCursorChanged)
-    edit:SetScript("OnUpdate", function(self, elapsed)
-        ScrollingEdit_OnUpdate(self, elapsed, t)
-    end)
-    edit:SetScript("OnEscapePressed", edit.ClearFocus)
-    edit:SetScript("OnTextSet", edit.HighlightText)
-    edit:SetScript("OnMouseUp", edit.HighlightText)
+-- do
+--     local t = CreateFrame("ScrollFrame", nil, f, "UIPanelScrollFrameTemplate")
+--     t:EnableMouse(true)
+--     t:SetPoint("TOPLEFT", f, 25, -30)
+--     t:SetWidth(580)
+--     t:SetHeight(500)
+--     local edit = CreateFrame("EditBox", nil, t)
+--     edit:SetWidth(560)
+--     edit:SetHeight(480)
+--     edit:SetPoint("TOPLEFT", t, 0, 0)
+--     edit:SetAutoFocus(false)
+--     edit:SetMaxLetters(99999999)
+--     edit:SetMultiLine(true)
+--     edit:SetFontObject(GameTooltipTextSmall)
+--     edit:SetScript("OnTextChanged", function(self)
+--         ScrollingEdit_OnTextChanged(self, t)
+--     end)
+--     edit:SetScript("OnCursorChanged", ScrollingEdit_OnCursorChanged)
+--     edit:SetScript("OnUpdate", function(self, elapsed)
+--         ScrollingEdit_OnUpdate(self, elapsed, t)
+--     end)
+--     edit:SetScript("OnEscapePressed", edit.ClearFocus)
+--     edit:SetScript("OnTextSet", edit.HighlightText)
+--     edit:SetScript("OnMouseUp", edit.HighlightText)
 
-    t:SetScript("OnMouseDown", function()
-        edit:SetFocus()
-    end)
+--     t:SetScript("OnMouseDown", function()
+--         edit:SetFocus()
+--     end)
 
-    t:SetScrollChild(edit)
-    exportEditbox = edit
-end
+--     t:SetScrollChild(edit)
+--     exportEditbox = edit
+-- end
 
 -- close
 do
@@ -136,10 +137,226 @@ do
     b:SetScript("OnClick", function()
         local s = MySlot:Export()
         exportEditbox:SetText(s)
-        ScrollingEdit_SetCursorOffsets(exportEditbox, 0, 0)
     end)
 end
 
+
+
+RegEvent("ADDON_LOADED", function()
+    do
+        local t = CreateFrame("Frame", nil, f)
+        t:SetWidth(600)
+        t:SetHeight(400)
+        t:SetPoint("TOPLEFT", f, 25, -75)
+        t:SetBackdrop({ 
+            bgFile = "Interface/Tooltips/UI-Tooltip-Background",
+            edgeFile = "Interface/Tooltips/UI-Tooltip-Border",
+            tile = true,
+            tileEdge = true,
+            tileSize = 16,
+            edgeSize = 16,
+            insets = { left = -2, right = -2, top = -2, bottom = -2 },    
+        })
+        t:SetBackdropColor(0, 0, 0, 0)
+    
+        local s = CreateFrame("ScrollFrame", nil, t, "UIPanelScrollFrameTemplate")
+        s:SetWidth(560)
+        s:SetHeight(375)
+        s:SetPoint("TOPLEFT", 10, -10)
+
+
+        local edit = CreateFrame("EditBox", nil, s)
+        s.cursorOffset = 0
+        edit:SetWidth(550)
+        s:SetScrollChild(edit)
+        edit:SetAutoFocus(false)
+        edit:EnableMouse(true)
+        edit:SetMaxLetters(99999999)
+        edit:SetMultiLine(true)
+        edit:SetFontObject(GameTooltipText)
+        -- edit:SetScript("OnTextChanged", function(self)
+        --     ScrollingEdit_OnTextChanged(self, s)
+        -- end)
+        -- edit:SetScript("OnUpdate", function(self, elapsed)
+        --     ScrollingEdit_OnUpdate(self, elapsed, s)
+        -- end)
+        -- edit:SetScript("OnCursorChanged", function(self) 
+        --     ScrollingEdit_OnCursorChanged(self)
+        --     -- ScrollingEdit_OnUpdate(self, 0, s)
+        -- end)
+        edit:SetScript("OnEscapePressed", edit.ClearFocus)
+        edit:SetScript("OnTextSet", edit.HighlightText)
+        edit:SetScript("OnMouseUp", edit.HighlightText)
+
+        t:SetScript("OnMouseDown", function()
+            edit:SetFocus()
+        end)
+
+        exportEditbox = edit
+    end    
+
+    do
+        local t = CreateFrame("Frame", nil, f, "UIDropDownMenuTemplate")
+        t:SetPoint("TOPLEFT", f, 5, -45)
+        UIDropDownMenu_SetWidth(t, 200)
+
+        -- local tt = t:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
+        -- tt:SetPoint("BOTTOMLEFT", t, "TOPLEFT", 20, 0)
+        -- tt:SetText(L["Saved exported text"])
+
+        if not MyslotExports then
+            MyslotExports = {}
+        end
+        if not MyslotExports["exports"] then
+            MyslotExports["exports"] = {}
+        end
+        local exports = MyslotExports["exports"]
+
+        local onclick = function(self)
+            local idx = self.value
+            UIDropDownMenu_SetSelectedValue(t, idx)
+            
+            local n = exports[idx] and exports[idx].name or ""
+            UIDropDownMenu_SetText(t, n)
+
+            local v = exports[idx] and exports[idx].value or ""
+            exportEditbox:SetText(v)
+        end
+
+        local create = function(name)
+            local txt = {
+                name = name
+            }
+            table.insert(exports, txt)
+
+            local info = UIDropDownMenu_CreateInfo()
+            info.text = txt.name
+            info.value = #exports
+            info.func = onclick
+            UIDropDownMenu_AddButton(info)
+        end
+
+        local save = function(force)
+            local c = UIDropDownMenu_GetSelectedValue(t)
+            local v = exportEditbox:GetText()
+            if not force and v == "" then
+                return
+            end
+            if (not c) or (not exports[c]) then
+                local n = date()
+                create(n)
+                UIDropDownMenu_SetSelectedValue(t, #exports)
+                UIDropDownMenu_SetText(t, n)
+                c = #exports
+            end
+
+            exports[c].value = v
+        end
+        -- exportEditbox:SetScript("OnTextChanged", function() save(false) end)
+
+        UIDropDownMenu_Initialize(t, function()
+            for i, txt in pairs(exports) do
+                -- print(txt.name)
+                local info = UIDropDownMenu_CreateInfo()
+                info.text = txt.name
+                info.value = i
+                info.func = onclick
+                UIDropDownMenu_AddButton(info)
+            end
+        end)
+
+        local popctx = {}
+
+        StaticPopupDialogs["MYSLOT_EXPORT_TITLE"].OnShow = function(self)
+            local c = popctx.current
+
+            if c and exports[c] then
+                self.editBox:SetText(exports[c].name or "")
+            end
+        end
+
+
+        StaticPopupDialogs["MYSLOT_EXPORT_TITLE"].OnAccept = function(self)
+            local c = popctx.current
+
+            -- if c then rename
+            if c and exports[c] then
+                local n = self.editBox:GetText()
+                if n ~= "" then
+                    exports[c].name = n
+                    UIDropDownMenu_SetText(t, n)
+                end
+                return
+            end
+
+            create(self.editBox:GetText())
+            onclick({value = #exports})
+        end
+
+        do
+            local b = CreateFrame("Button", nil, f, "GameMenuButtonTemplate")
+            b:SetWidth(70)
+            b:SetHeight(25)
+            b:SetPoint("TOPLEFT", t, 240, 0)
+            b:SetText(NEW)
+            b:SetScript("OnClick", function()
+                popctx.current = nil
+                StaticPopup_Show("MYSLOT_EXPORT_TITLE")
+            end)
+        end
+
+        do
+            local b = CreateFrame("Button", nil, f, "GameMenuButtonTemplate")
+            b:SetWidth(70)
+            b:SetHeight(25)
+            b:SetPoint("TOPLEFT", t, 315, 0)
+            b:SetText(SAVE)
+            b:SetScript("OnClick", function() save(true) end)
+        end
+
+        do
+            local b = CreateFrame("Button", nil, f, "GameMenuButtonTemplate")
+            b:SetWidth(70)
+            b:SetHeight(25)
+            b:SetPoint("TOPLEFT", t, 390, 0)
+            b:SetText(DELETE)
+            b:SetScript("OnClick", function()
+                local c = UIDropDownMenu_GetSelectedValue(t)
+
+                if c then
+                    table.remove( exports, c)
+                end
+
+                if #exports == 0 then
+                    UIDropDownMenu_SetSelectedValue(t, nil)
+                    UIDropDownMenu_SetText(t, "")
+                    exportEditbox:SetText("")
+                else
+                    onclick({value = #exports})
+                end
+            end)
+        end
+       
+        do
+            local b = CreateFrame("Button", nil, f, "GameMenuButtonTemplate")
+            b:SetWidth(70)
+            b:SetHeight(25)
+            b:SetPoint("TOPLEFT", t, 465, 0)
+            b:SetText(L["Rename"])
+            b:SetScript("OnClick", function()
+                local c = UIDropDownMenu_GetSelectedValue(t)
+
+                if c and exports[c] then
+                    popctx.current = c
+                    StaticPopup_Show("MYSLOT_EXPORT_TITLE")
+                end
+            end)
+        end
+
+    end
+
+end)
+
 SlashCmdList["MYSLOT"] = function(msg, editbox)
     local cmd, what = msg:match("^(%S*)%s*(%S*)%s*$")
 
@@ -160,3 +377,19 @@ StaticPopupDialogs["MYSLOT_MSGBOX"] = {
     hideOnEscape = 1,
     multiple = 0,
 }
+
+StaticPopupDialogs["MYSLOT_EXPORT_TITLE"] = {
+    text = L["Name of exported text"],
+    button1 = ACCEPT,
+    button2 = CANCEL,
+    hasEditBox = true,
+    timeout = 0,
+    whileDead = 1,
+    hideOnEscape = 1,
+    multiple = 0,
+    OnAccept = function()
+    end,
+    OnShow = function()
+    end,
+}
+