diff options
Diffstat (limited to 'ext/tk/lib/tk/console.rb')
-rw-r--r-- | ext/tk/lib/tk/console.rb | 22 |
1 files changed, 21 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 |