Mercurial Hosting > luan
view src/luan/modules/swing/Scroll_pane.luan @ 1781:e647c92a4a12 default tip
minor
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Thu, 21 Sep 2023 22:57:06 -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 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