view src/luan/modules/swing/Button.luan @ 1892:3990486911d9 default tip

swing
author Franklin Schmidt <fschmidt@gmail.com>
date Fri, 11 Apr 2025 21:40:51 -0600
parents a28e22991c58
children
line wrap: on
line source

local Luan = require "luan:Luan.luan"
local error = Luan.error
local set_metatable = Luan.set_metatable or error()
local Utils = require "luan:swing/Utils.luan"
local check_empty = Utils.check_empty or error()
local Abstract_button = require "luan:swing/Abstract_button.luan"
local super__index = Abstract_button.__index or error()
local super__new_index = Abstract_button.__new_index or error()
local super_construct = Abstract_button.construct or error()
local super_mt = Abstract_button.mt or error()
require "java"
local JButton = require "java:javax.swing.JButton"
local Insets = require "java:java.awt.Insets"
local Logging = require "luan:logging/Logging.luan"
local logger = Logging.logger "swing/Button"


local Button = {}

local no_insets = Insets.new(0,0,0,0)

function Button.new(props)
	local jbutton = JButton.new()
	jbutton.setMargin(no_insets)
	local button = { java = jbutton }
	super_construct(button,props)
	check_empty(props)
	set_metatable(button,super_mt)
	return button
end

return Button