ruby-dev

山本です。

>仕方ないので，一度 backgroundimage オプションを参照して，
>エラーが出たらこれを使わないように変更しました．

configure を引数なしで呼ぶと、利用可能なオプションを返すという説明があったので
これが使えるかもしれません。

irb(main):006:0> Tk.tk_call(Tk::TreeCtrl.new, "configure")
=> "{-background background Background white white} {-backgroundmode backgroundM
ode BackgroundMode row row} {-bd -borderwidth} {-bg -background} {-borderwidth b
orderWidth BorderWidth 2 2} {-buttoncolor buttonColor ButtonColor #808080 #80808
0} {-buttonsize buttonSize ButtonSize 9 9} {-buttonthickness buttonThickness But
tonThickness 1 1} {-closedbuttonbitmap closedButtonBitmap ClosedButtonBitmap {}
{}} {-closedbuttonimage closedButtonImage ClosedButtonImage {} {}} {-columnproxy
 columnProxy ColumnProxy {} {}} {-cursor cursor Cursor {} {}} {-defaultstyle def
aultStyle DefaultStyle {} {}} {-doublebuffer doubleBuffer DoubleBuffer item item
} {-fg -foreground} {-font font Font {{MS Sans Serif} 8} {{MS Sans Serif} 8}} {-
foreground foreground Foreground SystemButtonText SystemButtonText} {-height hei
ght Height 200 200} {-highlightbackground highlightBackground HighlightBackgroun
d SystemButtonFace SystemButtonFace} {-highlightcolor highlightColor HighlightCo
lor SystemWindowFrame SystemWindowFrame} {-highlightthickness highlightThickness

////////////////////////////////////////////////////////////////////////////////

ところで、Random のデモがあまりにも重いので
http://sourceforge.net/projects/tktreectrl で落とした tcl/tk 版を試したところ、
何と数十倍の速度差がありました。

// tcl/tk

created 500-1 items in 26798 clicks
configured 500 items in 46687 clicks
set list in 0.086 seconds (86253 clicks)

// ruby-tk

created 499 items in 1167199 clicks
configured 500 items in 1901509 clicks
set list in 3.1 seconds (3099865 clicks)

ボトルネックを調べるために、前田さんのプロファイラ(http://svn.shugo.net/src/ruby-prof/trunk/)
を走らせてみたので結果を添付します。何となく invoke 系と encode 系がボトルネックのように
見えたので、TclTkIp#_fromUTF8 と TclTkIp#_toUTF8 で全部 ASCII 文字だったらそのまま文字を返すような
ハックをしたところ、1秒ほど速くなりました。

  %%   cumulative   self              self     total
 time   seconds   seconds    calls  ms/call  ms/call  name
 29.61    4.145     4.145        1  4145.00  9033.00  TclTkLib.mainloop
  8.01    5.266     1.121       66    16.98    36.11  Kernel.require
  6.80    6.218     0.952     7143     0.13     0.13  TclTkIp#__invoke
  5.30    6.960     0.742      734     1.01     1.01  TclTkIp#_invoke_without_en
c
  4.65    7.611     0.651        1   651.00   651.00  TclTkIp#_create_console
  4.44    8.232     0.621    33349     0.02     0.02  TclTkIp#_toUTF8
  4.08    8.803     0.571        1   571.00   571.00  TclTkIp#initialize
  3.72    9.324     0.521     7179     0.07     0.08  TclTkIp#_fromUTF8
  2.21    9.634     0.310        1   310.00   741.00  TkTreeCtrl_demo#make_sourc
e_window
  2.15    9.935     0.301     7213     0.04     0.13  Array#collect
  2.00   10.215     0.280     5166     0.05     0.51  TkObject#tk_send
  1.64   10.445     0.230        1   230.00   240.00  TkText#__destroy_hook__
  1.58   10.666     0.221      283     0.78    10.93  Array#each
  1.43   10.866     0.200     7834     0.03     0.49  TkCore._tk_call_core
  1.14   11.026     0.160     7834     0.02     0.44  TkCore._ip_invoke_core
  0.93   11.156     0.130     7141     0.02     0.44  TkCore.tk_call
  0.86   11.276     0.120     7145     0.02     0.34  TclTkIp#_invoke
  0.86   11.396     0.120        1   120.00   180.00  TkMenuSpec._create_menu_fo
r_menubar
  0.79   11.507     0.111        2    55.50  1707.00  Range#each
  0.79   11.617     0.110        1   110.00  4497.00  TkTreeCtrl_demo#demo_set
  0.71   11.717     0.100      197     0.51     0.56  TkComm.num_or_str

Thread

Prev Next

In This Thread

Prev Next