diff options
Diffstat (limited to 'ext')
-rw-r--r-- | ext/tk/lib/tk/console.rb | 22 | ||||
-rw-r--r-- | ext/tk/sample/tkextlib/tile/demo.rb | 1 |
2 files changed, 22 insertions, 1 deletions
diff --git a/ext/tk/lib/tk/console.rb b/ext/tk/lib/tk/console.rb index 1a267b717c..26ce262caa 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 diff --git a/ext/tk/sample/tkextlib/tile/demo.rb b/ext/tk/sample/tkextlib/tile/demo.rb index ce453bc4b0..6603304b1f 100644 --- a/ext/tk/sample/tkextlib/tile/demo.rb +++ b/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 |