Hmm...Changing it to

sub { $tree->messageBox(-message=> "foo") }

doesn't seem to help.