44402b1d26
- added new animations (:setMode("animname")
- added :addMode("animname", f) to create custom easings
- Fixed a bug in input when using - or . nothing happens (inputmode number)
- Added a event for labels when using multiple line text and the window/frame gets resized)
- Changed some backend stuff for programs
- added a setEnviroment method for programs
- Added a program_done event and a program_error event for programs (:onError() and :onDone())
- Fixed a bug in textfields (when using editLine it doesn't update colors)
- seperated the char event from the key event (before both events executed :onKey events, now there is a :onChar() and :onKey() event
89 lines
3.0 KiB
Lua
89 lines
3.0 KiB
Lua
local Object = require("Object")
|
|
local xmlValue = require("utils").getValueFromXML
|
|
|
|
return function(name)
|
|
local base = Object(name)
|
|
local objectType = "Switch"
|
|
|
|
base.width = 2
|
|
base.height = 1
|
|
base.bgColor = colors.lightGray
|
|
base.fgColor = colors.gray
|
|
base:setValue(false)
|
|
base:setZIndex(5)
|
|
|
|
local bgSymbol = colors.black
|
|
local inactiveBG = colors.red
|
|
local activeBG = colors.green
|
|
|
|
local object = {
|
|
getType = function(self)
|
|
return objectType
|
|
end;
|
|
|
|
setSymbolColor = function(self, symbolColor)
|
|
bgSymbol = symbolColor
|
|
self:updateDraw()
|
|
return self
|
|
end;
|
|
|
|
setActiveBackground = function(self, bgcol)
|
|
activeBG = bgcol
|
|
self:updateDraw()
|
|
return self
|
|
end;
|
|
|
|
setInactiveBackground = function(self, bgcol)
|
|
inactiveBG = bgcol
|
|
self:updateDraw()
|
|
return self
|
|
end;
|
|
|
|
setValuesByXMLData = function(self, data)
|
|
base.setValuesByXMLData(self, data)
|
|
if(xmlValue("inactiveBG", data)~=nil)then inactiveBG = colors[xmlValue("inactiveBG", data)] end
|
|
if(xmlValue("activeBG", data)~=nil)then activeBG = colors[xmlValue("activeBG", data)] end
|
|
if(xmlValue("symbolColor", data)~=nil)then bgSymbol = colors[xmlValue("symbolColor", data)] end
|
|
|
|
end,
|
|
|
|
mouseHandler = function(self, button, x, y)
|
|
if (base.mouseHandler(self, button, x, y)) then
|
|
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
|
|
self:setValue(not self:getValue())
|
|
self:updateDraw()
|
|
return true
|
|
end
|
|
end;
|
|
|
|
draw = function(self)
|
|
if (base.draw(self)) then
|
|
if (self.parent ~= nil) then
|
|
local obx, oby = self:getAnchorPosition()
|
|
local w,h = self:getSize()
|
|
self.parent:drawBackgroundBox(obx, oby, w, h, self.bgColor)
|
|
if(self:getValue())then
|
|
self.parent:drawBackgroundBox(obx, oby, 1, h, activeBG)
|
|
self.parent:drawBackgroundBox(obx+1, oby, 1, h, bgSymbol)
|
|
else
|
|
self.parent:drawBackgroundBox(obx, oby, 1, h, bgSymbol)
|
|
self.parent:drawBackgroundBox(obx+1, oby, 1, h, inactiveBG)
|
|
end
|
|
end
|
|
end
|
|
end,
|
|
|
|
init = function(self)
|
|
self.parent:addEvent("mouse_click", self)
|
|
if(base.init(self))then
|
|
self.bgColor = self.parent:getTheme("SwitchBG")
|
|
self.fgColor = self.parent:getTheme("SwitchText")
|
|
bgSymbol = self.parent:getTheme("SwitchBGSymbol")
|
|
inactiveBG = self.parent:getTheme("SwitchInactive")
|
|
activeBG = self.parent:getTheme("SwitchActive")
|
|
end
|
|
end,
|
|
}
|
|
|
|
return setmetatable(object, base)
|
|
end |