my $list
			= $page->Scrolled(
				'Listbox',
				-scrollbars	=> 'oe',
				-height	=> 10,
				-exportselection	=> 0,
			);
		$list->pack(-fill => 'x');
		
		$list->bind('<ButtonRelease-1>',
			\&fill_entries,
		);