LET THERE BE SUIT!

checkbox.lua

@@ -1,68 +1,28 @@
---[[
-Copyright (c) 2012 Matthias Richter
+-- This file is part of QUI, copyright (c) 2016 Matthias Richter
 
-Permission is hereby granted, free of charge, to any person obtaining a copy
-of this software and associated documentation files (the "Software"), to deal
-in the Software without restriction, including without limitation the rights
-to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-copies of the Software, and to permit persons to whom the Software is
-furnished to do so, subject to the following conditions:
+local BASE = (...):match('(.-)[^%.]+$')
+local core = require(BASE .. 'core')
 
-The above copyright notice and this permission notice shall be included in
-all copies or substantial portions of the Software.
+return function(checkbox, ...)
+	local opt, x,y,w,h = core.getOptionsAndSize(...)
+	opt.id = opt.id or checkbox
+	opt.font = opt.font or love.graphics.getFont()
 
-Except as contained in this notice, the name(s) of the above copyright holders
-shall not be used in advertising or otherwise to promote the sale, use or
-other dealings in this Software without prior written authorization.
+	w = w or (opt.font:getWidth(checkbox.text) + opt.font:getHeight() + 4)
+	h = h or opt.font:getHeight() + 4
 
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
-THE SOFTWARE.
-]]--
-local BASE = (...):match("(.-)[^%.]+$")
-local core     = require(BASE .. 'core')
-local group    = require(BASE .. 'group')
-local mouse    = require(BASE .. 'mouse')
-local keyboard = require(BASE .. 'keyboard')
-
--- {checked = status, text = "", algin = "left", pos = {x, y}, size={w, h}, widgetHit=widgetHit, draw=draw}
-return function(w)
-	assert(type(w) == "table")
-	w.text = w.text or ""
-
-	local tight = w.size and (w.size[1] == 'tight' or w.size[2] == 'tight')
-	if tight then
-		local f = assert(love.graphics.getFont())
-		if w.size[1] == 'tight' then
-			w.size[1] = f:getWidth(w.text)
-		end
-		if w.size[2] == 'tight' then
-			w.size[2] = f:getHeight(w.text)
-		end
-		-- account for the checkbox
-		local bw = math.min(w.size[1] or group.size[1], w.size[2] or group.size[2])
-		w.size[1] = w.size[1] + bw + 4
+	core.registerHitbox(opt.id, x,y,w,h)
+	local hit = core.mouseReleasedOn(opt.id)
+	if hit then
+		checkbox.checked = not checkbox.checked
 	end
+	core.registerDraw(core.theme.Checkbox, checkbox, opt, x,y,w,h)
 
-	local id = w.id or core.generateID()
-	local pos, size = group.getRect(w.pos, w.size)
-
-	mouse.updateWidget(id, pos, size, w.widgetHit)
-	keyboard.makeCyclable(id)
-
-	local checked = w.checked
-	local key = keyboard.key
-	if mouse.releasedOn(id) or ((key == 'return' or key == ' ') and keyboard.hasFocus(id)) then
-		w.checked = not w.checked
-	end
-
-	core.registerDraw(id, w.draw or core.style.Checkbox,
-		w.checked, w.text, w.align or 'left', pos[1], pos[2], size[1], size[2])
-
-	return w.checked ~= checked
+	return {
+		id = opt.id,
+		hit = hit,
+		hovered = core.isHot(opt.id),
+		entered = core.isHot(opt.id) and not core.wasHot(opt.id),
+		left = not core.isHot(opt.id) and core.wasHot(opt.id)
+	}
 end
-