* ext/tk/lib/tk/console.rb: create console when required

* ext/tk/sample/tkextlib/tile/demo.rb: create Console (commit miss?)


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8571 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

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

ext/tk/sample/tkextlib/tile/demo.rb

@@ -510,6 +510,7 @@ m_file.add(:checkbutton, :label=>'Text check', :underline=>5,
 m_file.insert(:end, :separator)
 
 if Tk.windowingsystem != 'x11'
+  TkConsole.create
   m_file.insert(:end, :checkbutton, :label=>'Console', :underline=>5, 
                 :variable=>$V.ref(:CONSOLE), :command=>proc{toggle_console()})
   def toggle_console