#!/usr/bin/perl
#use Mooix::Thing;
run sub {
	my $this=shift;
	%_=@_;
	my $oldversion=$_{oldversion} || $this->croak("missing oldversion");
	
	# New shortcuts list.
	if (47 > $oldversion && ! $this->defines('shortcuts')) {
		$this->create(id => 'shortcuts', owner => $this,
		              parent => $this->parent->shortcuts);
	}
	
	return $this->super(@_);
}
