From 03ad6d04e7e9c227db912d2f95a2813045caae9f Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 5 Jun 2005 14:03:41 +0000
Subject: * ext/tk/lib/tk/console.rb: create console when required *
 ext/tk/sample/tkextlib/tile/demo.rb: fix TypeError & create Console

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@8569 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/lib/tk/console.rb | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

(limited to 'ext/tk/lib')

diff --git a/ext/tk/lib/tk/console.rb b/ext/tk/lib/tk/console.rb
index 1a267b717..26ce262ca 100644
--- a/ext/tk/lib/tk/console.rb
+++ b/ext/tk/lib/tk/console.rb
@@ -7,11 +7,13 @@ module TkConsole
   include Tk
   extend Tk
 
-  TkCommandNames = ['console'.freeze].freeze
+  TkCommandNames = ['console'.freeze, 'consoleinterp'.freeze].freeze
 
   def self.create
     TkCore::INTERP._create_console
   end
+  self.create  # initialize console
+
   def self.title(str=None)
     tk_call 'console', str
   end
@@ -29,4 +31,22 @@ module TkConsole
     _fromUTF8(tk_call_without_enc('console', 'eval', 
                                   _get_eval_enc_str(tcl_script)))
   end
+  def self.maininterp_eval(tcl_script)
+    #
+    # supports a Tcl script only
+    # I have no idea to support a Ruby script seamlessly.
+    #
+    _fromUTF8(tk_call_without_enc('consoleinterp', 'eval', 
+                                  _get_eval_enc_str(tcl_script)))
+
+  end
+  def self.maininterp_record(tcl_script)
+    #
+    # supports a Tcl script only
+    # I have no idea to support a Ruby script seamlessly.
+    #
+    _fromUTF8(tk_call_without_enc('consoleinterp', 'record', 
+                                  _get_eval_enc_str(tcl_script)))
+
+  end
 end
-- 
cgit