Mercurial Hosting > luan
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