Mercurial Hosting > luan
view src/luan/modules/swing/List.luan @ 1802:ca98dee04e08 default tip
add Parsers.json_null
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Sun, 21 Apr 2024 21:25:15 -0600 |
parents | 915cb538e2a3 |
children |
line wrap: on
line source
local Luan = require "luan:Luan.luan" local error = Luan.error local set_metatable = Luan.set_metatable or error() require "java" local JList = require "java:javax.swing.JList" local DefaultListModel = require "java:javax.swing.DefaultListModel" local List = {} local mt = {} function mt.__index(list,key) if key == "size" then return list.model.getSize() end error("'"..key.."' not defined") end function mt.__new_index(list,key,value) if key == "size" then list.model.setSize(value) return end error("'"..key.."' not defined") end function List.new() local model = DefaultListModel.new() local jlist = JList.new(model) local list = { java=jlist, model=model } list.add_element = model.addElement set_metatable(list,mt) return list end return List