1#
2#  TkTrans support (win32 only)
3#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
4#
5require 'tk'
6
7# call setup script for general 'tkextlib' libraries
8require 'tkextlib/setup.rb'
9
10# call setup script
11require 'tkextlib/tktrans/setup.rb'
12
13TkPackage.require('tktrans') rescue Tk.load_tcllibrary('tktrans')
14
15module Tk
16  module TkTrans
17    PACKAGE_NAME = 'tktrans'.freeze
18    def self.package_name
19      PACKAGE_NAME
20    end
21
22    def self.package_version
23      begin
24        TkPackage.require('tktrans')
25      rescue
26        ''
27      end
28    end
29  end
30end
31
32class TkWindow
33  def tktrans_set_image(img)
34    tk_send('tktrans::setwidget', @path, img)
35    self
36  end
37  def tktrans_get_image()
38    tk_send('tktrans::setwidget', @path)
39  end
40end
41
42class Tk::Root
43  undef tktrans_set_image, tktrans_get_image
44
45  def tktrans_set_image(img)
46    tk_send('tktrans::settoplevel', @path, img)
47    self
48  end
49  def tktrans_get_image()
50    tk_send('tktrans::settoplevel', @path)
51  end
52end
53
54class Tk::Toplevel
55  undef tktrans_set_image, tktrans_get_image
56
57  def tktrans_set_image(img)
58    tk_send('tktrans::settoplevel', @path, img)
59    self
60  end
61  def tktrans_get_image()
62    tk_send('tktrans::settoplevel', @path)
63  end
64end
65