Mercurial Hosting > luan
diff 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 diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/luan/modules/swing/Scroll_pane.luan Sat Jun 05 21:42:29 2021 -0600 @@ -0,0 +1,30 @@ +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