🚀 go-pugleaf

$@$O$8$a$^$7$F!"%=%K!<%3%s%T%e!<%?%5%$%(%s%98&5f=j$NK\ED$H?=$7$^$9!#(J
MACL1.3.2, MCL2.0beta$@$N%f!<%6$G$9!#(JMACL1.3.2$@$N$3$m$K(JApple$@$N(JLisp$@@=IJ%^(J
$@%M!<%8%c$H$3$N7o$K$D$$$FOC$7$r$7$?$3$H$,$"$j$^$9(J$@!#(J

In article <43740314@May.NTT.JP> nojima@May.NTT.JP (NOJIMA Hisao) writes:
   Macintosh $@$N(J Common Lisp$@$G4A;z$r$&$^$/$H$j$"$D$+$&J}K!$,J,$j$^$;(J
   $@$s!#$I$J$?$+65$($F$$$?$@$1$^$;$s$G$7$g$&$+!#$d$j$?$$$3(J$@$H$OC1=c$J(J
   $@$3$H$G$9!#$H$j$"$($:!"%U%!%$%k$+$i4A;z$rFI$s$G2hLL$KI=<($9$k$/$i(J
   $@$$$N$3$H$,$G$-$l$PK~(J$@B-$7$^$9!#$b$A$m$s!"(JFred$@$G4A;z$r;H$C$?$j!"(J
   Dialog$@$K4A;z$rI=<($G$-$k$N$G$"$l$P!"$b$C$H4r$7$$!#(J

$@$3$l(J$@$+$i=q$/$3$H$O(JMCL2.0beta$@$G$b(J1.3.2$@$G$bF1$8$G$9!#$^$:(JFred$@$G$O4A;z$r(J
$@I=<($7$F<BMQE*$K;H$&$3$H$O=PMh$^$;$s(J$@!#(JTextEdit$@$NI=<(%k!<%A%s$r;H$C$F$$(J
$@$J$$$+$i$G$9!J(JApple$@$N@=IJ$J$N$KJQ$J$N!*!K!#$G$O4A;z$N<h$j07$$$,A4$/(J$@IT(J
$@2DG=$+$H$$$&$H$=$s$J$3$H$O$"$j$^$;$s!#$3$N(JLisp$@$+$i$OA4$F$N(JToolbox$@$r4J(J
$@C1$K%"%/%;%9$9$k$3$H$,2DG=$G(J$@$9$+$i!"<+J,$G(JWindow$@$r:n$C$F$=$$$D$G(J
TextEdit$@$r;H$C$F%W%m%0%i%`$r:n$l$PNI$$Lu$G$9!#(J

$@$H$$$&$o$1$G<B$O(J$@;d!"(J1.3.2$@$r;H$C$F$$$?$3$m$K:n$j$^$7$?!#$J$D$+$7$N(J
Object Lisp$@$G=q$$$F$"$j$^$9!#0l1~(JWindow$@$N$J$+$G(JLisp$@$N%H%C%W%l%Y%k$,F0(J
$@$$$F$$$FJ8;zNs$H$7$F4A;z$N:.$8$C$?$b$N$r;H$&$3$H$,$G$-$^$9!#$b$A$m$s(J
Lisp$@$N%H%C%W%l(J$@%Y%k$H$O4X78$J$$%&%#%s%I%&$r3+$/$3$H$,$G$-$F$=$l$rIaDL$N(J
stream$@$H;W$C$F;H$&$3$H$,$G$-$^$9!#$D$^$j!'(J

	(setq kwin (oneof *te-window* :window-font (list "$@:YL@D+BN(J" 12)))
	(format kwin "~S~&~S" "$@El5~(J" "$@Bg:e(J")

$@$H$d$k$H%&%#%s%I%&$,0l$D$G$-$F$=$3$K!"(J

$@El5~(J
$@Bg:e(J

$@$HI=<($5$l$^$9!#7k9=%X%?%/%=$J%3!<%I$J$N$GCQ$:(J$@$+$7$$$G$9$,$46=L#$,$"$l(J
$@$P:9$7>e$2$^$9$N$G%a!<%k$r2<$5$$!#$=$l$+$i(JMCL2.0$@$G$O(J
text-edit-dialog-item.lisp$@$H$$$&$b$N$,(JExample$@$NCf$K4^$^$l$F$$$^$9!#$3(J
$@$$$D$r;H$&$H%@%$%"%m%0$NCf$G$&$^$/%U%)%s%H$r;XDj$9$k$H(J$@F|K\8l$NI=<(!"F~(J
$@NO$,$G$-$k$h$&$K$J$k$O$:$G$9!#!J<B:]$K$d$C$?$3$H$,$J$$$N$GJ,$+$j$^$;$s(J
$@$,!"!"!"!K!#(J

--
Yasuaki Honda // honda@csl.SONY.co.jp
It's Sony Computer Science Laboratory Inc.