永井@知能.九工大です.

TkFont クラスを試験的にインプリメントしてみたものを添えます.
実際に利用するには,tk.rb 等の configure 関連の修正と擦り合わせが
まだまだ必要ですが,こんな仕様で構わないかどうかを含め,
ざっと眺めてでもチェックしていただけると助かります.

この TkFont クラスを使うことで,Tk4.x-jp と Tk8.0-jp とで共通に
font 指定を行うことができる *つもり* です.(^_^;
とはいえ,ないものはどうしようもないですから,
Tk8.0 の font の扱いに関連するメソッドは,Tk4.x の場合には
単なるダミー (エラーを出さない程度のもの) になっています.
ただし,Tk4.x でも,同一の TkFont オブジェクトを
フォントに指定されたウィジェットは,
その TkFont オブジェクトのフォント設定が変更された場合に,
すべて同時にフォントが変更されるようになる *はず* です.;;;^_^;;;

-- 
                                         永井 秀利 (九工大 知能情報)
                                             nagai / ai.kyutech.ac.jp
begin 666 tkfont.rb.test.gz
M'XL("*ECHS4" W1K9F]N="YR8BYT97-T .4:67/;QOF9_!5;V0T &Z(IQ0^*
M9YA8;>RI&T>9297V@6$X$+ 4(8( !P!U6%)_>[^]+P $;66F,]:#3>Q^][T+
MQ%E45>A\];[(ZR%":1YGVP3# CS@VQKG"?S^>U'B(2R<K^8$[L./:(*FXYE:
M.8O6^/QO'V'Y_E&M_E:I15C]\=W[T]\^GL\_GIY_.)N__^7L?'YV^O,[V/>B
MH]?>:%%B_ EK@#^=GOWS@PFXT@ !\MGN/P*%8JKE&M?+(JEZXR5XP2TS6D3K
M-$MQY=^D>5+<3/(T"P "H3BJ,/+/5V_>G/\T__>[7__UX9<SMG.SQ#EZ]<?K
MT8M7]!FAJ;=(;W'BS88ZP(D"2!>(T1\.LK2J_7HUCZ,L\[T%R."%R!-BD-^'
M25IMLNBN6, 30PL"3@AG%=Y)0T'GR5#]3_XUE<_!NQ6%*(GC9WLK7J*7$ZE]
MR-P=,F?..(@92",<Q<OY=91M\?U#<7'U@,K19ELM??@=/+98KUE=*CSH2DG>
M/RP>A@,P\P)-_@O8_EL"-AT??C=[&?CQ0_:P"IZ_&@Z0X&>*-7U^- N(EYX?
MHPE$8^P-!\S4$F$1P!*W)T*/0]V^I;)NOP#<E.EU5..] C;-TSJ-LO03]K,Z
M)X$:HE5^Q7_@NTK%[MLT 7\NBG(=U?X!-<5?1Z^3@U E.F0Y@]57B#>/AJ[7
MID!P!A0KG"U8B(,$\-R6^-L\PY"6 ,0BJL2@[#R+ZC0GLA#Y T8'%-#HV'6!
MTP$@G<XJRJ]22@<V.!V^%1?K3;'-$[8+-@G,N)]?XGI.-N=$DOFB+-;S942\
M"VO,'@N"7]XA$,LG0-20$$H>W_!F:%07\RKX@1351?$&>2\\ADGR#Q!=3+H!
MB&V8-SB]7-8-F&RC [/*HIP@.IAT@R"V8MZD2;ULPJ0;'3RCI*KO,NQB\HUV
M"VV@3F15 T^VT<%S4Z1YW8A)-SHP2US=HB8+D0UJH [,NS;,NT[,:A/%N-$K
M9*/+*]'UY7^H7QS;\@UOUH(9+Z.RPK7+DV^T>P7G<9&D^:6#*38:>5+4T[*,
M[OPI3XV0IT#( SIDX1GR6 M%Y(2(U%41#B%W;DA=1?\%"M12H;1'*/0+I;@S
M*[?M*C.O5Z]O:6*KPD@:!&E\*^BJ\V+Q _H')#\OZ6\E)IE'#CWT<D>Y&%V!
MW#Y !@ *_S&3@$8.%VHFSF;!37S_J"]H18);?\R,K@8(NGHT0]]\(W_^!00=
M>_H*:WX/O[]\. Q\WOY(WR.M[8BV-I!S()G*O)L("HRI;'X"3F29 R<[HOK%
M<(Y'HT, 8\V9NAT:-)LMZ!.T4]KIO9RTJ4R72E8]Z#@$5$!>%%G2!P[<%.4Z
MH"B&H'[I":BTAF8:MX"EGMGM/R=&R/,>02)'=8<1A:,+E)$D@=N A\U3G]T_
M]\X0B?E59LCSXZZ\H+LJ&RB<"^4=?>M]50FS3\A\4<+HC!@<66A)&!NX.V'T
MJ9+EC!@M@92^20Y14Y6-LQ!-%:L9.Q'1:;S*"@)\SPXSD^\5#CD]"0RR(1\>
M=W:[D[&5RT9=(&<",&C&#=J5Y\Y1BS&#7[J<+XC3YJMKENI!K]3N1]D[C(O-
M'2Q&!/48D.@)< <?(QSV9&15V, .F,\@%_2NP:[?]/#D?EOU\)LH@6KD&PXZ
M))=<FGTIBE@_"L/! -3G? 'H*JUNQ\?CD]'1=R??>JT<Q 7%Y\>-)L/NN&FB
M5.2+]');-A!KTR88?G$0-DEM5:U@N$<4MM$3HS;JHT^_\@?AVE[^>+3&7D>M
MTU%8B^]03 <6RA -V2I '#R[5SGXB.!)E<P#+>ZHS-:1H1*=*"Y*S"H[OV_3
M+T'8;>>4[8PV4;V<,4W9V9TMRS#RI=([F($==6:]Z41QO8TR361F&G5_&:)B
M4Z=%K@K*,Y1LU^L[44#8-@^J@P,[S/BA#LF)*YS.2"OSJO03E@]\EI![=!1@
M3R+DIAZX")=9FBNTXAJ755VF*[4DX])"IF-3E%QM*[:'9BTUU;0(+Z?=%I%6
M8-=](IP<F]C6TBYRG:!E8LC$.SA\=L]P'P]V5%0'4]X 'P@U6NBI^BF\ET%L
M @/ 3VM6_S29!X.&9.O!/2"H3/C=)!APG@3RDEC>+9/;W33#Y+IRDHVJ9;JH
MZ>0-SVST5IX -A+"O(I%4P"?'M%Q.11 L^:S:-E2V426.6E$$BY$]()Z<E;D
MF"E! \+!I_.K3> KRSW'DC+]FBT))B ;77,G:NS-UJ B"F-3@^PB0+*(X)+>
M0&7K4DMWL-3KJ4I)YR325D(Z$WTGQ>#_."79]%UBJ#RQGI;T74'36P1KVY@4
MR+L,T% [BIGSR)29B/9Q">/V_%&RW? #.13@-'E078"\86%#P. "0Z 06^C=
M6_A D8>R6.(JWE*S6:,%$00"JLE@;$*B;UX,>[%!T;47?2?2]+;$VC;M=<3L
MI0ZKMKW4H90:33X^K=$4%WVF?6++-48:I+<,)2>/$IQAZ[37&I,ZH9Y>(Q.U
M<$L';\T>+?[5";F\USBJS)8G1HL:WW*BXTX4.;+J*&J\8.;/M^L+7+K%B--J
M&NH'_(3BOOCFC)SBMS<3G8Q=>M88FF)<M8S43]?2HRK&N6K;"3:?2:]F+XC$
M"G^OWM5_+=FMX;>C6[D#;;M-*8OFKF1.MGU)")>C/K/N$PZ[2A JA\&\SZ1K
MXN\[Z';T2G*3G<[Z],J^7\;P3PQ0E*51_R]CVC[^L#_]H%2=\M?:IET<=<75
MUJI<'..NH>UN5D,S3MP\WMPCOX:@'221^+./V[I8QNS+P!M.%@Z&'"LU#/,L
MH:&XW0JUS4H:EMMG4-O$H&'IY5[H[W0- UX5'P5O%=.A"I^3WT?CSXB?D_'^
M\=.$TR-^#+0^\6,@[(X?4ZP^\=. L2M^#)3>\6-@]8X? ZM'_%CP.^,'X/?^
MN&I[D:7Q7M]6":\:-W*&J[4=9Y24<[!QEG"F/@6F3\_./99OMVPM@GQKJM'N
MMIIO"65_\]L& K9.WLZ-//'!E3;/=3 W*39:IH]&V@N4=G5T<D^LE,:_4R/F
MQ#X::9?Q[1KIY)Y8(XU_IT;3F7:-HLH(O:"Q(2>^O,_1X2&SU45/R\V0WWP3
M9%8Z.[@TG*#M:H82UK[8-0MA$\7&J-I74"U@VJ742?>1U2+:&"S["JK%0;N@
M.ND^@EI$+6J\.Y C,/TZE1$Q^HTZ'AL-12RW'=05FMN]&G!-VE(2MX>)/??4
MZZLSKM[$?)K38J_AL.PFLR*T(XT-/C:V>^ISRI#>//OW"H'UQ56HBWV/;M%/
MJSWZQ9^DV'X=HY]6>_2,/TFK/EVC]^&3CF![GCWY#%W%*9N5D/YG3%K&5$\1
M-'C[ &%19IW2H<R6&V&5H5O&$ M+=4:#@UQN!*>-UP4GRQ8\+UZV GS9 N8N
1MH'Y\G!(_/H_?J@%6RHT  #&
 
end