#!/home2/j-env/bin/wish -f


set KoreanSMALL -*-myungjo-medium-r-*--16-120-100-100-c-160-ksc5601.1987-0
set JapaneseSMALL	-*-*-medium-r-*--16-110-100-100-c-160-jisx0208.1983-0


proc	Insert_with_Tags {aWIDGET aSTRING TAGS} {

	set start [$aWIDGET index insert];

	$aWIDGET insert insert $aSTRING;

	foreach aTAG [$aWIDGET tag names $start] {
		$aWIDGET tag remove $aTAG $start insert
	}
	foreach aTAG $TAGS {
		$aWIDGET tag add $aTAG $start insert
	}
}


set aWIDGET [text .text1]

$aWIDGET tag configure KSC	-kanjifont $KoreanSMALL
$aWIDGET tag configure JIS	-kanjifont $JapaneseSMALL


pack $aWIDGET


Insert_with_Tags $aWIDGET "" KSC
Insert_with_Tags $aWIDGET "means" {}
Insert_with_Tags $aWIDGET "ǽˤ" JIS
Insert_with_Tags $aWIDGET "α" KSC

