Add gui.keyboard.getFocus() and gui.mouse.getHot()

keyboard.lua

@@ -39,6 +39,7 @@ local function setFocus(id)   focus = id end
 local function disable()    focus = NO_WIDGET end
 local function clearFocus() focus = nil end
 local function hasFocus(id) return id == focus end
+local function getFocus()   return focus end
 
 local function tryGrab(id)
 	if not focus then
@@ -79,6 +80,7 @@ return setmetatable({
 	tryGrab       = tryGrab,
 	isBindingDown = isBindingDown,
 	setFocus      = setFocus,
+	getFocus      = getFocus,
 	clearFocus    = clearFocus,
 	hasFocus      = hasFocus,
 	makeCyclable  = makeCyclable,

mouse.lua

@@ -40,6 +40,7 @@ local function setHot(id)    hot = id end
 local function setActive(id) active = id end
 local function isHot(id)     return id == hot end
 local function isActive(id)  return id == active end
+local function getHot()      return hot end
 
 local function updateWidget(id, pos, size, hit)
 	hit = hit or _M.widgetHit
@@ -85,6 +86,7 @@ end
 _M = {
 	widgetHit    = widgetHit,
 	setHot       = setHot,
+	getHot       = getHot,
 	setActive    = setActive,
 	isHot        = isHot,
 	isActive     = isActive,