File: atk.lua

package info (click to toggle)
lua-gtk 0.9%2B20100528-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 2,176 kB
  • ctags: 1,934
  • sloc: ansic: 9,571; sh: 373; makefile: 241
file content (24 lines) | stat: -rwxr-xr-x 472 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#! /usr/bin/env lua
-- vim:sw=4:sts=4

require "gtk"
require "atk"

-- Experiment with ATK.  Not yet useful

function build_ui()
    w = gtk.window_new(gtk.WINDOW_TOPLEVEL)
    w:connect('destroy', gtk.main_quit)
    w:set_title("ATK experiment")
    a = w:get_accessible()
    w:show_all()

    print(w, a)
    print("name", a:atk_object_get_name())
    print("description", a:atk_object_get_description())
    print("parent", a:get_parent())
end

build_ui()
gtk.main()