#!/usr/local/bin/tkperl
(#4, #5と同じ)
$text = $mw->Entry(-relief => 'sunken', -width => 60);
$text->pack;
$listbox = $mw->Scrolled('Listbox', -setgrid => 1, -height => 10,
	-foreground => 'blue', -width => 60);
$listbox->pack;
#	1秒に1回セレクションをチェックし、前と異なっていれば検索/表示する
&sellookup;
MainLoop;
sub sellookup {
	eval { $newsel = $text->SelectionGet; };
	if($newsel && ($oldsel ne $newsel)){
		$oldsel = $newsel;
		$text->delete(0,end);
		$text->insert(0,$newsel);
		&lookup($text->get);
	}	
	$text->after(1000,[\&sellookup]);
}
(#4, #5と同じ)