28 lines
591 B
PostScript
28 lines
591 B
PostScript
% $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 |