function s = strhcat(varargin)
% strhcat: horizontally concatenate string matrices
%   strhcat(t1,t2,t3,...) returns the horizontal concatenating of
%   text parameters $t1$, ..., which are padded with blanks rows as necessary
 
    for i = nargin:-1:1
	[mm(i), nn(i)] = size(varargin{i});
    end
    m = max(mm);
    s = [];
    for i = 1:nargin
        pad = [];
        pad(1:(m-mm(i)), 1:nn(i)) = ' ';
        s = [s [varargin{i} ; pad]];
    end