From c01732cbe221d8c0362eefb53a7202aba25c5c6b Mon Sep 17 00:00:00 2001
From: Barinade <poco0317@users.noreply.github.com>
Date: Sat, 23 Oct 2021 02:47:16 -0500
Subject: [PATCH] rebirth add author name tooltip to cdtitle

---
 .../generalPages/general.lua                  | 27 +++++++++++++++++--
 1 file changed, 25 insertions(+), 2 deletions(-)

diff --git a/Themes/Rebirth/BGAnimations/ScreenSelectMusic decorations/generalPages/general.lua b/Themes/Rebirth/BGAnimations/ScreenSelectMusic decorations/generalPages/general.lua
index 9b206b0fdb..c4ad8ea5d7 100644
--- a/Themes/Rebirth/BGAnimations/ScreenSelectMusic decorations/generalPages/general.lua	
+++ b/Themes/Rebirth/BGAnimations/ScreenSelectMusic decorations/generalPages/general.lua	
@@ -487,7 +487,7 @@ t[#t+1] = Def.ActorFrame {
     }
 }
 
-t[#t+1] = Def.Sprite {
+t[#t+1] = UIElements.SpriteButton(1, 1, nil) .. {
     Name = "CDTitle",
     InitCommand = function(self)
         -- lets... avoid aligning this.
@@ -503,6 +503,7 @@ t[#t+1] = Def.Sprite {
     end,
     SetCommand = function(self, params)
         self:finishtweening()
+        self.song = params.song
         if params.song then
             if params.song:HasCDTitle() then
                 self:diffusealpha(1)
@@ -530,7 +531,29 @@ t[#t+1] = Def.Sprite {
         else
             self:diffusealpha(0)
         end
-    end
+        if isOver(self) then
+            self:playcommand("ToolTip")
+        end
+    end,
+    ToolTipCommand = function(self)
+        if isOver(self) then
+            if self.song then
+                local auth = self.song:GetOrTryAtLeastToGetSimfileAuthor()
+                if auth and #auth > 0 then
+                    TOOLTIP:SetText(auth)
+                    TOOLTIP:Show()
+                end
+            end
+        end
+    end,
+    MouseOverCommand = function(self)
+        if self:IsInvisible() then return end
+        self:playcommand("ToolTip")
+    end,
+    MouseOutCommand = function(self)
+        if self:IsInvisible() then return end
+        TOOLTIP:Hide()
+    end,
 }
 
 t[#t+1] = createStatLines()