# Ruby/Tk $B%/%i%9L\>$N$f$l(B

**URL:** <https://www.ruby-forum.com/t/ruby-tk-b-i-9l-n-f-l-b/81225>\
**Category:** Development\
**Created:** [January 6, 2007, 7:30pm UTC](https://www.ruby-forum.com/t/ruby-tk-b-i-9l-n-f-l-b/81225 "2007-01-06T19:30:25Z")\
**Posts on this page:** 2\
**Page:** 1

<div class="post-metadata">

**Author:** ![Kazuhiro\_Y](https://www.ruby-forum.com/letter_avatar_proxy/v4/letter/k/35a633/32.png) [@Kazuhiro\_Y](https://www.ruby-forum.com/u/Kazuhiro_Y)\
**Post date:** [January 6, 2007, 7:30pm UTC](https://www.ruby-forum.com/t/ruby-tk-b-i-9l-n-f-l-b/81225/1 "2007-01-06T19:30:25Z")

</div>

moriqe$B$G$9!#e(B

Ruby/Tk e$B$K$O$$$/$D$+%/%i%9L\>$N$f$l$,$"$j$^$9$,!“e(B  
e$B%^%K%e%”%k$r:n@.$9$k\>e$G!"$I$A$i$+$KE}0l$7$?$$$G$9!#e(B

e$BNc$($P!"e(BBLT Tilee$B$Ne(Bcheckbuttone$B$O!"e(B  
Tk::BLT::Tile::Checkbuttone$B$NL\>A0$GDj5A$5$l!"e(B  
TkCheckbuttone$B$r7Q\>5$7$F$$$^$9!#e(B  
e$B$=$7$F!"e(BTk::BLT::Tile::CheckButtone$B$rJLL\>$H$7$FMQ0U$7$F$$$^$9!#e(B

tkextlib/blt/tile/checkbutton.rb:  
module Tk::BLT  
module Tile  
class Checkbutton \< TkCheckbutton  
TkCommandNames = [’::blt::tile::checkbutton’.freeze].freeze  
end  
CheckButton = Checkbutton  
end  
end

e$B$7$+$7!"e(BTke$B$Ne(Bcheckbuttone$B$r8+$k$H!"e(B  
TkCheckButtone$B$NL\>A0$GDj5A$5$l!"e(B  
TkCheckbuttone$B$rJLL\>$H$7$FMQ0U$7$F$$$^$9!#e(B

tk/checkbutton.rb:  
class TkCheckButton\<TkRadioButton  
…  
end  
TkCheckbutton = TkCheckButton

e$B$3$l$O$G$-$l$Pe(BBLT  
Tilee$B$NDj5A$re(BTke$B$K9g$o$;!"\<!$N$h$&$KJQ99$7$Fe(B  
e$BL\>A0$re(BCheckButtone$B$KE}0l$7$?$$$G$9e(B(e$B\>/$J$/$H$b%^%K%e%"%k\>e$Oe(B)e$B!#e(B

tkextlib/blt/tile/checkbutton.rb:  
module Tk::BLT  
module Tile  
class CheckButton \< TkCheckButton  
TkCommandNames = [’::blt::tile::checkbutton’.freeze].freeze  
end  
Checkbutton = CheckButton  
end  
end

e$B$"$H!"$[$+$K$O!De(B

tk/scrollable.rb:  
module X\_Scrollable

tk/scrollbar.rb:  
class TkXScrollbar\<TkScrollbar

\_ e$B$NIU$1J}$KE}0l46$,$J$$!#e(B

tk/canvas.rb:  
class TkCanvas\<TkWindow  
include TkCanvasItemConfig

- include Scrollable

- include Tk::Scrollable  
autoloade$B$KMj$C$F$$$k$h$&$K8+$($ke(B(module  
Tke$B$N30$K$"$ke(B)e$B$N$G!"e(B  
e$B$3$N$h$&$KJQ99$7$?$$!#e(B

e$B$J$I!“8D?ME\*$JMWK\>$H$7$F$”$j$^$9!#e(B

e$B$"$H!":3:Y$Je(Btypo:  
tkextlib/blt/table.rb:  
tk\_call(’::blt::table’, container)  
begin  
class \<\< container

- 

```
   include Tk::BLT::TABLE::TableContainer

```

- 

```
   include Tk::BLT::Table::TableContainer
 end

```

rescue  
warn(‘fail to include TableContainer methods (frozen object?)’)

---

<div class="post-metadata">

**Author:** ![Kazuhiro\_Y](https://www.ruby-forum.com/letter_avatar_proxy/v4/letter/k/35a633/32.png) [@Kazuhiro\_Y](https://www.ruby-forum.com/u/Kazuhiro_Y)\
**Post date:** [January 19, 2007, 4:31pm UTC](https://www.ruby-forum.com/t/ruby-tk-b-i-9l-n-f-l-b/81225/2 "2007-01-19T16:31:08Z")

</div>

e$B1J0f!wCNG=!%6e9)Bg$G$9!%e(B

From: Kazuhiro Y. [removed\_email\_address@domain.invalid](mailto:removed_email_address@domain.invalid)  
Subject: [ruby-dev:30080] Ruby/Tk e$B%/%i%9L\>$N$f$le(B  
Date: Fri, 5 Jan 2007 11:53:02 +0900  
Message-ID: [removed\_email\_address@domain.invalid](mailto:removed_email_address@domain.invalid)

> Ruby/Tk e$B$K$O$$$/$D$+%/%i%9L\>$N$f$l$,$“$j$^$9$,!“e(B  
> e$B%^%K%e%”%k$r:n@.$9$k\>e$G!”$I$A$i$+$KE}0l$7$?$$$G$9!#e(B

e$B$$$$$+$2$s$J:n$j$G$9$\_$^$;$s!%e(B\<_O_\>

> e$BNc$($P!"e(BBLT Tilee$B$Ne(Bcheckbuttone$B$O!"e(B  
> Tk::BLT::Tile::Checkbuttone$B$NL\>A0$GDj5A$5$l!“e(B  
> TkCheckbuttone$B$r7Q\>5$7$F$$$^$9!#e(B  
> e$B$=$7$F!“e(BTk::BLT::Tile::CheckButtone$B$rJLL\>$H$7$FMQ0U$7$F$$$^$9!#e(B  
> (snip)  
> e$B$3$l$O$G$-$l$Pe(BBLT Tilee$B$NDj5A$re(BTke$B$K9g$o$;!”\<!$N$h$&$KJQ99$7$Fe(B  
> e$BL\>A0$re(BCheckButtone$B$KE}0l$7$?$$$G$9e(B(e$B\>/$J$/$H$b%^%K%e%”%k\>e$Oe(B)e$B!#e(B

e$B!VN\>J}$NL\>A0$,;H$($l$P$$$$$@$m$&!W$H$$$&DxEY$N4E$$9M$($G$7$?!%e(B(^\_^;  
e$B$?$@!$e(BTcl/Tk e$B$N%3%^%s%IL\>$Oe(B checkbutton e$B$G$9$+$i!$e(B  
e$B$I$A$i$+$H8@$($Pe(B TkCheckButton e$B$,NI$/$J$$$h$&$K$b;W$$$^$9!%e(B  
e$B$I$&$7$^$7$g$&$+$M$'!%!%!%e(B  
e$BCV$-49$($F$7$^$C$F$b$5$7$?$kLdBj$O$J$$$H$O;W$&$N$G$9$,!%!%!%e(B

# e$B:#$O$$$m$$$m$H\<j0lGU$@$7!%!%!%e(B

Tk::Checkbutton e$B$J$I$K$7$?J}$,%0%m!\<%P%k$JL\>A06u4V$X$N1F6A$,e(B  
e$BM^$($i$l$F$$$$$+$J$H9M$($?$3$H$b$"$C$?$N$G$9$,!$e(B  
e$B8\_49@-$N$3$H$r9M$($FJ|CV$7$F$^$9!%e(B

> e$B$“$H!”$[$+$K$O!De(B
> 
> tk/scrollable.rb:  
> module X\_Scrollable
> 
> tk/scrollbar.rb:  
> class TkXScrollbar\<TkScrollbar
> 
> \_ e$B$NIU$1J}$KE}0l46$,$J$$!#e(B

e$B$\*$C$7$c$kDL$j$G$9!%e(B  
e$BL\>A0$rIU$1$k$H$-$KLB$C$F%U%i%U%i$7$F$$$k$N$,$=$N$^$^=P$F$7$^$C$F$^$9$M!%e(B  
e$B2a5n$K!V$9$Y$F%“%s%@!\<%9%3%”$J$7$K!W$H;W$C$?$3$H$b$“$C$?$N$G$9$,!$e(B  
e$B$=$&$9$k$HJ,$+$j$E$i$/$J$k%1!\<%9$,$”$C$FF’$\_@Z$l$J$+$C$?$h$&$Je(B  
e$B5-21$b$"$j$^$9!%e(B  
e$B$?$@!$$I$s$J%1!\<%9$@$C$?$+$O40A4$KK:$l$F$7$^$C$F$$$k$N$G!$e(B  
e$B5$$N$;$$$+$b$7$l$^$;$s!%e(B

> tk/canvas.rb:  
> class TkCanvas\<TkWindow  
> include TkCanvasItemConfig
> 
> - include Scrollable
> 
> - include Tk::Scrollable  
> autoloade$B$KMj$C$F$$$k$h$&$K8+$($ke(B(module Tke$B$N30$K$"$ke(B)e$B$N$G!"e(B  
> e$B$3$N$h$&$KJQ99$7$?$$!#e(B

e$B$"$!!$$J$k$[$I!%e(B  
e$B$3$l$r$d$k$H$9$k$H!$=$@58D=j$O7k9=$?$/$5$s$K$J$k$+$b$7$l$^$;$s$M!%e(B

> e$B$J$I!“8D?ME\*$JMWK\>$H$7$F$”$j$^$9!#e(B

e$B!V$J$I!W$H$$$&$H$3$m$,5$$K$J$j$^$9!%e(B(^\_^)  
e$BNI$+$C$?$iJ9$+$;$F$/$@$5$$!%e(B

> e$B$“$H!”:3:Y$Je(Btypo:

e$B$"$j$,$H$&$4$6$$$^$9!%\<j$,6u$$$?$i=$@5$7$F$\*$-$^$9!%e(B

# e$B$&!A$`!%=IBj$,$?$^$k0lJ}$@$J$!!%!%!%e(B