$goSlot[$x] = $slot->Button( ...
		-command => sub { compute($x) },