From 8245833fb4f48fc541491498e5013f9b5d17d8bc Mon Sep 17 00:00:00 2001 From: nagai Date: Fri, 25 Nov 2005 07:12:58 +0000 Subject: [PATCH] commit miss. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9616 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tk/sample/tkextlib/tile/themes/kroc.rb | 55 +++--- ext/tk/sample/tkextlib/tile/themes/kroc.tcl | 163 ------------------ .../tkextlib/tile/themes/kroc/button-h.gif | Bin 522 -> 0 bytes .../tkextlib/tile/themes/kroc/button-n.gif | Bin 554 -> 0 bytes .../tkextlib/tile/themes/kroc/button-p.gif | Bin 548 -> 0 bytes .../tkextlib/tile/themes/kroc/check-hc.gif | Bin 281 -> 0 bytes .../tkextlib/tile/themes/kroc/check-hu.gif | Bin 273 -> 0 bytes .../tkextlib/tile/themes/kroc/check-nc.gif | Bin 303 -> 0 bytes .../tkextlib/tile/themes/kroc/check-nu.gif | Bin 294 -> 0 bytes .../tkextlib/tile/themes/kroc/radio-hc.gif | Bin 652 -> 0 bytes .../tkextlib/tile/themes/kroc/radio-hu.gif | Bin 644 -> 0 bytes .../tkextlib/tile/themes/kroc/radio-nc.gif | Bin 632 -> 0 bytes .../tkextlib/tile/themes/kroc/radio-nu.gif | Bin 621 -> 0 bytes .../sample/tkextlib/tile/themes/pkgIndex.tcl | 15 -- 14 files changed, 29 insertions(+), 204 deletions(-) delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc.tcl delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/button-h.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/button-n.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/button-p.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/check-hc.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/check-hu.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/check-nc.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/check-nu.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/radio-hc.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/radio-hu.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/radio-nc.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/kroc/radio-nu.gif delete mode 100644 ext/tk/sample/tkextlib/tile/themes/pkgIndex.tcl diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc.rb b/ext/tk/sample/tkextlib/tile/themes/kroc.rb index ab782b8c36..f67ce7a897 100644 --- a/ext/tk/sample/tkextlib/tile/themes/kroc.rb +++ b/ext/tk/sample/tkextlib/tile/themes/kroc.rb @@ -5,7 +5,7 @@ # >> kroc.tcl - Copyright (C) 2004 David Zolli # -imgdir = File.join(File.dirname(__FILE__), 'kroc') +imgdir = File.join(File.dirname(__FILE__), 'kroc', 'kroc') $images = Tk::Tile.load_images(imgdir, '*.gif') if TkPackage.vcompare(Tk::Tile.package_version, '0.5') >= 0 @@ -97,28 +97,31 @@ def kroc_rb_settings # if TkPackage.vcompare(Tk::Tile.package_version, '0.5') >= 0 - Tk::Tile::Style.element_create('Button.button', :image, $images['button-n'], + Tk::Tile::Style.element_create('Button.button', + :image, $images['button-n'], :map=>[ :pressed, $images['button-p'], :active, $images['button-h'], ], :border=>3, :sticky=>:ew) - Tk::Tile::Style.element_create('Checkbutton.indicator', :image, $images['check-nu'], + Tk::Tile::Style.element_create('Checkbutton.indicator', + :image, $images['check-nu'], :map=>[ - [:pressed, :selected], $images['check-nc'], - :pressed, $images['check-nu'], - [:active, :selected], $images['check-hc'], - :active, $images['check-hu'], - :selected, $images['check-nc'], + [:pressed, :selected],$images['check-nc'], + :pressed, $images['check-nu'], + [:active, :selected], $images['check-hc'], + :active, $images['check-hu'], + :selected, $images['check-nc'], ], :sticky=>:w) - Tk::Tile::Style.element_create('Radiobutton.indicator', :image, $images['radio-nu'], + Tk::Tile::Style.element_create('Radiobutton.indicator', + :image, $images['radio-nu'], :map=>[ - [:pressed, :selected], $images['radio-nc'], - :pressed, $images['radio-nu'], - [:active, :selected], $images['radio-hc'], - :active, $images['radio-hu'], - :selected, $images['radio-nc'], + [:pressed, :selected],$images['radio-nc'], + :pressed, $images['radio-nu'], + [:active, :selected], $images['radio-hc'], + :active, $images['radio-hu'], + :selected, $images['radio-nc'], ], :sticky=>:w) else # tile 0.4 or earlier @@ -132,22 +135,22 @@ def kroc_rb_settings Tk::Tile::Style.element_create('Checkbutton.indicator', :pixmap, :images=>[ - [:pressed, :selected], $images['check-nc'], - :pressed, $images['check-nu'], - [:active, :selected], $images['check-hc'], - :active, $images['check-hu'], - :selected, $images['check-nc'], - '', $images['check-nu'], + [:pressed, :selected],$images['check-nc'], + :pressed, $images['check-nu'], + [:active, :selected], $images['check-hc'], + :active, $images['check-hu'], + :selected, $images['check-nc'], + '', $images['check-nu'], ], :tiling=>:fixed) Tk::Tile::Style.element_create('Radiobutton.indicator', :pixmap, :images=>[ - [:pressed, :selected], $images['radio-nc'], - :pressed, $images['radio-nu'], - [:active, :selected], $images['radio-hc'], - :active, $images['radio-hu'], - :selected, $images['radio-nc'], - '', $images['radio-nu'], + [:pressed, :selected],$images['radio-nc'], + :pressed, $images['radio-nu'], + [:active, :selected], $images['radio-hc'], + :active, $images['radio-hu'], + :selected, $images['radio-nc'], + '', $images['radio-nu'], ], :tiling=>:fixed) end diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc.tcl b/ext/tk/sample/tkextlib/tile/themes/kroc.tcl deleted file mode 100644 index 73548acef2..0000000000 --- a/ext/tk/sample/tkextlib/tile/themes/kroc.tcl +++ /dev/null @@ -1,163 +0,0 @@ -# kroc.tcl - Copyright (C) 2004 David Zolli -# -# A sample pixmap theme for the tile package. - -#package require tile::pixmap - -namespace eval tile { - namespace eval kroc { - variable version 0.0.1 - } -} - -namespace eval tile::kroc { - - set imgdir [file join [file dirname [info script]] kroc] - array set Images [tile::LoadImages $imgdir *.gif] - - if {[package vsatisfies [package provide tile] 0.5]} { - set TNoteBook_Tab TNotebook.Tab - } else { - set TNoteBook_Tab Tab.TNotebook - } - - style theme create kroc -parent alt -settings { - - style default . -background #FCB64F -troughcolor #F8C278 -borderwidth 1 - style default . -font TkDefaultFont -borderwidth 1 - style map . -background [list active #694418] - style map . -foreground [list disabled #B2B2B2 active #FFE7CB] - - style default TButton -padding "10 4" - - style default $TNoteBook_Tab -padding {10 3} -font TkDefaultFont - style map $TNoteBook_Tab \ - -background [list selected #FCB64F {} #FFE6BA] \ - -foreground [list {} black] \ - -padding [list selected {10 6 10 3}] - - style map TScrollbar \ - -background { pressed #694418} \ - -arrowcolor { pressed #FFE7CB } \ - -relief { pressed sunken } \ - ; - - style layout Vertical.TScrollbar { - Scrollbar.trough -children { - Scrollbar.uparrow -side top - Scrollbar.downarrow -side bottom - Scrollbar.uparrow -side bottom - Scrollbar.thumb -side top -expand true - } - } - - style layout Horizontal.TScrollbar { - Scrollbar.trough -children { - Scrollbar.leftarrow -side left - Scrollbar.rightarrow -side right - Scrollbar.leftarrow -side right - Scrollbar.thumb -side left -expand true - } - } - - # - # Elements: - # - if {[package vsatisfies [package provide tile] 0.5]} { - - style element create Button.button image $Images(button-n) \ - -map [list \ - pressed $Images(button-p) \ - active $Images(button-h) \ - ] -border 3 -sticky ew - - style element create Checkbutton.indicator image $Images(check-nu) \ - -map [list \ - {pressed selected} $Images(check-nc) \ - pressed $Images(check-nu) \ - {active selected} $Images(check-hc) \ - active $Images(check-hu) \ - selected $Images(check-nc) \ - ] -sticky w - - style element create Radiobutton.indicator image $Images(radio-nu) \ - -map [list \ - {pressed selected} $Images(radio-nc) \ - pressed $Images(radio-nu) \ - {active selected} $Images(radio-hc) \ - active $Images(radio-hu) \ - selected $Images(radio-nc) \ - ] -sticky w - - } else { - - style element create Button.button pixmap -images [list \ - pressed $Images(button-p) \ - active $Images(button-h) \ - {} $Images(button-n) \ - ] -border 3 -tiling tile - - style element create Checkbutton.indicator pixmap -images [list \ - {pressed selected} $Images(check-nc) \ - pressed $Images(check-nu) \ - {active selected} $Images(check-hc) \ - active $Images(check-hu) \ - selected $Images(check-nc) \ - {} $Images(check-nu) \ - ] -tiling fixed - - style element create Radiobutton.indicator pixmap -images [list \ - {pressed selected} $Images(radio-nc) \ - pressed $Images(radio-nu) \ - {active selected} $Images(radio-hc) \ - active $Images(radio-hu) \ - selected $Images(radio-nc) \ - {} $Images(radio-nu) \ - ] -tiling fixed - - } - - # - # Settings: (*button.background is not needed in tile 0.5 or above) - # - style layout TButton { - Button.button -children { - Button.focus -children { - Button.padding -children { - Button.label -expand true -sticky {} - } - } - } - } - - style layout TCheckbutton { - Checkbutton.border -children { - Checkbutton.background - Checkbutton.padding -children { - Checkbutton.indicator -side left - Checkbutton.focus -side left -children { - Checkbutton.label - } - } - } - } - - style layout TRadiobutton { - Radiobutton.border -children { - Radiobutton.background - Radiobutton.padding -children { - Radiobutton.indicator -side left - Radiobutton.focus -expand true -sticky w -children { - Radiobutton.label -side right -expand true - } - } - } - } - - } } - -# ------------------------------------------------------------------------- - -package provide tile::theme::kroc $::tile::kroc::version - -# ------------------------------------------------------------------------- diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/button-h.gif b/ext/tk/sample/tkextlib/tile/themes/kroc/button-h.gif deleted file mode 100644 index e7a140dede3b77dc0be6ff24ea030d6cfd48efcb..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 522 zcmZ?wbhEHbRA5kGXklRZ4+PJ4eVS*M=_2ueSLFZ0sgGva{om&Me@F2DE$;vK#ediw z{eP3=qeTJ#4<`NJ6Z2@E$A@JOm-}olPjdUP!tK!<7Y2wSAcL>~#h)yUTnzFIIzVMW z8x{WJ#?fedcJ&a9d4O>+fI=QCfsoxS(Okk2yytD%EstkhxM8|--~ICECPn^l_bqL- zxXpZ~_wwa@!azJ70ddua07tJAdp&v?RdBTsfxo5chLjw!mAcXq_EaWx+g=sxP} z%ocab{3&Crv`B~Ol}!g92)QUq-o3f`%UR(w)0dhw1s`3SHZRn%=v=ed3iXYgJW<~= z*jEL}I4)sRtrT-RxVkV)z~s!Y1s6k-{{G;tHP=np$UgJa!`VWeLbAHf2UdOwTEHaQ zwZH47&SMSXW6Ybo}LzC^VoN0r*SH`A_Idp E0A4Ba@Bjb+ diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/button-n.gif b/ext/tk/sample/tkextlib/tile/themes/kroc/button-n.gif deleted file mode 100644 index 78b506ddebf2a392e1310f849726a8d4243ee212..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 554 zcmV+_0@eLTNk%w1VITk?0E7Sl|NsC0=DPBpHvhU=|F~2CzF*>+KL4~w|G{Ga!)4;4 zQ2(+)|F%tOL>Tb1TmQUV;+{zGra=F;O4E)#(~?Hwo=WhjM&g`A00030|NsC0|NsC0 z|NsC0|NsC0|NsC0A^8LW3IHDfEC2ui03ZM$000I4AP|gXX`bjP1OrhR2Z0!F0uRbE zyt{G?HpYw52rz&K2EleHI1IYnE?LOQXv3n8iEQSMzUkp%oe7~@LSaKV3oZsz3q>*zkyVk442?fMurETKt5hd zpjHo9b)`@)3W`>mKoBtw5mRTR5;La-6ETZ`WIv0_G_R5eT5yuKnNr6~lP@k5q;XJU z1A7Zi5J$)1R1{+h5teWaOiMnascW>%gzq*4^?|9(_m)&}M*|*=2j@VY+lR}B9c=~) zAmnpH96B)g0$@9}uV2S&`v`=YK`3O90>`Kj(fAiJ6iF6L&In1VZ6Y!YN*oy=WX2o6 zYeP^{B*5U-P8Kf?2r_51#+O%sY6-cJ55`h?IO;Y6uNBs1?`q)BiA<3CDRRgR*&DM`^ye5@?H s^6QM2h$1lq(gbfXox@b?Ml4E=7GI-c_3RYTptkMXxO3~SjUfa8I|-uoR{#J2 diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/button-p.gif b/ext/tk/sample/tkextlib/tile/themes/kroc/button-p.gif deleted file mode 100644 index a5a4e90be194e4298e69cfdb89692cbcd89c2b72..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 548 zcmZ?wbhEHbRA5kGXklRZ4+PJ4eVS*M=_2ueSLFZ0sgGva{om&Me@F2DE$;vK#ediw z{eP3=qeTJ#4<`NJ6Z2@E$A@JOm-}olPjdUP!tK!<7Y2wSAcL>~#eafsiJ2t|iDjwD z3OT6??wPp-42nNl7`Yha8FYYpfzD81U|{{Xz_ceNbKVOLo}^d%oD8fuk~P``WqdY& z-x0U)nu9_~dqa-Eo~Id{@`f63Ws97jdIav4mEZHKS3q}ybc^%RHL0KGut`lw2wqbA z(B0{KhW)M>4_m&JxYQEfMpmxe7#@LoKPMJgei7d&O|2x#j*O#RZ4v&Q#|N z-EH+(=oNzo_hga0{0h?xmsj0e!aPfeM=RyE+w8EZy&NwJ*it0)^aZ9@7%s?vD4ETn z8qsx`t#2*|w}B(aj1x~a-Pt(4@O)YBesuA!fX1e&C7G&9o6bG3FkSLgncX|o$|=}O zTSs%bOX$><4DtL;Wy|;uIURp_DQ&^42p{H_b-ZRd^935K+wzt2S{eFh{LG!KYhot0 eCDt?Cn@4qqarV74k`4{0=Qwwt<56H?um%82RQS^X diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/check-hc.gif b/ext/tk/sample/tkextlib/tile/themes/kroc/check-hc.gif deleted file mode 100644 index 41503c5ebd8025e8f81d60c5438511779c8dccad..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 281 zcmZ?wbhEHb6k-r!XklRZ4+PJ4eVS+Xe~bJ7U6KC}r#@N~@PA+Y|82hicLYD0W%qxR zW2ZO6qj?@5Hb;M0=J0<{%>RQ)|DSC6u)>W2q8(%ePN4Xcg^`OvoTM?p}?lhMV{$Vk|}prtUmjmtr9#MlLSs4 zl;RMZCfK=3NH^)NS=vnDbF7QZB-U@y;`kOO&AwHLQ-C$1I62ll)w-aCha=Z6BdxeM zxkrzqVhUR_SCf~3aJOHC>FlCfn?jR$>>bFIeDKgg5k&@T E0Iy7e;Q#;t diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/check-hu.gif b/ext/tk/sample/tkextlib/tile/themes/kroc/check-hu.gif deleted file mode 100644 index b3e512ca6774eae3685d075aaf3e662fa78113d8..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 273 zcmZ?wbhEHb6k-r!XklRZ4+PJ4eVS+Xe~bJ7U6KC}r#@N~@PA+Y|82hicLYD0W%qxR zW2ZO6qj?@5Hb;M0=J0<{%>RQ)|DSC6u)>W2q8(%ePN4Xcg^`OvoaaOB4L>+cvkkO8ZxrWqX~!hxRQ)|DSC6u)>W2q8(%ePN4Wt&@C~uL?N*(HCe$YRlz+o zw}3(MCkrDNgFJ%{&;+0}gculDrz;%oNy#)~TI_Hl!G&d!3}=$a5up`ZqAzT|vvymw zqL{e?Z>O^e|M4X`mP#sR!eYXcW+-}GNLpCBd7X#-@>LTOW_dnctz}dt$hIWcX_Hz{ zfr=BW0CQ3u4{Ji8MG;qnsxhbCBv%7&6%Jl@W)Fkb?A%ZfZ|AJO@>IPj=lT46lXxu_ b=PtGOu$*W%+pe6EiSfX}Lx&j|6d9}mCp3uS diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/check-nu.gif b/ext/tk/sample/tkextlib/tile/themes/kroc/check-nu.gif deleted file mode 100644 index 5c23931bbcc6e98a772c1530eae24f41708bc0f3..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 294 zcmZ?wbhEHb6k-r!XklRZ4+PJ4eVS+Xe~bJ7U6KC}r#@N~@PA+Y|82hicLYD0W%qxR zW2ZO6qj?@5Hb;M0=J0<{%>RQ)|DSC6u)>W2q8(%ePN4Wt&@C~uL?N*(HCe$YRlz+o zw}3(MCkrDNgFJ%{&;+0}gculD`xK7$q+}W~Ep|AO;KH&Po}r0-{XCM2mpS>*V3ZP>pXbE*R6e{Tu+cXLjElKRv6 zPX8XP{kPfu|DKpfv+VwD4|+P^`QL*zPZqf>%GbU)#pBoc-X}}E{vOKwcPRDW&ak(e z694Uu{dZ^Szf1l9_9y+@7yoZpo*~Qt(kwf3X-p;nCNy0`z zh@VfNUy#>YqDR7tcMgLo69eB$OX+5L3o%|MMn>74jHYwUnVZb?#7y_>-YF|R*Q8!k zRY>f_uH%ezjkSyng_JMfV^kC5WR%cXWV(OyiJk$|Q=u1EUrFfcGU;dwX}!FnDX5|D zw}hirXJSL8U`%mAec~SQKA0w}(qyd3xwTr?Y{hv`NZ?l7|;qqXo1$5>y%v nv2ZR@sK`2ypt_8aTSUd7;D7@ole{4(lYj$*9>WYKMh0sDN3DIm diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/radio-hu.gif b/ext/tk/sample/tkextlib/tile/themes/kroc/radio-hu.gif deleted file mode 100644 index 9f46b37926ac6aeb9f46b673d06cb352cda6628b..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 644 zcmZ?wbhEHb6k-r!IL5#*AxW(&P%hh5qBTlsQGwReg$}=WML$~P|8JY`@2vq(m;2Aj z)VMO;?f)jn|2u;J?~8x5DB%CD$p42^AI`M<^e(}tj@i=Ce? zcKdfU_uri*iwd;=A58jwre{Ku`jbVDk7n7uT^siA#+<4^`QKXtp3Zmr_h9Y6&F=r6 z?)bMo=;?gte-GC5gH*cwyE$i3zV@&4y-${S{XLZV?@;Q$ondb`CH~tR`|r-uf0z3I z?N9o*FaF=I$bUz&zn|;>cX#Q(n{)p?SoePj0>yuVZi$&C3W;T@$qGKH3hti10St;i zSs1w(>KSwxfB+Ox4D4qb>YJLKG_|#zotnFw9UbiLIFxN|tgU*Qv@HdM`1zFi1$iyB zd$i4Y=geEcx6(|iS=Ll+x*c{-Po}r0-{XCM2mpS>*V3ZP>pXbE*R6e{Tu+cXLjElKRv6 zPX8XP{kPfu|DKpfv+VwD4|+P^`QL*zPZqf>%GbU)#pBoc-X}}E{vOKwcPRDW&ak(e z694Uu{dZ^Szf1l9_9y+@7yoZp-_*>&$i&3R(A?e3%)-jX&cVsW&D_((#KX(SFTg7(BrL+z!z4OiOk6@jTu4At zO1f8Oy#(V9*&PyddNZ UojVeuN)~cxi-{YsGBH>K0B~A*kN^Mx diff --git a/ext/tk/sample/tkextlib/tile/themes/kroc/radio-nu.gif b/ext/tk/sample/tkextlib/tile/themes/kroc/radio-nu.gif deleted file mode 100644 index 2d2aac85971aa36f3b4dbdd56d69cfcd5cf9e763..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 621 zcmZ?wbhEHb6k-r!IL5#*AxW(&P%hh5qBTlsQGwReg$}=WML$~P|8JY`@2vq(m;2Aj z)VMO;?f)jn|2u;J?~8x5DB%CD$p42^AI`M<^e(}tj@i=Ce? zcKdfU_uri*iwd;=A58jwre{Ku`jbVDk7n7uT^siA#+<4^`QKXtp3Zmr_h9Y6&F=r6 z?)bMo=;?gte-GC5gH*cwyE$i3zV@&4y-${S{XLZV?@;Q$ondb`CH~tR`|r-uf0z3I z?N9o*FaF=I$bUz&zn|;>cX#Q(n{)p?SoePj0>z&!j9d)$3_1)z0E!a^_EQb@P0b99 zOiYXn&E3t+EUawo9GqO-%sov^JiL7T0=$Ak!XivPOrrC}#04Z4u91}Ll@^*mcmBFL zGO|r_g7Whv_=UxG>{F;$RN~trF;{uPmJ2GXYU(@0_?6e5S*W4Oq$Pe)@aBc>Ldx1q zI*(S~T)TgP{7Xj8>o53roYvLTH{ib*(tG0gnI;w?!+$3jUgRb0W?PlUA?2Vv%Q%NI z`;E|&gKlec<}SJ$aWI3GFF--^nL?-MaXvX)H-!%$nLPx2x?6Z6H!8IX_%t#wSOWk> C@qelS diff --git a/ext/tk/sample/tkextlib/tile/themes/pkgIndex.tcl b/ext/tk/sample/tkextlib/tile/themes/pkgIndex.tcl deleted file mode 100644 index 179077917c..0000000000 --- a/ext/tk/sample/tkextlib/tile/themes/pkgIndex.tcl +++ /dev/null @@ -1,15 +0,0 @@ -# pkgIndex.tcl for additional tile pixmap themes. -# -# We don't provide the package is the image subdirectory isn't present, -# or we don't have the right version of Tcl/Tk -# -# To use this automatically within tile, the tile-using application should -# use tile::availableThemes and tile::setTheme -# -# $Id$ - -if {![file isdirectory [file join $dir kroc]]} { return } -if {![package vsatisfies [package provide Tcl] 8.4]} { return } - -package ifneeded tile::theme::kroc 0.0.1 \ - [list source [file join $dir kroc.tcl]]