Class: TclTkIp

Inherits:
Object show all
Defined in:
lib/tk.rb,
ext/tk/tcltklib.c,
lib/tk.rb,
lib/tk.rb

Instance Attribute Summary collapse

Class Method Summary collapse

Instance Method Summary collapse

Constructor Details

#initialize(*args) ⇒ Object

initialize interpreter



6114
6115
6116
6117
6118
6119
6120
 
# File 'ext/tk/tcltklib.c', line 6114

def initialize(*args)
  __initialize__(*args)

  @force_default_encoding ||= TkUtil.untrust([false])
  @encoding ||= TkUtil.untrust([nil])
  def @encoding.to_s; self.join(nil); end
end

Instance Attribute Details

#encoding=(value) ⇒ Object

from tkencoding.rb by [email protected] attr_accessor :encoding



2889
2890
2891
2892
 
# File 'lib/tk.rb', line 2889

def encoding=(name)
  self.force_default_encoding = true  # for compatibility
  self.default_encoding = name
end

Class Method Details

.__new__ ⇒ Object 



25
 
# File 'lib/multi-tk.rb', line 25

alias __new__ new

.new(*args) ⇒ Object 



28
29
30
31
32
33
34
35
36
37
38
39
 
# File 'lib/multi-tk.rb', line 28

def new(*args)
  if Thread.current.group != ThreadGroup::Default
    raise SecurityError, 'only ThreadGroup::Default can call TclTkIp.new'
  end
  obj = __new__(*args)
  obj.instance_eval{
    @force_default_encoding ||= TkUtil.untrust([false])
    @encoding ||= TkUtil.untrust([nil])
    def @encoding.to_s; self.join(nil); end
  }
  obj
end

.to_s ⇒ Object 



36
 
# File 'lib/tk.rb', line 36

def @encoding.to_s; self.join(nil); end

Instance Method Details

#__eval__ ⇒ Object 



19
 
# File 'lib/tk.rb', line 19

alias __eval__ _eval

#__fromUTF8 ⇒ Object 



2909
2910
2911
 
# File 'lib/tk.rb', line 2909

static VALUE
ip_fromUTF8(argc, argv, self)
int   argc;

#__invoke__ ⇒ Object 



21
 
# File 'lib/tk.rb', line 21

alias __invoke__ _invoke

#__toUTF8 ⇒ Object 



2908
2909
2910
 
# File 'lib/tk.rb', line 2908

static VALUE
ip_toUTF8(argc, argv, self)
int   argc;

#_cancel_eval ⇒ Object 



7758
7759
7760
 
# File 'ext/tk/tcltklib.c', line 7758

static VALUE
ip_cancel_eval(argc, argv, self)
int   argc;

#_cancel_eval_unwind ⇒ Object 



7779
7780
7781
 
# File 'ext/tk/tcltklib.c', line 7779

static VALUE
ip_cancel_eval_unwind(argc, argv, self)
int   argc;

#_conv_listelement ⇒ Object 



9924
9925
9926
 
# File 'ext/tk/tcltklib.c', line 9924

static VALUE
lib_conv_listelement(self, src)
VALUE self;

#_create_console ⇒ Object 



6594
6595
6596
 
# File 'ext/tk/tcltklib.c', line 6594

static VALUE
ip_create_console(self)
VALUE self;

#_eval(cmd) ⇒ Object Also known as: _eval_with_enc, __eval 



7553
7554
7555
 
# File 'ext/tk/tcltklib.c', line 7553

static VALUE
ip_eval(self, str)
VALUE self;

#_eval_without_enc ⇒ Object

backup original (without encoding) _eval and _invoke



18
 
# File 'lib/tk.rb', line 18

alias _eval_without_enc _eval

#_fromUTF8(str, encoding = nil) ⇒ Object 



8277
8278
8279
 
# File 'ext/tk/tcltklib.c', line 8277

static VALUE
ip_fromUTF8(argc, argv, self)
int   argc;

#_get_global_var ⇒ Object 



9614
9615
9616
 
# File 'ext/tk/tcltklib.c', line 9614

static VALUE
ip_get_global_var(self, varname)
VALUE self;

#_get_global_var2 ⇒ Object 



9623
9624
9625
 
# File 'ext/tk/tcltklib.c', line 9623

static VALUE
ip_get_global_var2(self, varname, index)
VALUE self;

#_get_variable ⇒ Object 



9391
9392
9393
 
# File 'ext/tk/tcltklib.c', line 9391

static VALUE
ip_get_variable(self, varname, flag)
VALUE self;

#_get_variable2 ⇒ Object 



9365
9366
9367
 
# File 'ext/tk/tcltklib.c', line 9365

static VALUE
ip_get_variable2(self, varname, index, flag)
VALUE self;

#_immediate_invoke ⇒ Object 



9257
9258
9259
 
# File 'ext/tk/tcltklib.c', line 9257

static VALUE
ip_invoke_immediate(argc, argv, obj)
int argc;

#_invoke(*cmds) ⇒ Object Also known as: _invoke_with_enc, __invoke 



9248
9249
9250
 
# File 'ext/tk/tcltklib.c', line 9248

static VALUE
ip_invoke(argc, argv, obj)
int argc;

#_invoke_without_enc ⇒ Object 



20
 
# File 'lib/tk.rb', line 20

alias _invoke_without_enc _invoke

#_ip_id_ ⇒ Object 



23
24
25
26
 
# File 'lib/tk.rb', line 23

def _ip_id_
  # for RemoteTkIp
  ''
end

#_make_menu_embeddable ⇒ Object 



10709
10710
10711
 
# File 'ext/tk/tcltklib.c', line 10709

static VALUE
ip_make_menu_embeddable(interp, menu_path)
VALUE interp;

#_merge_tklist ⇒ Object 



9826
9827
9828
 
# File 'ext/tk/tcltklib.c', line 9826

static VALUE
lib_merge_tklist(argc, argv, obj)
int argc;

#_return_value ⇒ Object

get return code from Tcl_Eval()



9231
9232
9233
 
# File 'ext/tk/tcltklib.c', line 9231

static VALUE
ip_retval(self)
VALUE self;

#_set_global_var ⇒ Object 



9633
9634
9635
 
# File 'ext/tk/tcltklib.c', line 9633

static VALUE
ip_set_global_var(self, varname, value)
VALUE self;

#_set_global_var2 ⇒ Object 



9643
9644
9645
 
# File 'ext/tk/tcltklib.c', line 9643

static VALUE
ip_set_global_var2(self, varname, index, value)
VALUE self;

#_set_variable ⇒ Object 



9530
9531
9532
 
# File 'ext/tk/tcltklib.c', line 9530

static VALUE
ip_set_variable(self, varname, value, flag)
VALUE self;

#_set_variable2 ⇒ Object 



9501
9502
9503
 
# File 'ext/tk/tcltklib.c', line 9501

static VALUE
ip_set_variable2(self, varname, index, value, flag)
VALUE self;

#_split_tklist ⇒ Object 



9818
9819
9820
 
# File 'ext/tk/tcltklib.c', line 9818

static VALUE
ip_split_tklist(self, list_str)
VALUE self;

#_thread_tkwait ⇒ Object 



5461
5462
5463
 
# File 'ext/tk/tcltklib.c', line 5461

static VALUE
ip_thread_tkwait(self, mode, target)
VALUE self;

#_thread_vwait ⇒ Object 



5447
5448
5449
 
# File 'ext/tk/tcltklib.c', line 5447

static VALUE
ip_thread_vwait(self, var)
VALUE self;

#_toUTF8(str, encoding = nil) ⇒ Object

without Encoding (Ruby 1.8)



8075
8076
8077
 
# File 'ext/tk/tcltklib.c', line 8075

static VALUE
ip_toUTF8(argc, argv, self)
int   argc;

#_unset_global_var ⇒ Object 



9654
9655
9656
 
# File 'ext/tk/tcltklib.c', line 9654

static VALUE
ip_unset_global_var(self, varname)
VALUE self;

#_unset_global_var2 ⇒ Object 



9663
9664
9665
 
# File 'ext/tk/tcltklib.c', line 9663

static VALUE
ip_unset_global_var2(self, varname, index)
VALUE self;

#_unset_variable ⇒ Object 



9605
9606
9607
 
# File 'ext/tk/tcltklib.c', line 9605

static VALUE
ip_unset_variable(self, varname, flag)
VALUE self;

#_unset_variable2 ⇒ Object 



9579
9580
9581
 
# File 'ext/tk/tcltklib.c', line 9579

static VALUE
ip_unset_variable2(self, varname, index, flag)
VALUE self;

#allow_ruby_exit= ⇒ Object

allow_ruby_exit = mode



6700
6701
6702
 
# File 'ext/tk/tcltklib.c', line 6700

static VALUE
ip_allow_ruby_exit_set(self, val)
VALUE self, val;

#allow_ruby_exit? ⇒ Boolean

allow_ruby_exit?

Returns:

  • (Boolean) 


6681
6682
6683
 
# File 'ext/tk/tcltklib.c', line 6681

static VALUE
ip_allow_ruby_exit_p(self)
VALUE self;

#create_dummy_encoding_for_tk ⇒ Object 



10090
10091
10092
 
# File 'ext/tk/tcltklib.c', line 10090

static VALUE
create_dummy_encoding_for_tk(interp, name)
VALUE interp;

#create_slave ⇒ Object 



6478
6479
6480
 
# File 'ext/tk/tcltklib.c', line 6478

static VALUE
ip_create_slave(argc, argv, self)
int   argc;

#default_encoding=(name) ⇒ Object 



2882
2883
2884
2885
 
# File 'lib/tk.rb', line 2882

def default_encoding=(name)
  name = name.name if Tk::WITH_ENCODING && name.kind_of?(::Encoding)
  @encoding[0] = name.to_s.dup
end

#delete ⇒ Object

delete interpreter



6755
6756
6757
 
# File 'ext/tk/tcltklib.c', line 6755

static VALUE
ip_delete(self)
VALUE self;

#deleted? ⇒ Boolean

Returns:

  • (Boolean) 


6809
6810
6811
 
# File 'ext/tk/tcltklib.c', line 6809

static VALUE
ip_is_deleted_p(self)
VALUE self;

#do_one_event ⇒ Object 



3087
3088
3089
 
# File 'ext/tk/tcltklib.c', line 3087

static VALUE
ip_do_one_event(argc, argv, self)
int   argc;

#encoding_name ⇒ Object Also known as: encoding, default_encoding 



2894
2895
2896
 
# File 'lib/tk.rb', line 2894

def encoding_name
  (@encoding[0])? @encoding[0].dup: nil
end

#encoding_obj ⇒ Object 



2900
2901
2902
2903
2904
2905
2906
 
# File 'lib/tk.rb', line 2900

def encoding_obj
  if Tk::WITH_ENCODING
    Tk::Encoding.tcl2rb_encoding(@encoding[0])
  else
    (@encoding[0])? @encoding[0].dup: nil
  end
end

#encoding_table ⇒ Object 



10564
10565
10566
 
# File 'ext/tk/tcltklib.c', line 10564

static VALUE
ip_get_encoding_table(interp)
VALUE interp;

#force_default_encoding=(mode) ⇒ Object 



2874
2875
2876
 
# File 'lib/tk.rb', line 2874

def force_default_encoding=(mode)
  @force_default_encoding[0] = (mode)? true: false
end

#force_default_encoding? ⇒ Boolean

Returns:

  • (Boolean) 


2878
2879
2880
 
# File 'lib/tk.rb', line 2878

def force_default_encoding?
  @force_default_encoding[0] ||= false
end

#get_eventloop_tick ⇒ Object 



1770
1771
1772
 
# File 'ext/tk/tcltklib.c', line 1770

static VALUE
ip_get_eventloop_tick(self)
VALUE self;

#get_eventloop_weight ⇒ Object 



1875
1876
1877
 
# File 'ext/tk/tcltklib.c', line 1875

static VALUE
ip_get_eventloop_weight(self)
VALUE self;

#get_no_event_wait ⇒ Object 



1821
1822
1823
 
# File 'ext/tk/tcltklib.c', line 1821

static VALUE
ip_get_no_event_wait(self)
VALUE self;

#has_mainwindow? ⇒ Boolean

Returns:

  • (Boolean) 


6839
6840
6841
 
# File 'ext/tk/tcltklib.c', line 6839

static VALUE
ip_has_mainwindow_p(self)
VALUE self;

#invalid_namespace? ⇒ Boolean

is deleted?

Returns:

  • (Boolean) 


6787
6788
6789
 
# File 'ext/tk/tcltklib.c', line 6787

static VALUE
ip_has_invalid_namespace_p(self)
VALUE self;

#mainloop ⇒ Object 



2766
2767
2768
 
# File 'ext/tk/tcltklib.c', line 2766

static VALUE
ip_mainloop(argc, argv, self)
int   argc;

#mainloop_abort_on_exception ⇒ Object 



1941
1942
1943
 
# File 'ext/tk/tcltklib.c', line 1941

static VALUE
ip_evloop_abort_on_exc(self)
VALUE self;

#mainloop_abort_on_exception= ⇒ Object 



1962
1963
1964
 
# File 'ext/tk/tcltklib.c', line 1962

static VALUE
ip_evloop_abort_on_exc_set(self, val)
VALUE self, val;

#mainloop_watchdog ⇒ Object 



2895
2896
2897
 
# File 'ext/tk/tcltklib.c', line 2895

static VALUE
ip_mainloop_watchdog(argc, argv, self)
int   argc;

#make_safe ⇒ Object 



6647
6648
6649
 
# File 'ext/tk/tcltklib.c', line 6647

static VALUE
ip_make_safe(self)
VALUE self;

#restart ⇒ Object 



7880
7881
7882
 
# File 'ext/tk/tcltklib.c', line 7880

static VALUE
ip_restart(self)
VALUE self;

#safe? ⇒ Boolean

is safe?

Returns:

  • (Boolean) 


6662
6663
6664
 
# File 'ext/tk/tcltklib.c', line 6662

static VALUE
ip_is_safe_p(self)
VALUE self;

#set_eventloop_tick ⇒ Object 



1751
1752
1753
 
# File 'ext/tk/tcltklib.c', line 1751

static VALUE
ip_set_eventloop_tick(self, tick)
VALUE self;

#set_eventloop_weight ⇒ Object 



1855
1856
1857
 
# File 'ext/tk/tcltklib.c', line 1855

static VALUE
ip_set_eventloop_weight(self, loop_max, no_event)
VALUE self;

#set_max_block_time ⇒ Object 



1882
1883
1884
 
# File 'ext/tk/tcltklib.c', line 1882

static VALUE
set_max_block_time(self, time)
VALUE self;

#set_no_event_wait ⇒ Object 



1802
1803
1804
 
# File 'ext/tk/tcltklib.c', line 1802

static VALUE
ip_set_no_event_wait(self, wait)
VALUE self;

#slave_of? ⇒ Boolean

self is slave of master?

Returns:

  • (Boolean) 


6512
6513
6514
 
# File 'ext/tk/tcltklib.c', line 6512

static VALUE
ip_is_slave_of_p(self, master)
VALUE self, master;