annotate src/luan/modules/swing/Button.luan @ 1882:f8ca4a147ac9

swing
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 07 Apr 2025 22:34:12 -0600
parents c7c7d62f8c62
children d1708f8d4923
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1881
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
1882
Franklin Schmidt <fschmidt@gmail.com>
parents: 1881
diff changeset
3 local set_metatable = Luan.set_metatable or error()
1881
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 local Abstract_button = require "luan:swing/Abstract_button.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local super__index = Abstract_button.__index or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 local super__new_index = Abstract_button.__new_index or error()
1882
Franklin Schmidt <fschmidt@gmail.com>
parents: 1881
diff changeset
7 local super_construct = Abstract_button.construct or error()
Franklin Schmidt <fschmidt@gmail.com>
parents: 1881
diff changeset
8 local super_mt = Abstract_button.mt or error()
1881
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 require "java"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 local JButton = require "java:javax.swing.JButton"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 local Button = {}
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14
1882
Franklin Schmidt <fschmidt@gmail.com>
parents: 1881
diff changeset
15 function Button.new(props)
Franklin Schmidt <fschmidt@gmail.com>
parents: 1881
diff changeset
16 props = props or {}
1881
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17 local button = { java = JButton.new() }
1882
Franklin Schmidt <fschmidt@gmail.com>
parents: 1881
diff changeset
18 super_construct(button,props)
Franklin Schmidt <fschmidt@gmail.com>
parents: 1881
diff changeset
19 set_metatable(button,super_mt)
1881
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 return button
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 end
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
22
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
23 return Button