From e82a3d23c7e26839491c87fae854771d6cf3a8af Mon Sep 17 00:00:00 2001 From: ocean Date: Thu, 7 Apr 2005 18:02:18 +0000 Subject: [PATCH] * ext/tk/sample/tkextlib/treectrl/help.rb: fixed typo. (wrong color) git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8274 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/ChangeLog.tkextlib | 12 +++++++++++- ext/tk/sample/tkextlib/treectrl/help.rb | 5 ++--- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/ext/tk/ChangeLog.tkextlib b/ext/tk/ChangeLog.tkextlib index 545f574d5d..6a5338ed17 100644 --- a/ext/tk/ChangeLog.tkextlib +++ b/ext/tk/ChangeLog.tkextlib @@ -1,6 +1,16 @@ 2005-04-08 ocean - * sample/tkextlib/treectrl/*.rb: fixed typo. (wrong itemheight) + * sample/tkextlib/treectrl/help.rb: fixed typo. (wrong color) + +2005-04-08 ocean + + * sample/tkextlib/treectrl/random.rb: fixed typo. (wrong itemheight) + + * sample/tkextlib/treectrl/outlook-newgroup.rb: ditto. + + * sample/tkextlib/treectrl/explorer.rb: ditto. + + * sample/tkextlib/treectrl/help.rb: ditto. 2005-04-07 ocean diff --git a/ext/tk/sample/tkextlib/treectrl/help.rb b/ext/tk/sample/tkextlib/treectrl/help.rb index 4acd9c7382..be67cc5729 100644 --- a/ext/tk/sample/tkextlib/treectrl/help.rb +++ b/ext/tk/sample/tkextlib/treectrl/help.rb @@ -30,7 +30,7 @@ def demoHelpContents(t) 'blue', ['mouseover'] ]) t.element_create('e4', :rect, :showfocus=>true, - :fill=>[@SystemHighligh, ['selected', 'focus']]) + :fill=>[@SystemHighlight, ['selected', 'focus']]) # book s = t.style_create('s1') @@ -122,8 +122,7 @@ def demoHelpContents(t) treeCtrlHelp.bind('Button1-Motion', proc{|w, x, y| if w.selection_get.length == 1 - if (TkPackage.vcompare(Tk::TreeCtrl.package_version, - '1.1') >= 0) + if $Version_1_1_OrLater w.item_toggle(w.selection_get[0]) else # TreeCtrl 1.0 w.toggle(w.selection_get[0])