Path: sran265!katsu From: katsu@sra.co.jp (WATANABE Katsuhiro) Message-ID: Date: 28 Dec 93 14:19:56 Organization: Software Research Associates, Inc.,Japan In-reply-to: gc3m697@kansai-u.ac.jp's message of 21 Dec 93 03:32:32 GMT Newsgroups: fj.lang.st80 Subject: Re: About font on VisualWorks (In Japanese/Kanji) Distribution: fj References: <7293@ipckus.kansai-u.ac.jp> 記事 <7293@ipckus.kansai-u.ac.jp> で gc3m697@kansai-u.ac.jp (gc3m697) さんいはく > 修士の研究でParcPlace社のVisualWorks Release1.0aを使っているのですが > 全体的にフォント(default)が小さいと思い,マニュアルを見ながら > フォントをlargeにしました.ですがこれってLauncherやそれぞれのwindowの > popup menuの文字まで大きくなってwindowの大きさからはみ出したりします. > そこでVisualWorksを使っていらっしゃる方の中で任意のwindowだけのfontの > 設定を変える事に成功した方がいらっしゃればその方法を教えていただけませんか?  青木淳 さんが、これを解決する VisualWorks のコード 例を書いてくれたので、私の責任で投稿します。  example1は、テキストウィンドウのフォントを変更する例題です。example2 は、リストウィンドウのフォントを変更する例題です。そして example3 は、 十字になったマウスによって指定されたテキストウィンドウまたはリストウィ ンドウのフォントを動的に変更する例題です。  example4, example5, example6, example7 はブラウザなどのフォントを指 定したフォントにして起動できます。そのためには、Browser などのクラスの 既存のメソッドを少々書き換えねばなりません。コメントになっている FontUtility>>initialize のメソッドをコメントアウトして FontUtility initialize を do it した後に example[4-7] を試してみてください。  長い行があるので、compress | uuencode して投稿します。 -- 渡邊克宏@SRA begin 644 FontUtility.st.Z M'YV0)XS(>=,&A)4T<^J$87/EC9PU&,& M!`X03¥;0>2.FC)R/.7+(&.D&A`P:((B4&5.F32D"2-&HY,P;@DG(,F#?PW:])XGTHUQ/2S:5GW7F!TH''5'&3)D5E)$'$Q11L+L4$7 M&VNT@`,,,M+(AHT+K1'$&668E>*,-=ZXQ@M6G`#"'6RA,8042/RJI(PQW^@@D MCD,6*5^?20;)I),IE.E%1VR8$0((_/E7%H#-74>@@60@Z%!F'AIE1W!W$$5& M&'"L),>%G;[E1:?¥=1I6&%B"8,9`;;P*GED#_4A;AYR!*"*LG"E*AQQUE-$J M9_^]BN6MP^:FT4MO¥4$4EO$-FX88=1A6);"('51&J'R¥Q2T=U>J%K;:^:I51 M28RZ2"T=UIXK6)GCEGMMMH*!@)`3:NEK!A7$EA'6%EZXH587]&+I;:A>CLML MKL^"¥.FW"7/VL+.TP9%7&&?(02H:('2JFD;*0/"UG"X,@QAMUN)$I"!-JG(8<3L@6UK#%'HM8 M$T76H2H4X54!!]9N:)V`F7QE--@)'(<1%Q=)D_$&%]F)!W>V7&@¥5QEK9BV6V86'J742KH?F>EGD4H!"&'Q^¥=CL;`.H1QL:XO2"!"69VIL0LAS%JJ0Y=F.%>;"1A6!NJ#J_O M^/QQJ2J7Z8¥?5KNEU[3E^.G"GU99_)VIZIGY(T2'¥6%@@O^0MZL$2*M>¥#(7 MOK8EP+D4+5P)0&"¥%EB_=:E+(RIYUP2UI3)R)?!>Z-I7O]+PKX`-K&`'HU<# MZ5"TAJV0@"^9V!U4Z+^B74]DGQ'8T!!SL@72T($X=)I0FO7L M9A@NZJ4N?C%KC"D;&U88%COB[DEZ[.A$5Y@H<65THWA(UU2Q.I>¥G`4.]#HK M5M+*`Q&)Q*G1)-@ONUG4CUXF77T]*D^+¥BJY'H:H+-TG3?]9)2^9KT;Y;.EB MRU(E^_%N(S,#@;0"FP>0>D1$F`499[LYAY%6U$LH,!¥D4PHAKHI5IYYUYMBR MHRN57%9F().6G$!@D=`^12]F¥0QPS¥!;PA!&JE05D56_AE4Q9L2U7L4C6`OT M/M/ZKZP1-&Q:&W;1MLKAK7'5Z%Q!4%<0W!6:ZHQJF4R*4I6B5K638BU)_1<6 MSL9V<6,C+$;%>]BW0'*F"ZUI8T7T7¥D&F+$7=-%M,RLM]K)!OB``+6Z?DH:3 M/GBD?$VL2P6LKSDHE:F[?*I>4^A?#4^V)EZ*K&(/;+J"(E:F!G[I:Y7S4P"_ MM$IF>)IC./MB.MBXIA2VL'SK:V(6PS3'9E9@HQ7X!7+N$:RB5U89K+:$¥@E[($)9P0WI2(*!9&LICE!5IC2E(((`P>]Z,PP%X+LH`5L MYY9_4M:ATKFF3YRRAR;`"^:&:.Q@+'YJ_U:5^O*&,:QA"&QX0T(F%++P M?%W2NWY[U¥WP=R¥]00Y8F1`9P%-;($<[`72W.][U7@>^>PF_6]#!ITJD2VGA M%P4HV+R;.AS.9)IAF4TT)WX3X,@MB'XAI$?F.,MY!^6M'J_J/#O<";]V41$< M>YSOYMA"CY#13V@.MU':E=X0EA%D9ZEE$91LGYG.@47^[GG?NT?FJ,/7Z_+Y MR1>4¥+WI?:8))OF9H@+S04>0¥!MI^K@?6/G!'WTC27G]F?>MM*X_>>U+;"'1 M%%I=,(#*YG>]5VXS4P9D4&4*"$.5E8`+J!&+UT?;5"6Z1P<+EEL@X%LRU$TK M`0=_YS:¥(T.:931Y)WG95WG;!X#=!RKT=(%IQWMRQQ^09`1!M4(]1RD#I6(/^`V@0!8.F`T%"B&(B,CI&¥7B/]2,JMFDP)8+2I`/ZYW:-]T^^%Q:^-5IE M4H3IPH4<,04.81@36(6<=G1>.`>V@SLT&%_6-1?U%50@D(-X5G:ALEIMB(&$ M03-L8`?2PQMA<`)`N$I<2(2"9X67YE-"YVF5AF"6%853F(5P2&!P6!>_MP6^ MM60JY0/F18"048BF@UI<>($96(*76&'M!2'*8R5@^%T-Z(ENH"AGF(9XE#¥; M0083=QPNH2HPP!^R9'>U!"IR2'9`1V&^"(*@$HC2T@9(TQ%<$Q=&481Q5QH@ M$#0LL1"'MW"<-S8) M0(UBL(W8:(0;.&$?"![0%TKG")$2>09Q429CHXUL<(T>29&^)9+F.&=O<`1Y M%Y%L$!8I"0(0,A`@&4'?F$3AZ"6^]43*9T5U,0=>(89"0&,B29*HE%PD"V>81Q7=FLUN06-622/>9?D")>4!0*:"`-= M¥"2*.6X+T1&9N9EU^1)7"1OP&)JC69IW<)KI5).O&9,-XYAVF9MZ20?TY)O. M:$@BT`(M``+&B9S'F9S,N9S.J9S0V9S1^9S2F9PBP!¥"I4B1,0=@%Q=M91=E M,!E[T1=EX%EG8RJ`QT1`)$KE)F?_I%%5^BVK5Q:OPJ.K%Z)F(3X],1@X149E<*:AY*:U M8G[:0Z0ZM7H<`0<*!CL4EQRK9TE)I$/.YZ+)T1T.R3AN"*C'D1PXN*C;40?- M-P:(:FQ@M*C?LQ"CPW7_5*F7F@=E@@)X¥B=K,)]=40=884QE0&-C,7:?=$Y< M*4U>RD(LOZG,"HAXXM!IE$!H¥ZG;B,8T#-V;N]$O3 MA09,4(MA`0,IT$U76@99ZA!%89=>P@2XL090,"%FX!)%PA-5DJW;NJ5VB:9$ M4:8S]!9#6J2BID[JNA/P9TQNGX'2Q<).Y¥XNA$Z&@;).J]!BJ<_JE-Q M&'9(JJ0*V*3P(1¥O$Z5!@!]I0*6I%RKWJJ7=&CSB`J_ITJEH5Q9DFK-TFJ:D M81IK"EQT8*=PFIISNJC19Z="6HMZZA:+VJ=_ZGP9.P>>-:C¥2225VK6>I:@. M>29C^Q61ZI"3FK;*B+@BA_CBF7F"I[IVK#:^K`].[+P6B8FVU2S:HFRNZZUNZ_] M^EU^&+`00[#[$,Z[`¥RZ42FQ<;4;%4P:)8,SUDL+$SBK"A%+%N M$+)A,+(E:[5%6K5Y2J]'FJ2QPZ3N$;-0:A¥U.Z5&=T!`>[H0VZ5`&Z:>2K1N M`*]'NZ.7"Z"+RJ9-.SY/*Z=T6@94B[)7RZ?(M[7N^;6+2JAB*Q81?!EF&Y+T M9<$P=Q5K.S9MR¥'8"[=C([="&S_-=¥&!D;>-N[=QD:I^"[AB(;B$*V*U:D,¥ M5:Q"PZLMC"._&KBP.JPA0[G&:KFR81K*JKG-ZA#&`ZVA2ZWF5;IO8;^U^ZWA MVKKE.B&PNX&]2[MX5< MC,;W&[T4:[%D,*YOL!*TI;W'0Z,?B¥[XGF[LK*P(MN[XP^Z0S"[¥V MB[-?JK-=_+QVR:#Y>X1T>U;^*[7?"¥!'G(L#S+1.^X8(#,H*[#X,7*0.[*>V ME3H#X<>Y`;:7U'PUU¥=UEQL9S*C`FLNTO%7^LWHA/`+`O,ML0,)P09_@<¥(U MAUJ¥DY&[2=7+25_+¥D&¥!+ZXRG M'%&I[)!3R¥JY^¥I;:S¥.87[;W@Z]$L2GLR&LC<:Z,F7<@;G:Q@O;^AS"CSV2`/1A>&45BRV-*,_-)+ M^L@S3;.3/+¥[9*NBQ*"TERZT)]1JFK4/',LCD"H3'+:&VCJE@B4Z,"L$TJBLTR#+ES6,-Y-2[81('`¥Q0;TS$?D¥[A;*Q=I;<^ M?,YY/;CVK:M&_)]2Y0:['6$B`JTD9(-R.C#F$VRT5S(K(TK:W0984IFYC5&[ M'<>@31L7C0+¥C,7_G"^C/;*T=TZMW=',PQ^J!(CB,J$/FF,:H5'¥,:#@Z1H: MT=QB)ZR*1..0]AH¥>J`NOJ`MGJ`/ZB412@9!KJ/$<:$5:^.PT'1Y%0J1.[EF_UZ!Q05SIZ[(Q[;Z1+*4W2]QAX.3)^N:O MX09_]8%%X]XLPZ!PWLZ'6!)Z)K;TXN1T'E(-L^>C M_!(P7IY_Q1&,?AF+/N=_=1C^`W;4]U2,>>DAA1!'?G7^HN`=,3"B[A$N,1!R M@!&WP8K>VSK<>2T:D5)G0.>ZY#$(40:T1EW#X>0=AK)¥;!B'1@8I.GYRKA&- M[A$(L1L3HA+)4:^JKNDAU>H.`>MAR-JT7EKDB>NZSC1JTQ&_OCO!_AK#'KYD M¥#0NDAS)W@5NC>KJM.Q%¥E>6Z@9"X.MZ`2]1EN!06^W,ONFWD^VNL^VS/@;H MZNVWOG#ASNOD'E8I*NSWGJ(I:A0MD>4;(8;O7B9]F61VZ:.&:2!WD)BO$1:8 M9^_-KHK6 MDD0X[U$&TP9UT`9#]A$[`@)`X/0P4)-X#J8BLMR+.C9@;/-*F_41]-S`*MU9 M3¥'5C?"N,V>W M]];)'4]^]!(:XS'T#0<@H¥.[JM_F#*SHS/BAP?4N,7XH;W;M5W]XZ.%7W-CG M*N*)7;M@7.(U>?FAPAONB@))D$U1^9UT<.AB,>G8-3:F/Q)^Z@;E7@2((2A3 M8X"BA/1IH/1,KU(J,,Y#$?4R<*U=?OM@;NB7,>:)GD316N&XO40$?D>¥W<@P M#=SOR^8'2ODO4?M5'RJ=HA5T¥5W.;(5S$1[I/X3B`O[H.(R`#B&"7N8:$>;/ MC^A%?P8<[Y2^)*(`_G.=< M(F#$0W<]CRVTJYJ0HH)>]#L#1X]!"+^F%P.>7M0K@5,/OXP_Y48T@)'7VWH^ MCJAY/:T%W<3>=+MEK,/L7;>T-^'8'E=S>V(![H4-N0?>YI9L"PMV[_,X/O,6 MP];:WQM<@4^AK4#"MTWD&^+S&(KOOXDSO%?>^-L3W&OWC36`/¥O7*QK&]?LJ M^@4DX!?OTADZF5HY@])%O¥B`FK3^X$#[HTAUH<#IEQE`]9*;`F(+V,V^]<$6 M*$KF7QFH3.A/O+'!.VC^V)¥B_$!WL/3YOE!!?S32YOMPGF^+C;C11PCOP.Q+ M`+4/]84RU*[:!_Q&(/$S?E#/)B@_ M_N`*FY]E"`R#@=YYEHI2`<-"!?R`BTS[_;;V!D8YV-LKLNQ@3Z=%ME>!;PR<5VE M'YJ7#;3[/%<,R(53+_EUD("(]93:1HN&'S&_@+VWQQFD6@73'#H0[2$&M;?= MB!D0C&Z)"`¥=`P5T&C$IIJ`&U¥>^:N*[U$[OC>L@,,J&>`) MD"XA/LY'AI,NM@!IS&*F<9%D#>,E'^ECPR$G&`?E7*:G0P<$2,`9."#`X=@` MJ0(7'4.?0XCB(CLFR`@S'%)4O/MW*VML;(&.UYE¥E%80>21/:&BF$FD4L!JI MVG9C2+8-(Q85!'Y$5Z%W%672S8$F4!1F1IE[%2KR.J8`*7:VM$JZN(#AJ**8 MC@YH$<)`E*P)7VC_P3O'*&+RHY?`DAYAA22[3)<1>0J"O(Y0,CTFR#)Q+N)1 MND`!H*DFS('#,3/4@S+""A$020Z6;/$&CEP0`'L[@![2O.&@;E8"RDI1"3$W MHD,0X&16WCJ4E.T04&+$^3(7KII6,89:Y1XFO7PX4L+"/A2+IQ(T6CV!"'T( M8CDZB(^G/S;`A>A^¥)#I6R]R¥CJRQ4XHU'BD4X-N;Q*@W,"IE@/W!AWXDGRQ M5OC%L('+]J9-@^=ZT27R;C(G/,@+%_)89 M[YIZRY:=40R21]/03;@E/(F,M&'=(9¥FB0:(5%BX-J=F0X6_]:,YV(`ZR@-H M*"_B1%P)'[NE/(D8¥O(]S@Q[*1:0%*KI.¥UG(?S+@&DL!^9;<)>K¥D&&N-/( MT.Z7N¥*8¥A$#]YJJ"!+&:2D4$6-:PXEX[0NZ-866'50FYO.6DG&^5<9T MB1GMFA=DC$:Q-8`;H0&@P M`¥&F6B7*#_0VXZ9Y293DP3P(A%?SJ3X"WK20=5-Z=)4Z:3IJ3E94/$(`:?0D M*$$&"D2(_`C)3]:<`>-`!A+ET3A+;2!PXJ%@62$93G'¥FA>-<-8$B05ZF$#9 MS!9[,VV:$Z9A(?N9=+$FDNS3/8T<*:K%M<2O)J<4?)MS2>G%/¥:4Q1L2'">147#1B7% MGVB¥BOVL-&K"T-<5XUHE8XVE¥W3N3M7I"1D#¥+2=,&!NA@?;F3TMY-]D.*[S MF<'.RUD]8VC?G'HSX'/>N0NJ,;4BQ¥QHJ='M.$U/R,U&H6MT`4.!,S3$V6A> M7,`-^)P*<3>.L]Y8$WYC70B.@>'WO,¥R`$4EI7E¥A04B%C9$YB@6GV-TA!0J M[BVPN`B2Y":=C*,*/*X,(('@X#'DP,S(`SA.<&T@WR9'Z6B800-X-(`!.2(G MY-@H(850M2C)N:LEAZ'FJ$OXHX&T@78M"8F]/-1P*%%:+C^IJ.IUL?".9``5 MJ8VDA39"%KY0FE)4::U,99TY1¥8,@UM-"X¥0!:Z-.)YF(+V$(ZVC3A)@>5+N M],G<(M**=$6M31DP5-81$M@":VHRFD3V%#^9)>CH M6O73"-*]9XJW]F>YM):*$5O&J@#:WGRB8V!¥!K1<(E!TJ4#]6N8";!"T,$8K MJ1C%¥!EJA$RJJ_-IT,?&08,H3L-=9`QK?;J¥,N)*)D0[F07K12XX:3+BR!$2 M<`@/@D81KS*G2E%+P&6J()8[:J7H3W#,Y¥RC^..)V` M"'R./(`TGL05[3NCY)*$#)IAW¥R?L1H))8%'_8`3(*ODG2¥A,:`P0SK6^*=G M[,>SX2#¥)M:$&C-&:A)`8>5S(J*QHHS!ZB[BZE^5@75U#B%6ORI3&:ML11F` M)[*"#¥IJ69¥&9M6L(("SU@'/>HX<)=D;K1ZA_,V%TTH20`#X6ZVM%4:.&&!R M<:9-QCF1M57.W%9=(UPIR&[=7;V5N8'YBF^5:#-U<`:5_B78$7,@GVN%(3I0-@- MNU^AJAZ-W8K)!B>.KC68'.IF7Z4HL"`^63I0#8=FFJA@¥2: M).M>->1X79]:U"O(`2+A+X*`&.@(GFL+_%@1NQ;?)=3,&%*SOJ'3XO9M;$95 M1(`L;P%B2DGE#@NCI]1YA"%6+`SB(*GPX?"#$*:R.?K#%!A!U,_7K(0-$8." M.!^*T;R8/R5]=O9KND(8*V/+@`RHL>_AQK983ZMC(>"[ZFD21$/"BB`K+H:L M+BFRA_7(;C)*^=/ZE]%RF5.ER293Z*8^;*:AXA*]#*N-`/TAJ?[BF;BRXFT$ MR"T[I66W#0OLLK/UR^9/!=1¥Q"R9)2%F%LWB(34+8M$%FX6(!I*`BK-4ZU@3 MQIU-AY92`K%#/JLI_:P¥_)2$H:(,6E$9_$@EHK4)BA;?,MI5^V@SGR7L*CTT M0FY"R9:SL`N_+1J;%H[&6!Q;!F8`J"6+G98/&AT]JF?('H/EM`R7!CQ<4:L1 M:$`@TJ.VU;CR*(P[:FO`QEVX)??C¥M20"Q3U*@.5L`JWT]J`DRMS`U&R2K@* 6@..6@1M`