% $Header: /cvsroot/html2ps/postscript/table.row.ps,v 1.1 2005/12/18 07:21:38 Konstantin Exp $

/get-row-baseline {                % => Row
% Calculate maximal baseline for each cell contained
% Cell baseline is the baseline of its first line box
  { 
    get-content 
    dup length 0 gt {
      0 get
      get-baseline
      max
    } {
      pop
    } ifelse
  } 
  exch
  0 exch
  reduce
  
} def