new checkbox control

sys/apis/ui.lua

@@ -2948,6 +2948,8 @@ UI.Chooser.defaults = {
 	choices = { },
 	nochoice = 'Select',
 	backgroundFocusColor = colors.lightGray,
+	leftIndicator = '<',
+	rightIndicator = '>',
 	height = 1,
 }
 function UI.Chooser:setParent()
@@ -2973,9 +2975,9 @@ function UI.Chooser:draw()
 	if choice then
 		value = choice.name
 	end
-	self:write(1, 1, '<', bg, colors.black)
+	self:write(1, 1, self.leftIndicator, self.backgroundColor, colors.black)
 	self:write(2, 1, ' ' .. Util.widthify(tostring(value), self.width-4) .. ' ', bg)
-	self:write(self.width, 1, '>', bg, colors.black)
+	self:write(self.width, 1, self.rightIndicator, self.backgroundColor, colors.black)
 end
 
 function UI.Chooser:focus()
@@ -3016,6 +3018,57 @@ function UI.Chooser:eventHandler(event)
 	end
 end
 
+--[[-- Chooser --]]--
+UI.Checkbox = class(UI.Window)
+UI.Checkbox.defaults = {
+	UIElement = 'Checkbox',
+	nochoice = 'Select',
+	checkedIndicator = 'X',
+	leftMarker = '[',
+	rightMarker = ']',
+	value = false,
+	textColor = colors.white,
+	backgroundColor = colors.black,
+	backgroundFocusColor = colors.lightGray,
+	height = 1,
+	width = 3,
+	accelerators = {
+		space = 'checkbox_toggle',
+		mouse_click = 'checkbox_toggle',
+	}
+}
+function UI.Checkbox:draw()
+	local bg = self.backgroundColor
+	if self.focused then
+		bg = self.backgroundFocusColor
+	end
+	if type(self.value) == 'string' then
+		self.value = nil  -- TODO: fix form
+	end
+	local text = string.format('[%s]', not self.value and ' ' or self.checkedIndicator)
+	self:write(1, 1, text, bg)
+	self:write(1, 1, self.leftMarker, self.backgroundColor, self.textColor)
+	self:write(2, 1, not self.value and ' ' or self.checkedIndicator, bg)
+	self:write(3, 1, self.rightMarker, self.backgroundColor, self.textColor)
+end
+
+function UI.Checkbox:focus()
+	self:draw()
+end
+
+function UI.Checkbox:reset()
+	self.value = false
+end
+
+function UI.Checkbox:eventHandler(event)
+	if event.type == 'checkbox_toggle' then
+		self.value = not self.value
+		self:emit({ type = 'checkbox_change', checked = self.value, element = self })
+		self:draw()
+		return true
+	end
+end
+
 --[[-- Text --]]--
 UI.Text = class(UI.Window)
 UI.Text.defaults = {

sys/etc/ext.theme

@@ -8,6 +8,15 @@
 	Button = {
 		--focusIndicator = '\183',
 	},
+	Checkbox = {
+		checkedIndicator = '\4',
+		leftMarker = '\124',
+		rightMarker = '\124',
+	},
+	Chooser = {
+		leftIndicator = '\17',
+		rightIndicator = '\16',
+	},
 	Grid = {
 		focusIndicator = '\183',
 		inverseSortIndicator = '\24',

sys/network/snmp.lua

@@ -150,11 +150,13 @@ local function sendInfo()
 		end
 		if device.neuralInterface then
 			info.status = device.neuralInterface.status
-			if not info.status and device.neuralInterface.getMetaOwner then
-				info.status = 'health: ' ..
-					math.floor(device.neuralInterface.getMetaOwner().health /
-						device.neuralInterface.getMetaOwner().maxHealth * 100)
-			end
+			pcall(function()
+				if not info.status and device.neuralInterface.getMetaOwner then
+					info.status = 'health: ' ..
+						math.floor(device.neuralInterface.getMetaOwner().health /
+							device.neuralInterface.getMetaOwner().maxHealth * 100)
+				end
+			end)
 		end
 		device.wireless_modem.transmit(999, os.getComputerID(), info)
 	end