diff options
| author | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-04-07 14:55:55 +0000 |
|---|---|---|
| committer | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-04-07 14:55:55 +0000 |
| commit | 3e6f9cad3bea9d66eb2103a7571e1d2b05ca5181 (patch) | |
| tree | 0516cc5e401f374bd94f985a2126099751cea73c /ext/tk/sample/tkextlib/treectrl/random.rb | |
| parent | c07dcec8ccf60e54df7095237973cf44509114f6 (diff) | |
| download | ruby-3e6f9cad3bea9d66eb2103a7571e1d2b05ca5181.tar.gz ruby-3e6f9cad3bea9d66eb2103a7571e1d2b05ca5181.tar.xz ruby-3e6f9cad3bea9d66eb2103a7571e1d2b05ca5181.zip | |
* lib/treectrl/tktreectrl.rb: performance tuning. (call tk_send_without_enc
if possible)
* sample/tkextlib/treectrl/*.rb: some speed up... cache the result of
version checking.
git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@8265 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tk/sample/tkextlib/treectrl/random.rb')
| -rw-r--r-- | ext/tk/sample/tkextlib/treectrl/random.rb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/ext/tk/sample/tkextlib/treectrl/random.rb b/ext/tk/sample/tkextlib/treectrl/random.rb index 96cf31277..d952d476b 100644 --- a/ext/tk/sample/tkextlib/treectrl/random.rb +++ b/ext/tk/sample/tkextlib/treectrl/random.rb @@ -16,7 +16,7 @@ def demoRandom(t) :showlines=>true, :scrollmargin=>16, :xscrolldelay=>[500, 50], :yscrolldelay=>[500, 50]) - if (TkPackage.vcompare(Tk::TreeCtrl.package_version, '1.1') >= 0) + if $Version_1_1_OrLater t.column_create(:expand=>true, :text=>'Item', :itembackground=>['#e0e8f0', []], :tag=>'item') t.column_create(:text=>'Parent', :justify=>:center, @@ -83,7 +83,7 @@ def demoRandom(t) item_j = items[j] break if t.depth(item_j) < 5 } - if (TkPackage.vcompare(Tk::TreeCtrl.package_version, '1.1') >= 0) + if $Version_1_1_OrLater t.item_collapse(item_i) if rand(2) == 0 else # TreeCtrl 1.0 t.collapse(item_i) if rand(2) == 0 @@ -103,7 +103,7 @@ def demoRandom(t) item_j = nil numChildren = t.item_numchildren(item_i) if numChildren > 0 - if (TkPackage.vcompare(Tk::TreeCtrl.package_version, '1.1') >= 0) + if $Version_1_1_OrLater t.item_configure(item_i, :button=>true) else # TreeCtrl 1.0 t.item_hasbutton(item_i, true) @@ -191,14 +191,14 @@ def randomButton1(t, x, y) where, item, arg1, arg2, arg3, arg4 = id case arg1 when 'button' - if (TkPackage.vcompare(Tk::TreeCtrl.package_version, '1.1') >= 0) + if $Version_1_1_OrLater t.item_toggle(item) else # TreeCtrl 1.0 t.toggle(item) end when 'line' - if (TkPackage.vcompare(Tk::TreeCtrl.package_version, '1.1') >= 0) + if $Version_1_1_OrLater t.item_toggle(arg2) else # TreeCtrl 1.0 t.toggle(arg2) @@ -423,7 +423,7 @@ def randomDrop(t, target, src, pos) parentList.each{|item| numChildren = t.item_numchildren(item) if numChildren == 0 - if (TkPackage.vcompare(Tk::TreeCtrl.package_version, '1.1') >= 0) + if $Version_1_1_OrLater t.item_configure(item, :button=>false) else # TreeCtrl 1.0 t.item_hasbutton(item, false) @@ -436,7 +436,7 @@ def randomDrop(t, target, src, pos) # Update the target that gained some children if t.item_style_set(parent, 0) != 's1' - if (TkPackage.vcompare(Tk::TreeCtrl.package_version, '1.1') >= 0) + if $Version_1_1_OrLater t.item_configure(parent, :button=>true) else # TreeCtrl 1.0 t.item_hasbutton(parent, true) |