From fcbf63e62c627deae76c1b8cb8c0876c536ed811 Mon Sep 17 00:00:00 2001
From: Jari Vetoniemi <jari.vetoniemi@indooratlas.com>
Date: Mon, 16 Mar 2020 18:49:26 +0900
Subject: Fresh start

---
 jni/ruby/ext/tk/lib/tkextlib/tktrans/setup.rb   |  8 ++++
 jni/ruby/ext/tk/lib/tkextlib/tktrans/tktrans.rb | 64 +++++++++++++++++++++++++
 2 files changed, 72 insertions(+)
 create mode 100644 jni/ruby/ext/tk/lib/tkextlib/tktrans/setup.rb
 create mode 100644 jni/ruby/ext/tk/lib/tkextlib/tktrans/tktrans.rb

(limited to 'jni/ruby/ext/tk/lib/tkextlib/tktrans')

diff --git a/jni/ruby/ext/tk/lib/tkextlib/tktrans/setup.rb b/jni/ruby/ext/tk/lib/tkextlib/tktrans/setup.rb
new file mode 100644
index 0000000..ee406c6
--- /dev/null
+++ b/jni/ruby/ext/tk/lib/tkextlib/tktrans/setup.rb
@@ -0,0 +1,8 @@
+#
+#  setup.rb   --   setup script before calling TkPackage.require()
+#
+#    If you need some setup operations (for example, add a library path
+#    to the library search path) before using Tcl/Tk library packages
+#    wrapped by Ruby scripts in this directory, please write the setup
+#    operations in this file.
+#
diff --git a/jni/ruby/ext/tk/lib/tkextlib/tktrans/tktrans.rb b/jni/ruby/ext/tk/lib/tkextlib/tktrans/tktrans.rb
new file mode 100644
index 0000000..e051c09
--- /dev/null
+++ b/jni/ruby/ext/tk/lib/tkextlib/tktrans/tktrans.rb
@@ -0,0 +1,64 @@
+#
+#  TkTrans support (win32 only)
+#                               by Hidetoshi NAGAI (nagai@ai.kyutech.ac.jp)
+#
+require 'tk'
+
+# call setup script for general 'tkextlib' libraries
+require 'tkextlib/setup.rb'
+
+# call setup script
+require 'tkextlib/tktrans/setup.rb'
+
+TkPackage.require('tktrans') rescue Tk.load_tcllibrary('tktrans')
+
+module Tk
+  module TkTrans
+    PACKAGE_NAME = 'tktrans'.freeze
+    def self.package_name
+      PACKAGE_NAME
+    end
+
+    def self.package_version
+      begin
+        TkPackage.require('tktrans')
+      rescue
+        ''
+      end
+    end
+  end
+end
+
+class TkWindow
+  def tktrans_set_image(img)
+    tk_send('tktrans::setwidget', @path, img)
+    self
+  end
+  def tktrans_get_image()
+    tk_send('tktrans::setwidget', @path)
+  end
+end
+
+class Tk::Root
+  undef tktrans_set_image, tktrans_get_image
+
+  def tktrans_set_image(img)
+    tk_send('tktrans::settoplevel', @path, img)
+    self
+  end
+  def tktrans_get_image()
+    tk_send('tktrans::settoplevel', @path)
+  end
+end
+
+class Tk::Toplevel
+  undef tktrans_set_image, tktrans_get_image
+
+  def tktrans_set_image(img)
+    tk_send('tktrans::settoplevel', @path, img)
+    self
+  end
+  def tktrans_get_image()
+    tk_send('tktrans::settoplevel', @path)
+  end
+end
-- 
cgit v1.2.3