view src/luan/modules/swing/Scroll_pane.luan @ 1616:915cb538e2a3

start swing
author Franklin Schmidt <fschmidt@gmail.com>
date Sat, 05 Jun 2021 21:42:29 -0600
parents
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 JScrollPane = require "java:javax.swing.JScrollPane"


local Scroll_pane = {}

local mt = {}

function mt.__index(scroll_pane,key)
	error("'"..key.."' not defined")
end

function mt.__new_index(scroll_pane,key,value)
	error("'"..key.."' not defined")
end

function Scroll_pane.new(view)
	local jscroll_pane = JScrollPane.new(view.java)
	local scroll_pane = { java = jscroll_pane }
	function scroll_pane.set_row_header_view(view)
		jscroll_pane.setRowHeaderView(view.java)
	end
	set_metatable(scroll_pane,mt)
	return scroll_pane
end

return Scroll_pane