% $Header: /cvsroot/html2ps/postscript/predicates.ps,v 1.1 2005/12/18 07:21:38 Konstantin Exp $
/is-inline {
/display get-css-value
dup /-button eq
1 index /-checkbox eq or
1 index /-image eq or
1 index /inline eq or
1 index /inline-block eq or
1 index /none eq or
1 index /-radio eq or
1 index /-select eq or
1 index /-text eq or
exch pop
} def
/is-whitespace {
dup /box-whitespace is-a
1 index /box-null is-a or
exch pop
} def
/is-container {
dup /box-container is-a
1 index /box-generic-inline is-a not and
1 index /box-inline is-a or
exch pop
} def