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