GitHub/Basalt
1
0
Fork 0
Code Issues 28 Pull Requests 3 Actions Packages Projects Releases 9 Wiki Activity
Files
aab510df6cc4c25134d9e42b54bc7c8821307570
Basalt/source/basalt.lua
Robert Jelic aab510df6c changed keys, bug fixes
2022-05-11 06:32:59 +02:00

3742 lines
123 KiB
Lua
Raw Blame History

-- current version 1
local theme = {
basaltBG = colors.lightGray,
basaltFG = colors.black,
FrameBG = colors.gray,
FrameFG = colors.black,
ButtonBG = colors.gray,
ButtonFG = colors.black,
CheckboxBG = colors.gray,
CheckboxFG = colors.black,
InputBG = colors.gray,
InputFG = colors.black,
textfieldBG = colors.gray,
textfieldFG = colors.black,
listBG = colors.gray,
listFG = colors.black,
dropdownBG = colors.gray,
dropdownFG = colors.black,
radioBG = colors.gray,
radioFG = colors.black,
selectionBG = colors.black,
selectionFG = colors.lightGray,
}
local basalt = {debugger=true, version=1}
local activeFrame
local frames = {}
local keyModifier = {}
local parentTerminal = term.current()
local sub = string.sub
local function getTextHorizontalAlign(text, w, textAlign)
local text = string.sub(text, 1, w)
local n = w-string.len(text)
if(textAlign=="right")then
text = string.rep(" ", n)..text
elseif(textAlign=="center")then
text = string.rep(" ", math.floor(n/2))..text..string.rep(" ", math.floor(n/2))
text = text..(string.len(text) < w and " " or "")
else
text = text..string.rep(" ", n)
end
return text
end
local function getTextVerticalAlign(h,textAlign)
local offset = 0
if(textAlign=="center")then
offset = math.ceil(h / 2)
if(offset<1)then offset = 1 end
end
if(textAlign=="bottom")then
offset = h
end
return offset
end
local function rpairs(t)
return function(t, i)
i = i - 1
if i ~= 0 then
return i, t[i]
end
end, t, #t + 1
end
local tHex = { -- copy paste is a very important feature
[ colors.white ] = "0",
[ colors.orange ] = "1",
[ colors.magenta ] = "2",
[ colors.lightBlue ] = "3",
[ colors.yellow ] = "4",
[ colors.lime ] = "5",
[ colors.pink ] = "6",
[ colors.gray ] = "7",
[ colors.lightGray ] = "8",
[ colors.cyan ] = "9",
[ colors.purple ] = "a",
[ colors.blue ] = "b",
[ colors.brown ] = "c",
[ colors.green ] = "d",
[ colors.red ] = "e",
[ colors.black ] = "f",
}
local function basaltDrawHelper()
local terminal = parentTerminal
local w,h = terminal.getSize()
local cacheT = {}
local cacheBG = {}
local cacheFG = {}
local _cacheT = {}
local _cacheBG = {}
local _cacheFG = {}
local emptySpaceLine
local emptyColorLines = {}
local function createEmptyLines()
emptySpaceLine = (" "):rep(w)
for n=0,15 do
local nColor = 2^n
local sHex = tHex[nColor]
emptyColorLines[nColor] = sHex:rep(w)
end
end
----
createEmptyLines()
local function recreateWindowArray()
local emptyText = emptySpaceLine
local emptyFG = emptyColorLines[colors.white]
local emptyBG = emptyColorLines[colors.black]
for n=1,h do
cacheT[n] = sub(cacheT[n] == nil and emptyText or cacheT[n]..emptyText:sub(1,w-cacheT[n]:len()),1,w)
cacheFG[n] = sub(cacheFG[n] == nil and emptyFG or cacheFG[n]..emptyFG:sub(1,w-cacheFG[n]:len()),1,w)
cacheBG[n] = sub(cacheBG[n] == nil and emptyBG or cacheBG[n]..emptyBG:sub(1,w-cacheBG[n]:len()),1,w)
end
end
recreateWindowArray()
local function setText(x,y,text)
if(y>=1)and(y<=h)then
if(x+text:len()>0)and(x<=w)then
local oldCache = cacheT[y]
local newCache
local nEnd = x + #text - 1
if(x < 1)then
local startN = 1 - x + 1
local endN = w - x + 1
text = sub(text, startN, endN)
elseif(nEnd > w)then
local endN = w - x + 1
text = sub(text, 1, endN)
end
if(x > 1)then
local endN = x - 1
newCache = sub( oldCache, 1, endN )..text
else
newCache = text
end
if nEnd < w then
newCache = newCache .. sub(oldCache, nEnd + 1, w)
end
cacheT[y] = newCache
end
end
end
local function setBG(x,y,colorStr)
if(y>=1)and(y<=h)then
if(x+colorStr:len()>0)and(x<=w)then
local oldCache = cacheBG[y]
local newCache
local nEnd = x + #colorStr - 1
if(x < 1)then
colorStr = sub(colorStr, 1 - x + 1, w - x + 1)
elseif(nEnd > w)then
colorStr = sub(colorStr, 1, w - x + 1)
end
if(x > 1)then
newCache = sub( oldCache, 1, x - 1)..colorStr
else
newCache = colorStr
end
if nEnd < w then
newCache = newCache .. sub(oldCache, nEnd + 1, w)
end
cacheBG[y] = newCache
end
end
end
local function setFG(x,y,colorStr)
if(y>=1)and(y<=h)then
if(x+colorStr:len()>0)and(x<=w)then
local oldCache = cacheFG[y]
local newCache
local nEnd = x + #colorStr - 1
if(x < 1)then
local startN = 1 - x + 1
local endN = w - x + 1
colorStr = sub(colorStr, startN, endN)
elseif(nEnd > w)then
local endN = w - x + 1
colorStr = sub(colorStr, 1, endN)
end
if(x > 1)then
local endN = x - 1
newCache = sub( oldCache, 1, endN )..colorStr
else
newCache = colorStr
end
if nEnd < w then
newCache = newCache .. sub( oldCache, nEnd + 1, w )
end
cacheFG[y] = newCache
end
end
end
local drawHelper = {
setBG = function(x,y,colorStr)
setBG(x,y,colorStr)
end;
setText = function(x,y,text)
setText(x,y,text)
end;
setFG = function(x,y,colorStr)
setFG(x,y,colorStr)
end;
drawBackgroundBox = function (x, y, w, h, bgCol)
for n = 1, h do
setBG(x, y + (n-1), tHex[bgCol]:rep(w))
end
end;
drawForegroundBox = function (x, y, w, h, fgCol)
for n = 1, h do
setFG(x, y + (n-1), tHex[fgCol]:rep(w))
end
end;
drawTextBox = function (x, y, w, h, symbol)
for n = 1, h do
setText(x, y + (n-1), symbol:rep(w))
end
end;
writeText = function (x, y, text, bgCol, fgCol)
bgCol = bgCol or terminal.getBackgroundColor()
fgCol = fgCol or terminal.getTextColor()
setText(x, y, text)
setBG(x, y, tHex[bgCol]:rep(text:len()))
setFG(x, y, tHex[fgCol]:rep(text:len()))
end;
update = function ()
local xC, yC = terminal.getCursorPos()
local isBlinking = false
if(terminal.getCursorBlink~=nil)then isBlinking = terminal.getCursorBlink() end
terminal.setCursorBlink(false)
for n=1, h do
terminal.setCursorPos(1, n)
terminal.blit(cacheT[n], cacheFG[n], cacheBG[n])
end
terminal.setCursorBlink(isBlinking)
terminal.setCursorPos(xC, yC)
end;
setTerm = function (newTerm)
terminal = newTerm;
end;
}
return drawHelper
end
local drawHelper = basaltDrawHelper()
local function BasaltEvents()
local events = {}
local index = {}
local event = {
registerEvent = function(self,_event,func)
if( events[_event] == nil)then events[_event] = {} index[_event] = 1 end
events[_event][index[_event]] = func
index[_event] = index[_event] + 1
return index[_event] - 1
end;
removeEvent = function(self,_event,index)
events[_event][index[_event]] = nil
end;
sendEvent = function(self,_event,...)
if(events[_event]~=nil)then
for k,v in pairs(events[_event])do
v(...)
end
end
end;
}
event.__index = event
return event
end
local processes = {}
local process = {}
local processId = 0
function process:new(path,window,...)
local args = table.pack( ... )
local newP = setmetatable({path=path},{__index = self})
newP.window = window
newP.processId = processId
newP.coroutine = coroutine.create(function()
os.run({basalt=basalt}, path, table.unpack(args))
end)
processes[processId] = newP
processId = processId + 1
return newP
end
function process:resume(event, ...)
term.redirect(self.window)
local ok, result = coroutine.resume( self.coroutine, event, ... )
self.window = term.current()
if ok then
self.filter = result
else
basalt.debug( result )
end
end
function process:isDead()
if(self.coroutine~=nil)then
if(coroutine.status(self.coroutine)=="dead")then
table.remove(processes, self.processId)
return true
end
else
return true
end
return false
end
function process:getStatus()
if(self.coroutine~=nil)then
return coroutine.status(self.coroutine)
end
return nil
end
function process:start()
coroutine.resume(self.coroutine)
end
local function Object(name) -- Base object
local typ = "Object" -- not changeable
--[[
local horizontalAnchor = "left"
local verticalAnchor = "top"
local ignYOffset = false
local ignXOffset = false ]]
local value = nil
local zIndex = 1
local hanchor = "left"
local vanchor = "top"
local ignOffset = false
local isVisible = false
local visualsChanged = true
local eventSystem = BasaltEvents()
local object = {
x = 1,
y = 1,
w = 1,
h = 1,
bgcolor = colors.black,
fgcolor = colors.white,
name = name or "Object",
parent = nil,
show = function(self)
isVisible = true
visualsChanged = true
return self
end;
hide = function(self)
isVisible = false
visualsChanged = true
return self
end;
isVisible = function(self)
return isVisible
end;
getZIndex = function(self)
return zIndex;
end;
setFocus = function(self)
if(self.parent~=nil)then
self.parent:setFocusedObject(self)
end
return self
end;
setZIndex = function(self, index)
zIndex = index
if(self.parent~=nil)then
self.parent:removeObject(self)
self.parent:addObject(self)
end
return self
end;
getType = function(self)
return typ
end;
getName = function(self)
return self.name
end;
remove = function(self)
if(self.parent~=nil)then
self.parent:removeObject(self)
end
return self
end;
setParent = function(self, frame)
if(frame.getType~=nil and frame:getType()=="Frame")then
self:remove()
frame:addObject(self)
if(self.draw)then
self:show()
end
end
return self
end;
setValue = function(self, _value)
if(value~=_value)then
value = _value
visualsChanged = true
self:valueChangedHandler()
end
return self
end;
getValue = function(self)
return value
end;
getVisualChanged = function(self)
return visualsChanged
end;
setVisualChanged = function(self, change)
visualsChanged = change or true
return self
end;
getEventSystem = function(self)
return eventSystem
end;
getParent = function(self)
return self.parent
end;
setPosition = function(self, xPos, yPos, rel)
if(rel)then
self.x, self.y = self.x + xPos, self.y + yPos
else
self.x, self.y = xPos, yPos
end
visualsChanged = true
return self
end;
getPosition = function(self)
return self.x,self.y
end;
getVisibility = function(self)
return isVisible
end;
setVisibility = function(self, _isVisible)
isVisible = _isVisible or not isVisible
visualsChanged = true
return self
end;
setSize = function(self, w, h)
self.w, self.h = w, h
visualsChanged = true
return self
end;
getHeight = function(self)
return self.h
end;
getWidth = function(self)
return self.w
end;
setBackground = function(self, color)
self.bgcolor = color
visualsChanged = true
return self
end;
getBackground = function(self)
return self.bgcolor
end;
setForeground = function(self, color)
self.fgcolor = color
visualsChanged = true
return self
end;
getForeground = function(self)
return self.fgcolor
end;
draw = function(self)
if(isVisible)then
return true
end
return false
end;
getAbsolutePosition = function(self, x,y) -- relative position to absolute position
if(x==nil)then x = self.x end
if(y==nil)then y = self.y end
if(self.parent~=nil)then
local fx,fy = self.parent:getAbsolutePosition(self.parent:getAnchorPosition())
x=fx+x-1
y=fy+y-1
end
return x, y
end;
getAnchorPosition = function(self,x, y, ignOff)
if(x==nil)then x = self.x end
if(y==nil)then y = self.y end
if(hanchor=="right")then
x = self.parent.w-x-self.w+2
end
if(vanchor=="bottom")then
y = self.parent.h-y-self.h+2
end
local xO, yO = self:getOffset()
if(ignOffset or ignOff)then
return x, y
end
return x+xO, y+yO
end;
getOffset = function(self)
if(self.parent~=nil)and(ignOffset==false)then
return self.parent:getFrameOffset()
end
return 0, 0
end;
ignoreOffset = function(self, ignore)
ignOffset = ignore or true
return self
end;
setAnchor = function(self,...)
for _,v in pairs(table.pack(...))do
if(v=="right")or(v=="left")then
hanchor = v
end
if(v=="top")or(v=="bottom")then
vanchor = v
end
end
visualsChanged = true
return self
end;
getAnchor = function(self)
return hanchor, vanchor
end;
onChange = function(self, func)
self:registerEvent("value_changed", func)
return self
end;
onClick = function(self, func)
self:registerEvent("mouse_click", func)
return self
end;
onEvent = function(self, func)
self:registerEvent("custom_event_handler", func)
return self
end;
onClickUp = function(self, func)
self:registerEvent("mouse_up", func)
return self
end;
onKey = function(self, func)
self:registerEvent("key", func)
self:registerEvent("char", func)
return self
end;
onKeyUp = function(self, func)
self:registerEvent("key_up", func)
return self
end;
onBackgroundKey = function(self, func)
self:registerEvent("background_key", func)
self:registerEvent("background_char", func)
return self
end;
onBackgroundKeyUp = function(self, func)
self:registerEvent("background_key_up", func)
return self
end;
isFocused = function(self)
if(self.parent~=nil)then
return self.parent:getFocusedObject()==self
end
return false
end;
onGetFocus = function(self, func)
self:registerEvent("get_focus", func)
return self
end;
onLoseFocus = function(self, func)
self:registerEvent("lose_focus", func)
return self
end;
registerEvent = function(self,event, func)
return eventSystem:registerEvent(event, func)
end;
removeEvent = function(self,event, index)
return eventSystem:removeEvent(event, index)
end;
mouseClickHandler = function(self, event, button, x, y)
local objX,objY = self:getAbsolutePosition(self:getAnchorPosition())
if(objX<=x)and(objX+self.w>x)and(objY<=y)and(objY+self.h>y)and(isVisible)then
if(self.parent~=nil)then self.parent:setFocusedObject(self) end
eventSystem:sendEvent(event, self, event, button, x, y)
return true
end
return false
end;
keyHandler = function(self, event, key)
if(self:isFocused())then
eventSystem:sendEvent(event, self, event, key)
return true
end
return false
end;
backgroundKeyHandler = function(self, event, key)
eventSystem:sendEvent("background_"..event, self, event, key)
end;
valueChangedHandler = function(self)
eventSystem:sendEvent("value_changed", self)
end;
eventHandler = function(self, event, p1, p2, p3, p4)
eventSystem:sendEvent("custom_event_handler", self, event, p1, p2, p3, p4)
end;
getFocusHandler = function(self)
eventSystem:sendEvent("get_focus", self)
end;
loseFocusHandler = function(self)
eventSystem:sendEvent("lose_focus", self)
end;
}
object.__index = object
return object
end
local function Button(name) -- Button
local base = Object(name)
local typ = "Button"
base:setValue("Button")
base:setZIndex(5)
base.w = 8
base.bgcolor = theme.ButtonBG
base.fgcolor = theme.ButtonFG
local textHorizontalAlign = "center"
local textVerticalAlign = "center"
local object = {
getType = function(self)
return typ
end;
setHorizontalAlign = function (self, pos)
textHorizontalAlign = pos
end;
setVerticalAlign = function (self, pos)
textVerticalAlign = pos
end;
setText = function(self,text)
base:setValue(text)
return self
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
local verticalAlign = getTextVerticalAlign(self.h, textVerticalAlign)
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
self.parent:drawForegroundBox(obx, oby, self.w, self.h, self.fgcolor)
self.parent:drawTextBox(obx, oby, self.w, self.h, " ")
for n=1,self.h do
if(n==verticalAlign)then
self.parent:setText(obx, oby+(n-1), getTextHorizontalAlign(self:getValue(), self.w, textHorizontalAlign))
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Program(name)
local base = Object(name)
local typ = "Program"
base:setZIndex(5)
local object
local function basaltWindow(x, y, w, h)
local xCursor, yCursor = 1, 1
local bgcolor, fgcolor = colors.black, colors.white
local cursorBlink = false
local visible = false
local cacheT = {}
local cacheBG = {}
local cacheFG = {}
local tPalette = {}
local emptySpaceLine
local emptyColorLines = {}
for i=0,15 do
local c = 2 ^ i
tPalette[c] = { parentTerminal.getPaletteColour( c ) }
end
local function createEmptyLines()
emptySpaceLine = (" "):rep(w)
for n=0,15 do
local nColor = 2^n
local sHex = tHex[nColor]
emptyColorLines[nColor] = sHex:rep(w)
end
end
local function recreateWindowArray()
createEmptyLines()
local emptyText = emptySpaceLine
local emptyFG = emptyColorLines[colors.white]
local emptyBG = emptyColorLines[colors.black]
for n=1,h do
cacheT[n] = sub(cacheT[n] == nil and emptyText or cacheT[n]..emptyText:sub(1,w-cacheT[n]:len()),1,w)
cacheFG[n] = sub(cacheFG[n] == nil and emptyFG or cacheFG[n]..emptyFG:sub(1,w-cacheFG[n]:len()),1,w)
cacheBG[n] = sub(cacheBG[n] == nil and emptyBG or cacheBG[n]..emptyBG:sub(1,w-cacheBG[n]:len()),1,w)
end
end
recreateWindowArray()
local function updateCursor()
if xCursor >= 1 and yCursor >= 1 and xCursor <= w and yCursor <= h then
--parentTerminal.setCursorPos(xCursor + x - 1, yCursor + y - 1)
else
--parentTerminal.setCursorPos(0, 0)
end
--parentTerminal.setTextColor(fgcolor)
end
local function internalBlit( sText, sTextColor, sBackgroundColor ) -- copy pasti strikes again (cc: window.lua)
local nStart = xCursor
local nEnd = nStart + #sText - 1
if yCursor >= 1 and yCursor <= h then
if nStart <= w and nEnd >= 1 then
-- Modify line
if nStart == 1 and nEnd == w then
cacheT[yCursor] = sText
cacheFG[yCursor] = sTextColor
cacheBG[yCursor] = sBackgroundColor
else
local sClippedText, sClippedTextColor, sClippedBackgroundColor
if nStart < 1 then
local nClipStart = 1 - nStart + 1
local nClipEnd = w - nStart + 1
sClippedText = sub( sText, nClipStart, nClipEnd )
sClippedTextColor = sub( sTextColor, nClipStart, nClipEnd )
sClippedBackgroundColor = sub( sBackgroundColor, nClipStart, nClipEnd )
elseif nEnd > w then
local nClipEnd = w - nStart + 1
sClippedText = sub( sText, 1, nClipEnd )
sClippedTextColor = sub( sTextColor, 1, nClipEnd )
sClippedBackgroundColor = sub( sBackgroundColor, 1, nClipEnd )
else
sClippedText = sText
sClippedTextColor = sTextColor
sClippedBackgroundColor = sBackgroundColor
end
local sOldText = cacheT[yCursor]
local sOldTextColor = cacheFG[yCursor]
local sOldBackgroundColor = cacheBG[yCursor]
local sNewText, sNewTextColor, sNewBackgroundColor
if nStart > 1 then
local nOldEnd = nStart - 1
sNewText = sub( sOldText, 1, nOldEnd ) .. sClippedText
sNewTextColor = sub( sOldTextColor, 1, nOldEnd ) .. sClippedTextColor
sNewBackgroundColor = sub( sOldBackgroundColor, 1, nOldEnd ) .. sClippedBackgroundColor
else
sNewText = sClippedText
sNewTextColor = sClippedTextColor
sNewBackgroundColor = sClippedBackgroundColor
end
if nEnd < w then
local nOldStart = nEnd + 1
sNewText = sNewText .. sub( sOldText, nOldStart, w )
sNewTextColor = sNewTextColor .. sub( sOldTextColor, nOldStart, w )
sNewBackgroundColor = sNewBackgroundColor .. sub( sOldBackgroundColor, nOldStart, w )
end
cacheT[yCursor] = sNewText
cacheFG[yCursor] = sNewTextColor
cacheBG[yCursor] = sNewBackgroundColor
end
end
xCursor = nEnd + 1
if(visible)then
updateCursor()
end
end
end
local function setText(_x,_y,text)
if(text~=nil)then
local gText = cacheT[_y]
if(gText~=nil)then
cacheT[_y] = sub(gText:sub(1,_x-1)..text..gText:sub(_x+(text:len()),w),1,w)
end
end
end
local function setBG(_x,_y,colorStr)
if(colorStr~=nil)then
local gBG = cacheBG[_y]
if(gBG~=nil)then
cacheBG[_y] = sub(gBG:sub(1,_x-1)..colorStr..gBG:sub(_x+(colorStr:len()),w),1,w)
end
end
end
local function setFG(_x,_y,colorStr)
if(colorStr~=nil)then
local gFG = cacheFG[_y]
if(gFG~=nil)then
cacheFG[_y] = sub(gFG:sub(1,_x-1)..colorStr..gFG:sub(_x+(colorStr:len()),w),1,w)
end
end
end
local setTextColor = function(color)
if type( color ) ~= "number" then
error( "bad argument #1 (expected number, got " .. type( color ) .. ")", 2 )
elseif tHex[color] == nil then
error( "Invalid color (got " .. color .. ")" , 2 )
end
fgcolor = color
end
local setBackgroundColor = function(color)
if type( color ) ~= "number" then
error( "bad argument #1 (expected number, got " .. type( color ) .. ")", 2 )
elseif tHex[color] == nil then
error( "Invalid color (got " .. color .. ")" , 2 )
end
bgcolor = color
end
local setPaletteColor = function( colour, r, g, b ) -- have to work on
if type( colour ) ~= "number" then error( "bad argument #1 (expected number, got " .. type( colour ) .. ")", 2 ) end
if tHex[colour] == nil then
error( "Invalid color (got " .. colour .. ")" , 2 )
end
local tCol
if type(r) == "number" and g == nil and b == nil then
tCol = { colours.rgb8( r ) }
tPalette[ colour ] = tCol
else
if type( r ) ~= "number" then error( "bad argument #2 (expected number, got " .. type( r ) .. ")", 2 ) end
if type( g ) ~= "number" then error( "bad argument #3 (expected number, got " .. type( g ) .. ")", 2 ) end
if type( b ) ~= "number" then error( "bad argument #4 (expected number, got " .. type( b ) .. ")", 2 ) end
tCol = tPalette[ colour ]
tCol[1] = r
tCol[2] = g
tCol[3] = b
end
end
local getPaletteColor = function( colour )
if type( colour ) ~= "number" then error( "bad argument #1 (expected number, got " .. type( colour ) .. ")", 2 ) end
if tHex[colour] == nil then
error( "Invalid color (got " .. colour .. ")" , 2 )
end
local tCol = tPalette[ colour ]
return tCol[1], tCol[2], tCol[3]
end
local basaltwindow = {
setCursorPos = function(_x, _y)
if type( _x ) ~= "number" then error( "bad argument #1 (expected number, got " .. type( _x ) .. ")", 2 ) end
if type( _y ) ~= "number" then error( "bad argument #2 (expected number, got " .. type( _y ) .. ")", 2 ) end
xCursor = math.floor(_x)
yCursor = math.floor(_y)
if(visible)then
updateCursor()
end
end;
getCursorPos = function()
return xCursor, yCursor
end;
setCursorBlink = function(blink)
if type( blink ) ~= "boolean" then error( "bad argument #1 (expected boolean, got " .. type( blink ) .. ")", 2 ) end
cursorBlink = blink
end;
getCursorBlink = function()
return cursorBlink
end;
getPaletteColor = getPaletteColor,
getPaletteColour = getPaletteColor,
setBackgroundColor = setBackgroundColor,
setBackgroundColour = setBackgroundColor,
setTextColor = setTextColor,
setTextColour = setTextColor,
setPaletteColor = setPaletteColor,
setPaletteColour = setPaletteColor,
getBackgroundColor = function()
return bgcolor
end;
getBackgroundColour = function()
return bgcolor
end;
getSize = function()
return w, h
end;
getTextColor = function()
return fgcolor
end;
getTextColour = function()
return fgcolor
end;
basalt_resize = function(_w, _h)
w, h = _w, _h
recreateWindowArray()
end;
basalt_reposition = function(_x, _y)
x, y = _x, _y
end;
basalt_setVisible = function(vis)
visible = vis
end;
drawBackgroundBox = function (_x, _y, _w, _h, bgCol)
for n = 1, _h do
setBG(_x, _y + (n-1), tHex[bgCol]:rep(_w))
end
end;
drawForegroundBox = function (_x, _y, _w, _h, fgCol)
for n = 1, _h do
setFG(_x, _y + (n-1), tHex[fgCol]:rep(_w))
end
end;
drawTextBox = function (_x, _y, _w, _h, symbol)
for n = 1, _h do
setText(_x, _y + (n-1), symbol:rep(_w))
end
end;
writeText = function (_x, _y, text, bgCol, fgCol)
bgCol = bgCol or bgcolor
fgCol = fgCol or fgcolor
setText(x, _y, text)
setBG(_x, _y, tHex[bgCol]:rep(text:len()))
setFG(_x, _y, tHex[fgCol]:rep(text:len()))
end;
basalt_update = function()
if(object.parent~=nil)then
for n=1, h do
object.parent:setText(x, y + (n-1), cacheT[n])
object.parent:setBG(x, y + (n-1), cacheBG[n])
object.parent:setFG(x, y + (n-1), cacheFG[n])
end
end
end;
scroll = function (offset)
if type( offset ) ~= "number" then error( "bad argument #1 (expected number, got " .. type( offset ) .. ")", 2 ) end
if offset ~= 0 then
local sEmptyText = emptySpaceLine
local sEmptyTextColor = emptyColorLines[ fgcolor ]
local sEmptyBackgroundColor = emptyColorLines[ bgcolor ]
for newY=1,h do
local y = newY + offset
if y >= 1 and y <= h then
cacheT[newY] = cacheT[y]
cacheBG[newY] = cacheBG[y]
cacheFG[newY] = cacheFG[y]
else
cacheT[newY] = sEmptyText
cacheFG[newY] = sEmptyTextColor
cacheBG[newY] = sEmptyBackgroundColor
end
end
end
if(visible)then
updateCursor()
end
end;
isColor = function()
return parentTerminal.isColor()
end;
isColour = function()
return parentTerminal.isColor()
end;
write = function(text)
text = tostring(text)
if(visible)then
internalBlit( text, tHex[fgcolor]:rep(text:len()), tHex[bgcolor]:rep(text:len()))
end
end;
clearLine = function()
if(visible)then
setText(1, yCursor, (" "):rep(w))
setBG(1, yCursor, tHex[bgcolor]:rep(w))
setFG(1, yCursor, tHex[fgcolor]:rep(w))
end
if(visible)then
updateCursor()
end
end;
clear = function()
for n=1,h do
setText(1, n, (" "):rep(w))
setBG(1, n, tHex[bgcolor]:rep(w))
setFG(1, n, tHex[fgcolor]:rep(w))
end
if(visible)then
updateCursor()
end
end;
blit = function(text, fgcol, bgcol)
if type( text ) ~= "string" then error( "bad argument #1 (expected string, got " .. type( text ) .. ")", 2 ) end
if type( fgcol ) ~= "string" then error( "bad argument #2 (expected string, got " .. type( fgcol ) .. ")", 2 ) end
if type( bgcol ) ~= "string" then error( "bad argument #3 (expected string, got " .. type( bgcol ) .. ")", 2 ) end
if #fgcol ~= #text or #bgcol ~= #text then
error( "Arguments must be the same length", 2 )
end
if(visible)then
--setText(xCursor, yCursor, text)
--setBG(xCursor, yCursor, bgcol)
--setFG(xCursor, yCursor, fgcol)
--xCursor = xCursor+text:len()
internalBlit(text, fgcol, bgcol)
end
end
}
return basaltwindow
end
base.w = 30
base.h = 12
local pWindow = basaltWindow(1, 1, base.w, base.h)
local curProcess
local paused = false
local queuedEvent = {}
object = {
getType = function(self)
return typ
end;
show = function(self)
base.show(self)
pWindow.setBackgroundColor(self.bgcolor)
pWindow.setTextColor(self.fgcolor)
pWindow.basalt_setVisible(true)
return self
end;
hide = function(self)
base.hide(self)
pWindow.basalt_setVisible(false)
return self
end;
setPosition = function(self, x, y, rel)
base.setPosition(self,x,y, rel)
pWindow.basalt_reposition(self:getAnchorPosition())
return self
end;
getBasaltWindow = function()
return pWindow
end;
getBasaltProcess = function()
return curProcess
end;
setSize = function(self, w, h)
base.setSize(self,w,h)
pWindow.basalt_resize(self.w, self.h)
return self
end;
getStatus = function(self)
if(curProcess~=nil)then
return curProcess:getStatus()
end
return "inactive"
end;
execute = function(self, path, ...)
curProcess = process:new(path, pWindow, ...)
pWindow.setBackgroundColor(colors.black)
pWindow.setTextColor(colors.white)
pWindow.clear()
pWindow.setCursorPos(1, 1)
curProcess:resume()
paused = false
return self
end;
stop = function(self)
if(curProcess~=nil)then
if not(curProcess:isDead())then
curProcess:resume("terminate")
if(curProcess:isDead())then
if(self.parent~=nil)then
self.parent:setCursor(false)
end
end
end
end
return self
end;
pause = function(self, p)
paused = p or (not paused)
if(curProcess~=nil)then
if not(curProcess:isDead())then
if not(paused)then
self:injectEvents(queuedEvent)
queuedEvent = {}
end
end
end
return self
end;
isPaused = function(self)
return paused
end;
injectEvent = function(self, event, p1, p2, p3, p4, ign)
if(curProcess~=nil)then
if not(curProcess:isDead())then
if (paused==false)or(ign)then
curProcess:resume(event,p1,p2,p3,p4)
else
table.insert(queuedEvent, {event=event, args = {p1,p2,p3,p4}})
end
end
end
return self
end;
getQueuedEvents = function(self)
return queuedEvent
end;
updateQueuedEvents = function(self, events)
queuedEvent = events or queuedEvent
return self
end;
injectEvents = function(self, events)
if(curProcess~=nil)then
if not(curProcess:isDead())then
for _,v in pairs(events)do
curProcess:resume(v.event, table.unpack(v.args))
end
end
end
return self
end;
mouseClickHandler = function(self, event, button, x, y)
if(base.mouseClickHandler(self,event,button,x,y))then
if(curProcess==nil)then return false end
if not(curProcess:isDead())then
if not(paused)then
local absX,absY = self:getAbsolutePosition(self:getAnchorPosition(nil,nil,true))
curProcess:resume(event, button, x-absX+1, y-absY+1)
end
end
return true
end
end;
keyHandler = function(self, event, key)
base.keyHandler(self, event, key)
if(self:isFocused())then
if(curProcess==nil)then return false end
if not(curProcess:isDead())then
if not(paused)then
if(self.draw)then
curProcess:resume(event, key)
end
end
end
end
end;
getFocusHandler = function(self)
base.getFocusHandler(self)
if(curProcess~=nil)then
if not(curProcess:isDead())then
if not(paused)then
if(self.parent~=nil)then
local xCur, yCur = pWindow.getCursorPos()
local obx, oby = self:getAnchorPosition()
if(self.parent~=nil)then
if(obx + xCur - 1 >= 1 and obx + xCur - 1 <= obx + self.w - 1 and yCur + oby - 1 >= 1 and yCur + oby - 1 <= oby + self.h - 1)then
self.parent:setCursor(pWindow.getCursorBlink(), obx + xCur - 1, yCur + oby - 1, pWindow.getTextColor())
end
end
end
end
end
end
end;
loseFocusHandler = function(self)
base.loseFocusHandler(self)
if(curProcess~=nil)then
if not(curProcess:isDead())then
if(self.parent~=nil)then
self.parent:setCursor(false)
end
end
end
end;
eventHandler = function(self, event, p1, p2, p3, p4)
if(curProcess==nil)then return end
if not(curProcess:isDead())then
if not(paused)then
if(event~="mouse_click")and(event~="mouse_up")and(event~="mouse_scroll")and(event~="mouse_drag")and(event~="key_up")and(event~="key")and(event~="char")and(event~="terminate")then
curProcess:resume(event,p1,p2,p3,p4)
end
if(self:isFocused())then
local obx, oby = self:getAnchorPosition()
local xCur, yCur = pWindow.getCursorPos()
if(self.parent~=nil)then
if(obx + xCur - 1 >= 1 and obx + xCur - 1 <= obx + self.w - 1 and yCur + oby - 1 >= 1 and yCur + oby - 1 <= oby + self.h - 1)then
self.parent:setCursor(pWindow.getCursorBlink(), obx + xCur - 1, yCur + oby - 1, pWindow.getTextColor())
end
end
if(event=="terminate")and(self:isFocused())then
self:stop()
end
end
else
if(event~="mouse_click")and(event~="mouse_up")and(event~="mouse_scroll")and(event~="mouse_drag")and(event~="key_up")and(event~="key")and(event~="char")and(event~="terminate")then
table.insert(queuedEvent, {event=event, args = {p1,p2,p3,p4}})
end
end
end
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
pWindow.basalt_reposition(obx,oby)
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
pWindow.basalt_update()
end
end
end;
}
return setmetatable(object, base)
end
local function Label(name) -- Label
local base = Object(name)
local typ = "Label"
base:setZIndex(3)
local autoWidth = true
base:setValue("")
local object = {
getType = function(self)
return typ
end;
setText = function(self,text)
text = tostring(text)
base:setValue(text)
if(autoWidth)then
self.w = text:len()
end
return self
end;
setSize = function(self,w,h)
self.w, self.h = w, h
autoWidth = false
return self
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
self.parent:writeText(obx, oby, self:getValue(), self.bgcolor, self.fgcolor)
end
end
end;
}
return setmetatable(object, base)
end
local function Pane(name) -- Pane
local base = Object(name)
local typ = "Pane"
local object = {
getType = function(self)
return typ
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
self.parent:drawForegroundBox(obx, oby, self.w, self.h, self.fgcolor)
end
end
end;
}
return setmetatable(object, base)
end
local function Image(name) -- Pane
local base = Object(name)
local typ = "Image"
base:setZIndex(2)
local image
local function shrink()
end
local object = {
getType = function(self)
return typ
end;
loadImage = function(self, path)
image = paintutils.loadImage(path)
return self
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
if(image~=nil)then
local obx, oby = self:getAnchorPosition()
for yPos=1,math.min(#image, self.h) do
local line = image[yPos]
for xPos=1,math.min(#line, self.w) do
if line[xPos] > 0 then
self.parent:drawBackgroundBox(obx + xPos - 1, oby + yPos - 1, 1, 1, line[xPos])
end
end
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Checkbox(name) -- Checkbox
local base = Object(name)
local typ = "Checkbox"
base:setZIndex(5)
base:setValue(false)
base.w = 1
base.h = 1
base.bgcolor = theme.CheckboxBG
base.fgcolor = theme.CheckboxFG
local object = {
symbol = "\42",
getType = function(self)
return typ
end;
mouseClickHandler = function(self, event, button, x, y)
if(base.mouseClickHandler(self, event, button, x, y))then
if(event == "mouse_click")and(button == 1)then
if(self:getValue()~=true)and(self:getValue()~=false)then
self:setValue(false)
else
self:setValue(not self:getValue())
end
end
return true
end
return false
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
local verticalAlign = getTextVerticalAlign(self.h, "center")
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
for n=1,self.h do
if(n==verticalAlign)then
if(self:getValue()==true)then
self.parent:writeText(obx, oby+(n-1), getTextHorizontalAlign(self.symbol, self.w, "center"), self.bgcolor, self.fgcolor)
else
self.parent:writeText(obx, oby+(n-1), getTextHorizontalAlign(" ", self.w, "center"), self.bgcolor, self.fgcolor)
end
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Input(name) -- Input
local base = Object(name)
local typ = "Input"
local inputType = "text"
local inputLimit = 0
base:setZIndex(5)
base:setValue("")
base.w = 10
base.h = 1
base.bgcolor = theme.InputBG
base.fgcolor = theme.InputFG
local textX = 1
local wIndex = 1
local defaultText = ""
local defaultBGCol
local defaultFGCol
local showingText = defaultText
local internalValueChange = false
local object = {
getType = function(self)
return typ
end;
setInputType = function(self, iType)
if(iType=="password")or(iType=="number")or(iType=="text")then
inputType = iType
end
return self
end;
setDefaultText = function(self, text, fCol, bCol)
defaultText = text
defaultBGCol = bCol or defaultBGCol
defaultFGCol = fCol or defaultFGCol
if(self:isFocused())then
showingText = ""
else
showingText = defaultText
end
return self
end;
getInputType = function(self)
return inputType
end;
setValue = function(self, val)
base.setValue(self, tostring(val))
if not(internalValueChange)then
textX = tostring(val):len()+1
end
return self
end;
getValue = function(self)
local val = base.getValue(self)
return inputType == "number" and tonumber(val)or val
end;
setInputLimit = function(self, limit)
inputLimit = tonumber(limit) or inputLimit
return self
end;
getInputLimit = function(self)
return inputLimit
end;
getFocusHandler = function(self)
base.getFocusHandler(self)
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
showingText = ""
if(self.parent~=nil)then
self.parent:setCursor(true, obx+textX-wIndex, oby, self.fgcolor)
end
end
end;
loseFocusHandler = function(self)
base.loseFocusHandler(self)
if(self.parent~=nil)then
self.parent:setCursor(false)
showingText = defaultText
end
end;
keyHandler = function(self, event, key)
if(base.keyHandler(self, event, key))then
internalValueChange = true
if(event=="key")then
if(key==keys.backspace)then -- on backspace
local text = tostring(base.getValue())
if(textX>1)then
self:setValue(text:sub(1,textX-2)..text:sub(textX,text:len()))
if(textX>1)then textX = textX-1 end
if(wIndex>1)then
if(textX<wIndex)then
wIndex = wIndex-1
end
end
end
end
if(key==keys.enter)then -- on enter
if(self.parent~=nil)then
--self.parent:removeFocusedObject(self)
end
end
if(key==keys.right)then -- right arrow
local tLength = tostring(base.getValue()):len()
textX = textX+1
if(textX > tLength)then
textX = tLength+1
end
if(textX<1)then textX = 1 end
if(textX<wIndex)or(textX>=self.w+wIndex)then
wIndex = textX-self.w+1
end
if(wIndex<1)then wIndex = 1 end
end
if(key==keys.left)then -- left arrow
textX = textX-1
if(textX>=1)then
if(textX<wIndex)or(textX>=self.w+wIndex)then
wIndex = textX
end
end
if(textX<1)then textX = 1 end
if(wIndex<1)then wIndex = 1 end
end
end
if(event=="char")then
local text = base.getValue()
if(text:len() < inputLimit or inputLimit <= 0)then
if(inputType=="number")then
local cache = text
if (key==".")or(tonumber(key)~=nil)then
self:setValue(text:sub(1,textX-1)..key..text:sub(textX,text:len()))
textX = textX + 1
end
if(tonumber(base.getValue())==nil)then
self:setValue(cache)
end
else
self:setValue(text:sub(1,textX-1)..key..text:sub(textX,text:len()))
textX = textX + 1
end
if(textX>=self.w+wIndex)then wIndex = wIndex+1 end
end
end
local obx,oby = self:getAnchorPosition()
local val = tostring(base.getValue())
local cursorX = (textX <= val:len() and textX-1 or val:len())-(wIndex-1)
if(cursorX>self.x+self.w-1)then cursorX = self.x+self.w-1 end
if(self.parent~=nil)then
self.parent:setCursor(true, obx+cursorX, oby, self.fgcolor)
end
internalValueChange = false
end
end;
mouseClickHandler = function(self, event, button, x, y)
if(base.mouseClickHandler(self, event, button, x, y))then
if(event == "mouse_click")and(button == 1)then
end
return true
end
return false
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
local verticalAlign = getTextVerticalAlign(self.h, "center")
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
for n=1,self.h do
if(n==verticalAlign)then
local val = tostring(base.getValue())
local bCol = self.bgcolor
local fCol = self.fgcolor
local text
if(val:len()<=0)then text = showingText bCol = defaultBGCol or bCol fCol = defaultFGCol or fCol end
text = showingText
if(val~="")then
text = val
end
text = text:sub(wIndex, self.w+wIndex-1)
local space = self.w-text:len()
if(space<0)then space = 0 end
if(inputType=="password")and(val~="")then
text = string.rep("*", text:len())
end
text = text..string.rep(" ", space)
self.parent:writeText(obx, oby+(n-1), text, bCol, fCol)
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Textfield(name)
local base = Object(name)
local typ = "Textfield"
local hIndex, wIndex, textX, textY = 1, 1, 1, 1
local lines = {""}
local selection = {}
local selectionColor = colors.lightBlue
base.w = 20
base.h = 8
base.bgcolor = theme.textfieldBG
base.fgcolor = theme.textfieldFG
base:setZIndex(5)
local object = {
getType = function(self)
return typ
end;
getLines = function (self)
return lines
end;
getLine = function (self, index)
return lines[index] or ""
end;
editLine = function (self, index, text)
lines[index] = text or lines[index]
return self
end;
addLine = function (self, text, index)
if(index~=nil)then
table.insert(lines, index, text)
else
table.insert(lines, text)
end
return self
end;
removeLine = function(self, index)
table.remove(lines, index or #lines)
if(#lines <= 0)then
table.insert(lines, "")
end
return self
end;
getTextCursor = function (self)
return textX, textY
end;
getFocusHandler = function(self)
base.getFocusHandler(self)
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
if(self.parent~=nil)then
self.parent:setCursor(true, obx+textX-wIndex, oby+textY-hIndex, self.fgcolor)
end
end
end;
loseFocusHandler = function(self)
base.loseFocusHandler(self)
if(self.parent~=nil)then
self.parent:setCursor(false)
end
end;
keyHandler = function(self, event, key)
if(base.keyHandler(self, event, key))then
local obx,oby = self:getAnchorPosition()
if(event=="key")then
if(key==keys.backspace)then -- on backspace
if(lines[textY]=="")then
if(textY>1)then
table.remove(lines,textY)
textX = lines[textY-1]:len()+1
wIndex = textX-self.w+1
if(wIndex<1)then wIndex = 1 end
textY = textY-1
end
elseif(textX<=1)then
if(textY>1)then
textX = lines[textY-1]:len()+1
wIndex = textX-self.w+1
if(wIndex<1)then wIndex = 1 end
lines[textY-1] = lines[textY-1]..lines[textY]
table.remove(lines,textY)
textY = textY-1
end
else
lines[textY] = lines[textY]:sub(1,textX-2)..lines[textY]:sub(textX,lines[textY]:len())
if(textX>1)then textX = textX-1 end
if(wIndex>1)then
if(textX<wIndex)then
wIndex = wIndex-1
end
end
end
if(textY<hIndex)then
hIndex = hIndex-1
end
self:setValue("")
end
if(key==keys.enter)then -- on enter
table.insert(lines,textY+1,lines[textY]:sub(textX,lines[textY]:len()))
lines[textY] = lines[textY]:sub(1,textX-1)
textY = textY+1
textX = 1
wIndex = 1
if(textY-hIndex>=self.h)then
hIndex = hIndex+1
end
self:setValue("")
end
if(key==keys.up)then -- arrow up
if(textY>1)then
textY = textY-1
if(textX>lines[textY]:len()+1)then textX = lines[textY]:len()+1 end
if(wIndex>1)then
if(textX<wIndex)then
wIndex = textX-self.w+1
if(wIndex<1)then wIndex = 1 end
end
end
if(hIndex>1)then
if(textY<hIndex)then
hIndex = hIndex-1
end
end
end
end
if(key==keys.down)then -- arrow down
if(textY<#lines)then
textY = textY+1
if(textX>lines[textY]:len()+1)then textX = lines[textY]:len()+1 end
if(textY>=hIndex+self.h)then
hIndex = hIndex+1
end
end
end
if(key==keys.right)then -- arrow right
textX = textX+1
if(textY<#lines)then
if(textX>lines[textY]:len()+1)then
textX = 1
textY = textY+1
end
elseif(textX > lines[textY]:len())then
textX = lines[textY]:len()+1
end
if(textX<1)then textX = 1 end
if(textX<wIndex)or(textX>=self.w+wIndex)then
wIndex = textX-self.w+1
end
if(wIndex<1)then wIndex = 1 end
end
if(key==keys.left)then -- arrow left
textX = textX-1
if(textX>=1)then
if(textX<wIndex)or(textX>=self.w+wIndex)then
wIndex = textX
end
end
if(textY>1)then
if(textX<1)then
textY = textY-1
textX = lines[textY]:len()+1
wIndex = textX-self.w+1
end
end
if(textX<1)then textX = 1 end
if(wIndex<1)then wIndex = 1 end
end
end
if(event=="char")then
lines[textY] = lines[textY]:sub(1,textX-1)..key..lines[textY]:sub(textX,lines[textY]:len())
textX = textX+1
if(textX>=self.w+wIndex)then wIndex = wIndex+1 end
self:setValue("")
end
local cursorX = (textX <= lines[textY]:len() and textX-1 or lines[textY]:len())-(wIndex-1)
if(cursorX>self.x+self.w-1)then cursorX = self.x+self.w-1 end
local cursorY = (textY-hIndex < self.h and textY-hIndex or textY-hIndex-1)
if(cursorX<1)then cursorX = 0 end
self.parent:setCursor(true, obx+cursorX, oby+cursorY, self.fgcolor)
return true
end
end;
mouseClickHandler = function(self, event, button, x, y)
if(base.mouseClickHandler(self, event, button, x, y))then
local obx,oby = self:getAbsolutePosition(self:getAnchorPosition())
local anchx,anchy = self:getAnchorPosition()
if(event=="mouse_click")then
if(lines[y-oby+hIndex]~=nil)then
textX = x-obx+wIndex
textY = y-oby+hIndex
if(textX>lines[textY]:len())then
textX = lines[textY]:len()+1
end
if(textX<wIndex)then
wIndex = textX-1
if(wIndex<1)then wIndex = 1 end
end
if(self.parent~=nil)then
self.parent:setCursor(true, anchx+textX-wIndex, anchy+textY-hIndex)
end
end
end
if(event=="mouse_scroll")then
hIndex = hIndex+button
if(hIndex>#lines-(self.h-1))then hIndex = #lines-(self.h-1) end
if(hIndex<1)then hIndex = 1 end
if(self.parent~=nil)then
if(obx+textX-wIndex>=obx and obx+textX-wIndex <= obx+self.w)and(oby+textY-hIndex >= oby and oby+textY-hIndex <= oby+self.h)then
self.parent:setCursor(true, anchx+textX-wIndex, anchy+textY-hIndex)
else
self.parent:setCursor(false)
end
end
end
self:setVisualChanged()
return true
end
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
self.parent:drawForegroundBox(obx, oby, self.w, self.h, self.fgcolor)
for n=1, self.h do
local text = ""
if(lines[n+hIndex-1]~=nil)then
text = lines[n+hIndex-1]
end
text = text:sub(wIndex, self.w+wIndex-1)
local space = self.w-text:len()
if(space<0)then space = 0 end
text = text..string.rep(" ", space)
self.parent:setText(obx, oby+n-1, text)
end
end
end
end;
}
return setmetatable(object, base)
end
local function List(name)
local base = Object(name)
local typ = "List"
base.w = 16
base.h = 6
base.bgcolor = theme.listBG
base.fgcolor = theme.listFG
base:setZIndex(5)
local list = {}
local itemSelectedBG = theme.selectionBG
local itemSelectedFG = theme.selectionFG
local selectionColorActive = true
local align = "left"
local yOffset = 0
local scrollable = true
local object = {
getType = function(self)
return typ
end;
addItem = function(self, text, bgCol, fgCol, ...)
table.insert(list, {text=text, bgCol = bgCol or self.bgcolor, fgCol = fgCol or self.fgcolor, args={...}})
if(#list==1)then
self:setValue(list[1])
end
return self
end;
setIndexOffset = function(self, yOff)
yOffset = yOff
return self
end;
getIndexOffset = function(self)
return yOffset
end;
removeItem = function(self, index)
table.remove(list, index)
return self
end;
getItem = function(self, index)
return list[index]
end;
getItemIndex = function(self)
local selected = self:getValue()
for k,v in pairs(list)do
if(v==selected)then
return k
end
end
end;
clear = function(self)
list = {}
self:setValue({})
return self
end;
getItemCount = function(self)
return #list
end;
editItem = function(self, index, text, bgCol, fgCol, ...)
table.remove(list, index)
table.insert(list, index, {text=text, bgCol = bgCol or self.bgcolor, fgCol = fgCol or self.fgcolor, args={...}})
return self
end;
selectItem = function(self, index)
self:setValue(list[index] or {})
return self
end;
setSelectedItem = function(self, bgCol, fgCol, active)
itemSelectedBG = bgCol or self.bgcolor
itemSelectedFG = fgCol or self.fgcolor
selectionColorActive = active
return self
end;
setScrollable = function(self, scroll)
scrollable = scroll
return self
end;
mouseClickHandler = function(self, event, button, x, y)
local obx,oby = self:getAbsolutePosition(self:getAnchorPosition())
if(obx<=x)and(obx+self.w>x)and(oby<=y)and(oby+self.h>y)and(self:isVisible())then
if(event=="mouse_click")or(event=="mouse_drag")then -- remove mouse_drag if i want to make objects moveable uwuwuwuw
if(button==1)then
if(#list>0)then
for n=1,self.h do
if(list[n+yOffset]~=nil)then
if(obx<=x)and(obx+self.w>x)and(oby+n-1==y)then
self:setValue(list[n+yOffset])
self:getEventSystem():sendEvent("mouse_click", self, "mouse_click", 0, x, y, list[n+yOffset])
end
end
end
end
end
end
if(event=="mouse_scroll")and(scrollable)then
yOffset = yOffset+button
if(yOffset<0)then yOffset = 0 end
if(button>=1)then
if(#list>self.h)then
if(yOffset>#list-self.h)then
yOffset = #list-self.h
end
if(yOffset>=#list)then yOffset = #list-1 end
else
yOffset = yOffset-1
end
end
end
self:setVisualChanged()
return true
end
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
for n=1, self.h do
if(list[n+yOffset]~=nil)then
if(list[n+yOffset]==self:getValue())then
if(selectionColorActive)then
self.parent:writeText(obx, oby+n-1, getTextHorizontalAlign(list[n+yOffset].text, self.w, align), itemSelectedBG, itemSelectedFG)
else
self.parent:writeText(obx, oby+n-1, getTextHorizontalAlign(list[n+yOffset].text, self.w, align), list[n+yOffset].bgCol, list[n+yOffset].fgCol)
end
else
self.parent:writeText(obx, oby+n-1, getTextHorizontalAlign(list[n+yOffset].text, self.w, align), list[n+yOffset].bgCol,list[n+yOffset].fgCol)
end
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Menubar(name)
local base = Object(name)
local typ = "Menubar"
base.w = 30
base.h = 1
base.bgcolor = colors.gray
base.fgcolor = colors.lightGray
base:setZIndex(5)
local list = {}
local itemSelectedBG = theme.selectionBG
local itemSelectedFG = theme.selectionFG
local selectionColorActive = true
local align = "left"
local itemOffset = 0
local space = 2
local scrollable = false
local function maxScroll()
local mScroll = 0
local xPos = 1
for n=1,#list do
if(xPos + list[n].text:len() + space*2 > base.w)then
mScroll = mScroll + 1
end
xPos = xPos+list[n].text:len()+space*2
end
return mScroll
end
local object = {
getType = function(self)
return typ
end;
addItem = function(self, text, bgCol, fgCol, ...)
table.insert(list, {text=text, bgCol = bgCol or self.bgcolor, fgCol = fgCol or self.fgcolor, args={...}})
if(#list==1)then
self:setValue(list[1])
end
return self
end;
getItemIndex = function(self)
local selected = self:getValue()
for k,v in pairs(list)do
if(v==selected)then
return k
end
end
end;
clear = function(self)
list = {}
self:setValue({})
return self
end;
setSpace = function(self, _space)
space = _space or space
return self
end;
setButtonOffset = function(self, offset)
itemOffset = offset or 0
if(itemOffset<0)then
itemOffset = 0
end
local mScroll = maxScroll()
if(itemOffset>mScroll)then
itemOffset = mScroll
end
return self
end;
setScrollable = function(self, scroll)
scrollable = scroll
return self
end;
removeItem = function(self, index)
table.remove(list, index)
return self
end;
getItem = function(self, index)
return list[index]
end;
getItemCount = function(self)
return #list
end;
editItem = function(self, index, text, bgCol, fgCol, ...)
table.remove(list, index)
table.insert(list, index, {text=text, bgCol = bgCol or self.bgcolor, fgCol = fgCol or self.fgcolor, args={...}})
return self
end;
selectItem = function(self, index)
self:setValue(list[index] or {})
return self
end;
setSelectedItem = function(self, bgCol, fgCol, active)
itemSelectedBG = bgCol or self.bgcolor
itemSelectedFG = fgCol or self.fgcolor
selectionColorActive = active
return self
end;
mouseClickHandler = function(self, event, button, x, y)
local objX,objY = self:getAbsolutePosition(self:getAnchorPosition())
if(objX<=x)and(objX+self.w>x)and(objY<=y)and(objY+self.h>y)and(self:isVisible())then
if(self.parent~=nil)then self.parent:setFocusedObject(self) end
if(event=="mouse_click")then
local xPos = 1
for n=1+itemOffset,#list do
if(list[n]~=nil)then
if(xPos + list[n].text:len() + space*2 <= self.w)then
if(objX + (xPos-1)<= x)and(objX + (xPos-1) + list[n].text:len() + space*2 > x)and(objY == y)then
self:setValue(list[n])
self:getEventSystem():sendEvent("mouse_click", self, "mouse_click", 0, x, y, list[n])
end
xPos = xPos+list[n].text:len()+space*2
else
break
end
end
end
end
if(event=="mouse_scroll")and(scrollable)then
itemOffset = itemOffset+button
if(itemOffset<0)then
itemOffset = 0
end
local mScroll = maxScroll()
if(itemOffset>mScroll)then
itemOffset = mScroll
end
end
return true
end
return false
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
local xPos = 1
for n=1+itemOffset,#list do
if(list[n]~=nil)then
if(xPos + list[n].text:len() + space*2 <= self.w)then
if(list[n]==self:getValue())then
self.parent:writeText(obx + (xPos-1), oby, getTextHorizontalAlign((" "):rep(space)..list[n].text..(" "):rep(space), list[n].text:len()+space*2, align), itemSelectedBG or list[n].bgCol, itemSelectedFG or list[n].fgCol)
else
self.parent:writeText(obx + (xPos-1), oby, getTextHorizontalAlign((" "):rep(space)..list[n].text..(" "):rep(space), list[n].text:len()+space*2, align), list[n].bgCol, list[n].fgCol)
end
xPos = xPos+list[n].text:len()+space*2
else
break
end
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Dropdown(name)
local base = Object(name)
local typ = "Dropdown"
base.w = 12
base.h = 1
base.bgcolor = theme.dropdownBG
base.fgcolor = theme.dropdownFG
base:setZIndex(6)
local list = {}
local itemSelectedBG = theme.selectionBG
local itemSelectedFG = theme.selectionFG
local selectionColorActive = true
local align = "left"
local yOffset = 0
local dropdownW = 16
local dropdownH = 6
local closedSymbol = "\16"
local openedSymbol = "\31"
local state = 1
local object = {
getType = function(self)
return typ
end;
setIndexOffset = function(self, yOff)
yOffset = yOff
return self
end;
getIndexOffset = function(self)
return yOffset
end;
addItem = function(self, text, bgCol, fgCol, ...)
table.insert(list, {text=text, bgCol = bgCol or self.bgcolor, fgCol = fgCol or self.fgcolor, args={...}})
return self
end;
removeItem = function(self, index)
table.remove(list, index)
return self
end;
getItem = function(self, index)
return list[index]
end;
getItemIndex = function(self)
local selected = self:getValue()
for k,v in pairs(list)do
if(v==selected)then
return k
end
end
end;
clear = function(self)
list = {}
self:setValue({})
return self
end;
getItemCount = function(self)
return #list
end;
editItem = function(self, index, text, bgCol, fgCol, ...)
table.remove(list, index)
table.insert(list, index, {text=text, bgCol = bgCol or self.bgcolor, fgCol = fgCol or self.fgcolor, args={...}})
return self
end;
selectItem = function(self, index)
self:setValue(list[index] or {})
return self
end;
setSelectedItem = function(self, bgCol, fgCol, active)
itemSelectedBG = bgCol or self.bgcolor
itemSelectedFG = fgCol or self.fgcolor
selectionColorActive = active
return self
end;
setDropdownSize = function(self, w, h)
dropdownW, dropdownH = w, h
return self
end;
mouseClickHandler = function(self, event, button, x, y)
if(state == 2)then
local obx,oby = self:getAbsolutePosition(self:getAnchorPosition())
if(event=="mouse_click")then -- remove mouse_drag if i want to make objects moveable uwuwuwuw
if(button==1)then
if(#list>0)then
for n=1,dropdownH do
if(list[n+yOffset]~=nil)then
if(obx<=x)and(obx+dropdownW>x)and(oby+n==y)then
self:setValue(list[n+yOffset])
return true
end
end
end
end
end
end
if(event=="mouse_scroll")then
yOffset = yOffset+button
if(yOffset<0)then yOffset = 0 end
if(button==1)then
if(#list>dropdownH)then
if(yOffset>#list-dropdownH)then
yOffset = #list-dropdownH
end
else
yOffset = list-1
end
end
return true
end
self:setVisualChanged()
end
if(base.mouseClickHandler(self, event, button, x, y))then
state = 2
else
state = 1
end
end;
draw = function(self)
if(base.draw(self))then
local obx, oby = self:getAnchorPosition()
if(self.parent~=nil)then
self.parent:drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
if(#list>=1)then
if(self:getValue()~=nil)then
if(self:getValue().text~=nil)then
if(state==1)then
self.parent:writeText(obx, oby, getTextHorizontalAlign(self:getValue().text, self.w, align):sub(1,self.w-1)..closedSymbol, self.bgcolor, self.fgcolor)
else
self.parent:writeText(obx, oby, getTextHorizontalAlign(self:getValue().text, self.w, align):sub(1,self.w-1)..openedSymbol, self.bgcolor, self.fgcolor)
end
end
end
if(state==2)then
for n=1, dropdownH do
if(list[n+yOffset]~=nil)then
if(list[n+yOffset]==self:getValue())then
if(selectionColorActive)then
self.parent:writeText(obx, oby+n, getTextHorizontalAlign(list[n+yOffset].text, dropdownW, align), itemSelectedBG, itemSelectedFG)
else
self.parent:writeText(obx, oby+n, getTextHorizontalAlign(list[n+yOffset].text, dropdownW, align), list[n+yOffset].bgCol, list[n+yOffset].fgCol)
end
else
self.parent:writeText(obx, oby+n, getTextHorizontalAlign(list[n+yOffset].text, dropdownW, align), list[n+yOffset].bgCol,list[n+yOffset].fgCol)
end
end
end
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Radio(name)
local base = Object(name)
local typ = "Radio"
base.w = 8
base.bgcolor = theme.listBG
base.fgcolor = theme.listFG
base:setZIndex(5)
local list = {}
local itemSelectedBG = theme.selectionBG
local itemSelectedFG = theme.selectionFG
local boxSelectedBG = base.bgcolor
local boxSelectedFG = base.fgcolor
local selectionColorActive = true
local symbol = "\7"
local align = "left"
local object = {
getType = function(self)
return typ
end;
addItem = function(self,text, x, y, bgCol, fgCol, ...)
table.insert(list, {x=x or 1, y=y or 1, text=text, bgCol = bgCol or self.bgcolor, fgCol = fgCol or self.fgcolor, args={...}})
if(#list==1)then
self:setValue(list[1])
end
return self
end;
removeItem = function(self, index)
table.remove(list, index)
return self
end;
getItem = function(self, index)
return list[index]
end;
getItemIndex = function(self)
local selected = self:getValue()
for k,v in pairs(list)do
if(v==selected)then
return k
end
end
end;
clear = function(self)
list = {}
self:setValue({})
return self
end;
getItemCount = function(self)
return #list
end;
editItem = function(self, index, text, x, y, bgCol, fgCol, ...)
table.remove(list, index)
table.insert(list, index, {x=x or 1, y=y or 1, text=text, bgCol = bgCol or self.bgcolor, fgCol = fgCol or self.fgcolor, args={...}})
return self
end;
selectItem = function(self, index)
self:setValue(list[index] or {})
return self
end;
setSelectedItem = function(self, bgCol, fgCol, boxBG, boxFG, active)
itemSelectedBG = bgCol or itemSelectedBG
itemSelectedFG = fgCol or itemSelectedFG
boxSelectedBG = boxBG or boxSelectedBG
boxSelectedFG = boxFG or boxSelectedFG
selectionColorActive = active
return self
end;
mouseClickHandler = function(self, event, button, x, y)
local obx,oby = self:getAbsolutePosition(self:getAnchorPosition())
if(event=="mouse_click")then -- remove mouse_drag if i want to make objects moveable uwuwuwuw
if(button==1)then
if(#list>0)then
for _,v in pairs(list)do
if(obx+v.x-1<=x)and(obx+v.x-1+v.text:len()+2>=x)and(oby+v.y-1==y)then
self:setValue(v)
if(self.parent~=nil)then self.parent:setFocusedObject(self) end
--eventSystem:sendEvent(event, self, event, button, x, y)
self:setVisualChanged()
return true
end
end
end
end
end
return false
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
for _,v in pairs(list)do
if(v==self:getValue())then
if(align=="left")then
self.parent:writeText(v.x+obx-1,v.y+oby-1,symbol,boxSelectedBG,boxSelectedFG)
self.parent:writeText(v.x+2+obx-1,v.y+oby-1,v.text,itemSelectedBG,itemSelectedFG)
end
else
self.parent:drawBackgroundBox(v.x+obx-1, v.y+oby-1,1,1,self.bgcolor)
self.parent:writeText(v.x+2+obx-1,v.y+oby-1,v.text,v.bgCol,v.fgCol)
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Timer(name)
local typ = "Timer"
local timer = 0
local savedRepeats = 0
local repeats = 0
local timerObj
local eventSystem = BasaltEvents()
local object = {
name = name,
getType = function(self)
return typ
end;
getZIndex = function(self)
return 1
end;
getName = function(self)
return self.name
end;
setTime = function(self, _timer, _repeats)
timer = _timer or 0
savedRepeats = _repeats or 1
return self
end;
start = function(self)
repeats = savedRepeats
timerObj = os.startTimer(timer)
return self
end;
cancel = function(self)
if(timerObj~=nil)then
os.cancelTimer(timerObj)
end
return self
end;
onCall = function(self, func)
eventSystem:registerEvent("timed_event", func)
return self
end;
eventHandler = function(self, event, tObj)
if(event=="timer")and(tObj==timerObj)then
eventSystem:sendEvent("timed_event",self)
if(repeats>=1)then
repeats = repeats - 1
if(repeats >= 1)then
timerObj = os.startTimer(timer)
end
elseif(repeats == -1)then
timerObj = os.startTimer(timer)
end
end
end;
}
object.__index = object
return object
end
local function Thread(name)
local object
local typ = "Thread"
local func
local cRoutine
local isActive = false
object = {
name = name,
getType = function(self)
return typ
end;
getZIndex = function(self)
return 1
end;
getName = function(self)
return self.name
end;
start = function(self, f)
if(f==nil)then error("function is nil") end
func = f
cRoutine = coroutine.create(func)
isActive = true
local ok, result = coroutine.resume(cRoutine)
if not(ok)then
if(result~="Terminated")then
error("Threaderror - "..result)
end
end
return self
end;
getStatus = function(self, f)
if(cRoutine~=nil)then
return coroutine.status(cRoutine)
end
return nil
end;
stop = function(self, f)
isActive = false
return self
end;
eventHandler = function(self, event, p1,p2,p3)
if(isActive)then
if(coroutine.status(cRoutine)~="dead")then
local ok, result = coroutine.resume(cRoutine, event,p1,p2,p3)
if not(ok)then
if(result~="Terminated")then
error("Threaderror - "..result)
end
end
else
isActive = false
end
end
end;
}
object.__index = object
return object
end
local function Animation(name)
local object = {}
local typ = "Animation"
local timerObj
local animations = {}
local index = 1
local nextWaitTimer = 0
local lastFunc
local function onPlay()
if(animations[index]~=nil)then
animations[index].f(object, index)
end
index = index+1
if(animations[index]~=nil)then
if(animations[index].t>0)then
timerObj = os.startTimer(animations[index].t)
else
onPlay()
end
end
end
object = {
name = name,
getType = function(self)
return typ
end;
getZIndex = function(self)
return 1
end;
getName = function(self)
return self.name
end;
add = function(self, func, wait)
lastFunc = func
table.insert(animations, {f=func,t = wait or nextWaitTimer})
return self
end;
wait = function(self, wait)
nextWaitTimer = wait
return self
end;
rep = function(self, reps)
for x=1,reps do
table.insert(animations, {f=lastFunc,t = nextWaitTimer})
end
return self
end;
clear = function(self)
animations = {}
lastFunc = nil
nextWaitTimer = 0
index = 1
return self
end;
play = function(self)
index = 1
if(animations[index]~=nil)then
if(animations[index].t>0)then
timerObj = os.startTimer(animations[index].t)
else
onPlay()
end
end
return self
end;
cancel = function(self)
os.cancelTimer(timerObj)
return self
end;
eventHandler = function(self, event, tObj)
if(event=="timer")and(tObj==timerObj)then
if(animations[index]~=nil)then
onPlay()
end
end
end;
}
object.__index = object
return object
end
local function Slider(name)
local base = Object(name)
local typ = "Slider"
base.w = 8
base.bgcolor = colors.lightGray
base.fgcolor = colors.gray
base:setValue(1)
local barType = "horizontal"
local symbol = " "
local symbolColor=colors.black
local bgSymbol = "\140"
local maxValue = base.w
local index = 1
local object = {
getType = function(self)
return typ
end;
setSymbol = function(self, _symbol)
symbol = _symbol:sub(1,1)
self:setVisualChanged()
return self
end;
setBackgroundSymbol = function(self, _bgSymbol)
bgSymbol = string.sub(_bgSymbol,1,1)
self:setVisualChanged()
return self
end;
setSymbolColor = function(self, col)
symbolColor = col
self:setVisualChanged()
return self
end;
setBarType = function(self, _typ)
barType = _typ:lower()
return self
end;
mouseClickHandler = function(self, event, button, x, y)
if(base.mouseClickHandler(self,event,button,x,y))then
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
if(barType=="horizontal")then
for _index=0,self.w-1 do
if(obx+_index==x)and(oby<=y)and(oby+self.h>y)then
index = _index+1
self:setValue(maxValue/self.w*(index))
self:setVisualChanged()
end
end
end
if(barType=="vertical")then
for _index=0,self.h-1 do
if(oby+_index==y)and(obx<=x)and(obx+self.w>x)then
index = _index+1
self:setValue(maxValue/self.h*(index))
self:setVisualChanged()
end
end
end
--[[if(event=="mouse_scroll")then
self:setValue(self:getValue() + (maxValue/(barType=="vertical" and self.h or self.w))*typ)
self:setVisualChanged()
end
if(self:getValue()>maxValue)then self:setValue(maxValue) end
if(self:getValue()<maxValue/(barType=="vertical" and self.h or self.w))then self:setValue(maxValue/(barType=="vertical" and self.h or self.w)) end
]]
end
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
if(barType=="horizontal")then
self.parent:writeText(obx, oby, bgSymbol:rep(index-1), self.bgcolor, self.fgcolor)
self.parent:writeText(obx + index - 1, oby, symbol, symbolColor, symbolColor)
self.parent:writeText(obx + index, oby, bgSymbol:rep(self.w - (index)), self.bgcolor, self.fgcolor)
end
if(barType=="vertical")then
for n = 0, self.h-1 do
if(n+1 == index)then
self.parent:writeText(obx, oby + n, symbol, symbolColor, symbolColor)
else
self.parent:writeText(obx, oby + n, bgSymbol, self.bgcolor, self.fgcolor)
end
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Scrollbar(name)
local base = Object(name)
local typ = "Scrollbar"
base.w = 1
base.h = 8
base.bgcolor = colors.lightGray
base.fgcolor = colors.gray
base:setValue(1)
base:setZIndex(2)
local barType = "vertical"
local symbol = " "
local symbolColor=colors.black
local bgSymbol = "\127"
local maxValue = base.h
local index = 1
local symbolSize = 1
local object = {
getType = function(self)
return typ
end;
setSymbol = function(self, _symbol)
symbol = _symbol:sub(1,1)
self:setVisualChanged()
return self
end;
setSymbolSize = function(self, size)
symbolSize = tonumber(size) or 1
if(barType=="vertical")then
self:setValue(index-1 * (maxValue/(self.h-(symbolSize-1)))-(maxValue/(self.h-(symbolSize-1))))
elseif(barType=="horizontal")then
self:setValue(index-1 * (maxValue/(self.w-(symbolSize-1)))-(maxValue/(self.w-(symbolSize-1))))
end
self:setVisualChanged()
return self
end;
setMaxValue = function(self, val)
maxValue = val
return self
end;
setBackgroundSymbol = function(self, _bgSymbol)
bgSymbol = string.sub(_bgSymbol,1,1)
self:setVisualChanged()
return self
end;
setSymbolColor = function(self, col)
symbolColor = col
self:setVisualChanged()
return self
end;
setBarType = function(self, _typ)
barType = _typ:lower()
return self
end;
mouseClickHandler = function(self, event, button, x, y)
if(base.mouseClickHandler(self,event,button,x,y))then
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
if((event=="mouse_click")or(event=="mouse_drag"))and(button==1)then
if(barType=="horizontal")then
for _index=0,self.w do
if(obx+_index==x)and(oby<=y)and(oby+self.h>y)then
index = math.min(_index+1, self.w-(symbolSize-1))
self:setValue(maxValue/self.w*(index))
self:setVisualChanged()
end
end
end
if(barType=="vertical")then
for _index=0,self.h do
if(oby+_index==y)and(obx<=x)and(obx+self.w>x)then
index = math.min(_index+1, self.h-(symbolSize-1))
self:setValue(maxValue/self.h*(index))
self:setVisualChanged()
end
end
end
end
if(event=="mouse_scroll")then
index = index+button
if(index<1)then index = 1 end
index = math.min(index, (barType=="vertical" and self.h or self.w)-(symbolSize-1))
self:setValue(maxValue/(barType=="vertical" and self.h or self.w)*index)
end
return true
end
end;
draw = function(self)
if(base.draw(self))then
if(self.parent~=nil)then
local obx, oby = self:getAnchorPosition()
if(barType=="horizontal")then
self.parent:writeText(obx, oby, bgSymbol:rep(index-1), self.bgcolor, self.fgcolor)
self.parent:writeText(obx + index - 1, oby, symbol:rep(symbolSize), symbolColor, symbolColor)
self.parent:writeText(obx + index+symbolSize-1, oby, bgSymbol:rep(self.w - (index+symbolSize-1)), self.bgcolor, self.fgcolor)
end
if(barType=="vertical")then
for n = 0, self.h-1 do
if(index==n+1)then
for curIndexOffset=0,math.min(symbolSize-1,self.h) do
self.parent:writeText(obx, oby+n+curIndexOffset, symbol, symbolColor, symbolColor)
end
else
if(n+1<index)or(n+1>index-1+symbolSize)then
self.parent:writeText(obx, oby+n, bgSymbol, self.bgcolor, self.fgcolor)
end
end
end
end
end
end
end;
}
return setmetatable(object, base)
end
local function Frame(name,parent) -- Frame
local base = Object(name)
local typ = "Frame"
local objects = {}
local objZIndex = {}
local object = {}
local focusedObject
base:setZIndex(10)
local cursorBlink = false
local xCursor = 1
local yCursor = 1
local cursorColor = colors.white
local xOffset, yOffset = 0, 0
if(parent~=nil)then
base.parent = parent
base.w, base.h = parent.w, parent.h
base.bgcolor = theme.FrameBG
base.fgcolor = theme.FrameFG
else
local termW, termH = parentTerminal.getSize()
base.w, base.h = termW, termH
base.bgcolor = theme.basaltBG
base.fgcolor = theme.basaltFG
end
local function getObject(name)
for k,v in pairs(objects)do
for a,b in pairs(v)do
if(b.name == name)then
return v
end
end
end
end
local function addObject(obj)
local zIndex = obj:getZIndex()
if(getObject(obj.name)~=nil)then return nil end
if(objects[zIndex]==nil)then
for x=1,#objZIndex+1 do
if(objZIndex[x]~=nil)then
if(zIndex == objZIndex[x])then break end
if(zIndex > objZIndex[x])then
table.insert(objZIndex,x,zIndex)
break
end
else
table.insert(objZIndex,zIndex)
end
end
if(#objZIndex<=0)then
table.insert(objZIndex,zIndex)
end
objects[zIndex] = {}
end
obj.parent = object
table.insert(objects[zIndex],obj)
return obj
end
local function removeObject(obj)
for a,b in pairs(objects)do
for k,v in pairs(b)do
if(v==obj)then
table.remove(objects[a],k)
return true;
end
end
end
return false
end
object = {
barActive = false,
barBackground = colors.gray,
barTextcolor = colors.black,
barText = "New Frame",
barTextAlign = "left",
isMoveable = false,
getType = function(self)
return typ
end;
setFocusedObject = function(self, obj)
for _,index in pairs(objZIndex)do
for _,v in pairs(objects[index])do
if(v == obj)then
if(focusedObject~=nil)then focusedObject:loseFocusHandler() end
focusedObject = obj
focusedObject:getFocusHandler()
end
end
end
return self
end;
setOffset = function(self, xO, yO)
xOffset = xO ~= nil and math.floor(xO < 0 and math.abs(xO) or -xO) or xOffset
yOffset = yO ~= nil and math.floor(yO < 0 and math.abs(yO) or -yO) or yOffset
return self
end;
getFrameOffset = function(self)
return xOffset, yOffset
end;
removeFocusedObject = function(self)
if(focusedObject~=nil)then focusedObject:loseFocusHandler() end
focusedObject = nil
return self
end;
getFocusedObject = function(self)
return focusedObject
end;
show = function(self)
base:show()
if(self.parent==nil)then
activeFrame = self
end
return self
end;
setCursor = function(self, _blink, _xCursor, _yCursor, color)
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
cursorBlink = _blink or false
if(_xCursor~=nil)then xCursor = obx+_xCursor-1 end
if(_yCursor~=nil)then yCursor = oby+_yCursor-1 end
cursorColor = color or cursorColor
self:setVisualChanged()
return self
end;
setMoveable = function(self, moveable)
self.isMoveable = moveable or not self.isMoveable
self:setVisualChanged()
return self;
end;
showBar = function(self, showIt)
self.barActive = showIt or not self.barActive
self:setVisualChanged()
return self
end;
setBar = function(self, text, bgCol, fgCol)
self.barText = text or ""
self.barBackground = bgCol or self.barBackground
self.barTextcolor = fgCol or self.barTextcolor
self:setVisualChanged()
return self
end;
setBarTextAlign = function(self, align)
self.barTextAlign = align or "left"
self:setVisualChanged()
return self
end;
getVisualChanged = function(self)
local changed = base.getVisualChanged(self)
for _,index in pairs(objZIndex)do
if(objects[index]~=nil)then
for _,v in pairs(objects[index])do
if(v.getVisualChanged~=nil and v:getVisualChanged())then
changed = true
end
end
end
end
return changed
end;
loseFocusHandler = function(self)
base.loseFocusHandler(self)
end;
getFocusHandler = function(self)
base.getFocusHandler(self)
if(self.parent~=nil)then
self.parent:removeObject(self)
self.parent:addObject(self)
end
end;
keyHandler = function(self, event, key)
if(focusedObject~=nil)then
if(focusedObject.keyHandler~=nil)then
if(focusedObject:keyHandler(event,key))then
return true
end
end
end
return false
end;
backgroundKeyHandler = function(self, event, key)
base.backgroundKeyHandler(self, event, key)
for _,index in pairs(objZIndex)do
if(objects[index]~=nil)then
for _,v in pairs(objects[index])do
if(v.backgroundKeyHandler~=nil)then
v:backgroundKeyHandler(event,key)
end
end
end
end
end;
eventHandler = function(self, event, p1, p2, p3, p4)
base.eventHandler(self, event, p1, p2, p3, p4)
for _,index in pairs(objZIndex)do
if(objects[index]~=nil)then
for _,v in pairs(objects[index])do
if(v.eventHandler~=nil)then
v:eventHandler(event,p1, p2, p3, p4)
end
end
end
end
if(event=="terminate")then
parentTerminal.clear()
parentTerminal.setCursorPos(1,1)
basalt.stop()
end
end;
mouseClickHandler = function(self, event, button, x, y)
local xO, yO = self:getOffset()
xO = xO < 0 and math.abs(xO) or -xO
yO = yO < 0 and math.abs(yO) or -yO
if(self.drag)then
if(event=="mouse_drag")then
local parentX=1;local parentY=1
if(self.parent~=nil)then
parentX,parentY = self.parent:getAbsolutePosition(self.parent:getAnchorPosition())
end
self:setPosition(x+self.xToRem-(parentX-1) + xO,y-(parentY-1) + yO)
end
if(event=="mouse_up")then
self.drag = false
end
return true
end
if(base.mouseClickHandler(self,event,button,x,y))then
local fx,fy = self:getAbsolutePosition(self:getAnchorPosition())
for _,index in pairs(objZIndex)do
if(objects[index]~=nil)then
for _,v in rpairs(objects[index])do
if(v.mouseClickHandler~=nil)then
if(v:mouseClickHandler(event,button,x+xO,y+yO))then
return true
end
end
end
end
end
if(self.isMoveable)then
if(x>=fx)and(x<=fx+self.w-1)and(y==fy)and(event=="mouse_click")then
self.drag = true
self.xToRem = fx-x
end
end
if(focusedObject~=nil)then focusedObject:loseFocusHandler() focusedObject = nil end
return true
end
return false
end;
setText = function(self, x, y, text)
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
if(y>=1)and(y<=self.h)then
if(self.parent~=nil)then
self.parent:setText(math.max(x+(obx-1),obx)-(self.parent.x-1), oby+y-1-(self.parent.y-1), sub( text, math.max(1 - x + 1, 1), self.w - x + 1 ))
else
drawHelper.setText(math.max(x+(obx-1),obx), oby+y-1, sub( text, math.max(1 - x + 1, 1), self.w - x + 1 ))
end
end
end;
setBG = function(self, x, y, bgCol)
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
if(y>=1)and(y<=self.h)then
if(self.parent~=nil)then
self.parent:setBG(math.max(x+(obx-1),obx)-(self.parent.x-1), oby+y-1-(self.parent.y-1), sub( bgCol, math.max(1 - x + 1, 1), self.w - x + 1 ))
else
drawHelper.setBG(math.max(x+(obx-1),obx), oby+y-1, sub( bgCol, math.max(1 - x + 1, 1), self.w - x + 1 ))
end
end
end;
setFG = function(self, x, y, fgCol)
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
if(y>=1)and(y<=self.h)then
if(self.parent~=nil)then
self.parent:setFG(math.max(x+(obx-1),obx)-(self.parent.x-1), oby+y-1-(self.parent.y-1), sub( fgCol, math.max(1 - x + 1, 1), self.w - x + 1 ))
else
drawHelper.setFG(math.max(x+(obx-1),obx), oby+y-1, sub( fgCol, math.max(1 - x + 1, 1), self.w - x + 1 ))
end
end
end;
writeText = function(self, x, y, text, bgCol, fgCol)
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
if(y>=1)and(y<=self.h)then
if(self.parent~=nil)then
self.parent:writeText(math.max(x+(obx-1),obx)-(self.parent.x-1), oby+y-1-(self.parent.y-1), sub( text, math.max(1 - x + 1, 1), self.w - x + 1 ), bgCol, fgCol)
else
drawHelper.writeText(math.max(x+(obx-1),obx), oby+y-1, sub( text, math.max(1 - x + 1, 1), self.w - x + 1 ), bgCol, fgCol)
end
end
end;
drawBackgroundBox = function(self, x, y, w, h, bgCol)
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
h = (y < 1 and (h+y > self.h and self.h or h+y-1) or (h+y > self.h and self.h-y+1 or h))
w = (x < 1 and (w+x > self.w and self.w or w+x-1) or (w+x > self.w and self.w-x+1 or w))
if(self.parent~=nil)then
self.parent:drawBackgroundBox(math.max(x+(obx-1),obx)-(self.parent.x-1), math.max(y+(oby-1),oby)-(self.parent.y-1), w, h, bgCol)
else
drawHelper.drawBackgroundBox(math.max(x+(obx-1),obx), math.max(y+(oby-1),oby), w, h, bgCol)
end
end;
drawTextBox = function(self, x, y, w, h, symbol)
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
h = (y < 1 and (h+y > self.h and self.h or h+y-1) or (h+y > self.h and self.h-y+1 or h))
w = (x < 1 and (w+x > self.w and self.w or w+x-1) or (w+x > self.w and self.w-x+1 or w))
if(self.parent~=nil)then
self.parent:drawTextBox(math.max(x+(obx-1),obx)-(self.parent.x-1), math.max(y+(oby-1),oby)-(self.parent.y-1), w, h, symbol:sub(1,1))
else
drawHelper.drawTextBox(math.max(x+(obx-1),obx), math.max(y+(oby-1),oby), w, h, symbol:sub(1,1))
end
end;
drawForegroundBox = function(self, x, y, w, h, fgCol)
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
h = (y < 1 and (h+y > self.h and self.h or h+y-1) or (h+y > self.h and self.h-y+1 or h))
w = (x < 1 and (w+x > self.w and self.w or w+x-1) or (w+x > self.w and self.w-x+1 or w))
if(self.parent~=nil)then
self.parent:drawForegroundBox(math.max(x+(obx-1),obx)-(self.parent.x-1), math.max(y+(oby-1),oby)-(self.parent.y-1), w, h, fgCol)
else
drawHelper.drawForegroundBox(math.max(x+(obx-1),obx), math.max(y+(oby-1),oby), w, h, fgCol)
end
end;
draw = function(self)
if(self:getVisualChanged())then
if(base.draw(self))then
local obx, oby = self:getAbsolutePosition(self:getAnchorPosition())
local anchx, anchy = self:getAnchorPosition()
if(self.parent~=nil)then
self.parent:drawBackgroundBox(anchx, anchy, self.w, self.h, self.bgcolor)
self.parent:drawForegroundBox(anchx, anchy, self.w, self.h, self.fgcolor)
self.parent:drawTextBox(anchx, anchy, self.w, self.h, " ")
else
drawHelper.drawBackgroundBox(obx, oby, self.w, self.h, self.bgcolor)
drawHelper.drawForegroundBox(obx, oby, self.w, self.h, self.fgcolor)
drawHelper.drawTextBox(obx, oby, self.w, self.h, " ")
end
parentTerminal.setCursorBlink(false)
if(self.barActive)then
if(self.parent~=nil)then
self.parent:writeText(anchx, anchy, getTextHorizontalAlign(self.barText, self.w, self.barTextAlign), self.barBackground, self.barTextcolor)
else
drawHelper.writeText(obx, oby, getTextHorizontalAlign(self.barText, self.w, self.barTextAlign), self.barBackground, self.barTextcolor)
end
end
for _,index in rpairs(objZIndex)do
if(objects[index]~=nil)then
for _,v in pairs(objects[index])do
if(v.draw~=nil)then
v:draw()
end
end
end
end
if(cursorBlink)then
parentTerminal.setTextColor(cursorColor)
parentTerminal.setCursorPos(xCursor, yCursor)
if(self.parent~=nil)then
parentTerminal.setCursorBlink(self:isFocused())
else
parentTerminal.setCursorBlink(cursorBlink)
end
end
self:setVisualChanged(false)
end
end
end;
addObject = function(self, obj)
return addObject(obj)
end;
removeObject = function(self, obj)
return removeObject(obj)
end;
getObject = function(self, obj)
return getObject(obj)
end;
addButton = function(self, name)
local obj = Button(name)
obj.name = name
return addObject(obj)
end;
addLabel = function(self, name)
local obj = Label(name)
obj.name = name
obj.bgcolor = self.bgcolor
obj.fgcolor = self.fgcolor
return addObject(obj)
end;
addCheckbox = function(self, name)
local obj = Checkbox(name)
obj.name = name
return addObject(obj)
end;
addInput = function(self, name)
local obj = Input(name)
obj.name = name
return addObject(obj)
end;
addProgram = function(self, name)
local obj = Program(name)
obj.name = name
return addObject(obj)
end;
addTextfield = function(self, name)
local obj = Textfield(name)
obj.name = name
return addObject(obj)
end;
addList = function(self, name)
local obj = List(name)
obj.name = name
return addObject(obj)
end;
addDropdown = function(self, name)
local obj = Dropdown(name)
obj.name = name
return addObject(obj)
end;
addRadio = function(self, name)
local obj = Radio(name)
obj.name = name
return addObject(obj)
end;
addTimer = function(self, name)
local obj = Timer(name)
obj.name = name
return addObject(obj)
end;
addAnimation = function(self, name)
local obj = Animation(name)
obj.name = name
return addObject(obj)
end;
addSlider = function(self, name)
local obj = Slider(name)
obj.name = name
return addObject(obj)
end;
addScrollbar = function(self, name)
local obj = Scrollbar(name)
obj.name = name
return addObject(obj)
end;
addMenubar = function(self, name)
local obj = Menubar(name)
obj.name = name
return addObject(obj)
end;
addThread = function(self, name)
local obj = Thread(name)
obj.name = name
return addObject(obj)
end;
addPane = function(self, name)
local obj = Pane(name)
obj.name = name
return addObject(obj)
end;
addImage = function(self, name)
local obj = Image(name)
obj.name = name
return addObject(obj)
end;
addFrame = function(self, name)
local obj = Frame(name, self)
obj.name = name
return addObject(obj)
end;
}
setmetatable(object, base)
if(parent==nil)then
table.insert(frames, object)
end
return object
end
local updaterActive = false
local function basaltUpdateEvent(event, p1,p2,p3,p4)
if(event=="mouse_click")then activeFrame:mouseClickHandler(event,p1,p2,p3,p4) end
if(event=="mouse_drag")then activeFrame:mouseClickHandler(event,p1,p2,p3,p4) end
if(event=="mouse_up")then activeFrame:mouseClickHandler(event,p1,p2,p3,p4) end
if(event=="mouse_scroll")then activeFrame:mouseClickHandler(event,p1,p2,p3,p4) end
if(event=="key")or(event=="char")then activeFrame:keyHandler(event,p1) activeFrame:backgroundKeyHandler(event,p1) end
for _,v in pairs(frames)do
v:eventHandler(event, p1, p2, p3, p4)
end
if(updaterActive)then
activeFrame:draw()
drawHelper.update()
end
end
function basalt.autoUpdate(isActive)
parentTerminal.clear()
updaterActive = isActive or true
activeFrame:draw()
drawHelper.update()
while updaterActive do
local event, p1,p2,p3,p4 = os.pullEventRaw() -- change to raw later
basaltUpdateEvent(event, p1,p2,p3,p4)
end
end
function basalt.update(event, p1, p2, p3, p4)
if(event~="nil")then
basaltUpdateEvent(event, p1,p2,p3,p4)
else
activeFrame:draw()
drawHelper.update()
end
end
function basalt.stop()
updaterActive = false
end
function basalt.getFrame(name)
for k,v in pairs(frames)do
if(v.name==name)then
return v
end
end
end
function basalt.getActiveFrame()
return activeFrame
end
function basalt.setActiveFrame(frame)
if(frame:getType()=="Frame")then
activeFrame = frame
return true
end
return false
end
function basalt.createFrame(name)
local frame = Frame(name)
return frame
end
function basalt.removeFrame(name)
for k,v in pairs(frames)do
if(v.name==name)then
frames[k] = nil
return true
end
end
return false
end
if(basalt.debugger)then
basalt.debugFrame = basalt.createFrame("basaltDebuggingFrame"):showBar():setBackground(colors.lightGray):setBar("Debug",colors.black,colors.gray)
basalt.debugList = basalt.debugFrame:addList("debugList"):setSize(basalt.debugFrame.w - 2, basalt.debugFrame.h - 3):setPosition(2,3):setScrollable(true):show()
basalt.debugFrame:addButton("back"):setAnchor("right"):setSize(1,1):setText("\22"):onClick(function() basalt.oldFrame:show() end):setBackground(colors.red):show()
basalt.debugLabel = basalt.debugFrame:addLabel("debugLabel"):onClick(function() basalt.oldFrame = activeFrame basalt.debugFrame:show() end):setBackground(colors.black):setForeground(colors.white):setAnchor("bottom"):setZIndex(20):show()
end
if(basalt.debugger)then
function basalt.debug(...)
local args = {...}
if(activeFrame.name~="basaltDebuggingFrame")then
if(activeFrame~=basalt.debugLabel.frame)then
basalt.debugLabel:setParent(activeFrame)
end
end
local str = ""
for k,v in pairs(args)do
str = str..tostring(v)..(#args~=k and ", " or "")
end
basalt.debugLabel:setText("[Debug] "..str)
basalt.debugList:addItem(str)
if(basalt.debugList:getItemCount()>50)then basalt.debugList:removeItem(1) end
basalt.debugList:setValue(basalt.debugList:getItem(basalt.debugList:getItemCount()))
basalt.debugLabel:show()
end
end
return basalt
Reference in New Issue View Git Blame Copy Permalink