reafactor: moved showing tooltips to separated module

FossilOrigin-Name: ab1e68a898751a6e9a432192eeee149761dc2693b928839caa55e5e5887fa4a7

src/newui/coreui.nim

@@ -23,13 +23,8 @@ type GameState* = enum
   mainMenu, quitGame, news
 
 const
-  tooltipDelay*: float = 1000.0
-    ## For how long the player hovers the mouse over UI element before a
-    ## tooltip will be shown
-  dtime*: float = 40.0
-    ## The length in miliseconds of one game's frame
+    dtime*: float = 40.0 ## The length in miliseconds of one game's frame
 
 var
   windowWidth*: Positive = 600 ## The width of the game's main window
   windowHeight*: Positive = 400 ## The height of the game's main window
-  tooltipTime*: float = tooltipDelay ## How long left to show a tooltip

src/newui/mainmenu.nim

@@ -21,7 +21,7 @@
 import std/[os, sequtils]
 import contracts, nuklear/nuklear_sdl_renderer
 import ../game
-import coreui
+import coreui, utilsui
 
 var
   logo: PImage = nil
@@ -65,15 +65,10 @@ proc showMainMenu*(state: var GameState) {.raises: [], tags: [], contractual.} =
       w: float = 150
       h: float = 40
     row(x = x, y = 0, w = w, h = h):
-      var bounds: NimRect = getWidgetBounds()
+      let bounds: NimRect = getWidgetBounds()
       labelButton(title = "New game"):
         echo "button pressed"
-      if isMouseHovering(bounds):
-        tooltipTime -= dtime
-        if tooltipTime <= 0.0:
-          tooltip("Set and start a new game")
-      else:
-        tooltipTime = tooltipDelay
+      bounds.showTooltip(text = "Set and start a new game")
     var y: float = h;
     if showLoadButton:
       row(x = x, y = y, w = w, h = h):

src/newui/utilsui.nim

@@ -0,0 +1,38 @@
+# Copyright 2024 Bartek thindil Jasicki
+#
+# This file is part of Steam Sky.
+#
+# Steam Sky is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# Steam Sky is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with Steam Sky.  If not, see <http://www.gnu.org/licenses/>.
+
+## Provides code related to the game's UI, like tooltips
+
+import contracts, nuklear/nuklear_sdl_renderer
+import coreui
+
+const
+  tooltipDelay: float = 1000.0
+    ## For how long the player hovers the mouse over UI element before a
+    ## tooltip will be shown
+
+var
+  tooltipTime: float = tooltipDelay ## How long left to show a tooltip
+
+proc showTooltip*(bounds: NimRect; text: string) {.raises: [], tags: [],
+    contractual.} =
+  if isMouseHovering(bounds):
+    tooltipTime -= dtime
+    if tooltipTime <= 0.0:
+      tooltip("Set and start a new game")
+  else:
+    tooltipTime = tooltipDelay