255 lines
8.5 KiB
PostScript
255 lines
8.5 KiB
PostScript
|
% $Header: /cvsroot/html2ps/postscript/box.block.ps,v 1.1 2005/12/18 07:21:36 Konstantin Exp $
|
||
|
|
|
||
|
|
/box-block-create {
|
||
|
|
box-container-create
|
||
|
|
|
||
|
|
% Setup method references
|
||
|
|
dup box-block-setup-methods
|
||
|
|
dup /box-block add-type
|
||
|
|
} def
|
||
|
|
|
||
|
|
/box-block-reflow { % => Content Parent This
|
||
|
|
dup /position get-css-value
|
||
|
|
{
|
||
|
|
dup /static eq { pop 3 copy /reflow-static call-method exit } if
|
||
|
|
dup /relative eq { pop 3 copy /reflow-relative call-method exit } if
|
||
|
|
dup /absolute eq { pop dup 3 index context-add-absolute-positioned exit } if
|
||
|
|
dup /fixed eq { pop dup 3 index context-add-fixed-positioned exit } if
|
||
|
|
} loop
|
||
|
|
|
||
|
|
pop pop pop % =>
|
||
|
|
} def % =>
|
||
|
|
|
||
|
|
/box-block-reflow-absolute { % => Context This
|
||
|
|
% Calculate actual box position relative to the containing block
|
||
|
|
dup box-generic-get-containing-block
|
||
|
|
% => Context This CBlock
|
||
|
|
|
||
|
|
dup containing-block-left % => Context This CBlock CBLeft
|
||
|
|
2 index /left get-css-value add % => Context This CBlock Left
|
||
|
|
2 index put-left % => COntext This CBlock
|
||
|
|
|
||
|
|
% TODO: top percentage values
|
||
|
|
|
||
|
|
dup containing-block-top
|
||
|
|
2 index /top get-css-value
|
||
|
|
/value get sub % => Context This CBlock Top
|
||
|
|
2 index get-extra-top sub % => Context This CBlock Top
|
||
|
|
2 index put-top % => Context This CBlock
|
||
|
|
|
||
|
|
% As sometimes left/right values may not be set, we need to use the "fit" width here
|
||
|
|
% if no width constraints been set, it will not be modified by the code below
|
||
|
|
|
||
|
|
2 index 2 index /get-max-width
|
||
|
|
call-method % => Context This CBlock MW
|
||
|
|
2 index put-full-width % => Context This CBlock
|
||
|
|
|
||
|
|
% Update the width, as it should be calculated based upon containing block width, not real parent
|
||
|
|
|
||
|
|
dup containing-block-right
|
||
|
|
1 index containing-block-left
|
||
|
|
sub % => Context This CBlock CBWidth
|
||
|
|
2 index /get-width call-method % => Context This CBlock CBWidth W
|
||
|
|
3 index get-width-constraint
|
||
|
|
wc-apply % => Context This CBlock W'
|
||
|
|
2 index put-full-width % => Context This CBlock
|
||
|
|
|
||
|
|
% And remove any width constraint after this, as they could refer to parent widths
|
||
|
|
wc-create-none % => Context This CBlock WCNone
|
||
|
|
2 index put-width-constraint % => Context This CBlock
|
||
|
|
|
||
|
|
2 index 2 index
|
||
|
|
box-container-reflow-content % => Context This CBlock
|
||
|
|
|
||
|
|
pop pop pop
|
||
|
|
} def
|
||
|
|
|
||
|
|
/box-block-reflow-fixed { % => Context This
|
||
|
|
0 1 index put-left
|
||
|
|
0 1 index put-top
|
||
|
|
|
||
|
|
% As sometimes left/right values may not be set, we need to use the "fit" width here
|
||
|
|
% if no width constraints been set, it will not be modified by the code below
|
||
|
|
|
||
|
|
1 index
|
||
|
|
1 index /get-max-width
|
||
|
|
call-method
|
||
|
|
1 index put-full-width % => Context This
|
||
|
|
|
||
|
|
dup /get-width call-method
|
||
|
|
dup
|
||
|
|
2 index get-width-constraint
|
||
|
|
wc-apply
|
||
|
|
1 index put-full-width % => Context This
|
||
|
|
|
||
|
|
wc-create-none 1 index
|
||
|
|
put-width-constraint % => Context This
|
||
|
|
|
||
|
|
2 copy
|
||
|
|
box-container-reflow-content
|
||
|
|
|
||
|
|
pop pop
|
||
|
|
} def
|
||
|
|
|
||
|
|
/box-block-reflow-relative { % => Context Parent This
|
||
|
|
% CSS 2.1:
|
||
|
|
% Once a box has been laid out according to the normal flow or floated, it may be shifted relative
|
||
|
|
% to this position. This is called relative positioning. Offsetting a box (B1) in this way has no
|
||
|
|
% effect on the box (B2) that follows: B2 is given a position as if B1 were not offset and B2 is
|
||
|
|
% not re-positioned after B1's offset is applied. This implies that relative positioning may cause boxes
|
||
|
|
% to overlap. However, if relative positioning causes an 'overflow:auto' box to have overflow, the UA must
|
||
|
|
% allow the user to access this content, which, through the creation of scrollbars, may affect layout.
|
||
|
|
|
||
|
|
3 copy
|
||
|
|
box-block-reflow-static
|
||
|
|
|
||
|
|
% Note that percentage values are ignored for relative positioning
|
||
|
|
|
||
|
|
% Check if top value is percentage
|
||
|
|
|
||
|
|
dup /top get-css-value /percentage get {
|
||
|
|
0
|
||
|
|
} {
|
||
|
|
dup /top get-css-value /value get
|
||
|
|
} ifelse % => Context Parent This Top
|
||
|
|
neg
|
||
|
|
|
||
|
|
2 index /left get-css-value % => Context Parent This Top Left
|
||
|
|
2 index /offset call-method % => Context Parent This
|
||
|
|
|
||
|
|
pop pop pop
|
||
|
|
} def
|
||
|
|
|
||
|
|
/box-block-reflow-static { % => Context Parent This
|
||
|
|
dup /float get-css-value
|
||
|
|
/none eq {
|
||
|
|
3 copy /reflow-static-normal call-method
|
||
|
|
} {
|
||
|
|
3 copy /reflow-static-float call-method
|
||
|
|
} ifelse
|
||
|
|
pop pop pop
|
||
|
|
} def
|
||
|
|
|
||
|
|
/box-block-reflow-static-normal { % => Context Parent This
|
||
|
|
1 index /null ne {
|
||
|
|
% By default, child block box will fill all available parent width;
|
||
|
|
% note that actual width will be smaller because of non-zero padding, border and margins
|
||
|
|
1 index /get-width call-method
|
||
|
|
1 index put-full-width
|
||
|
|
|
||
|
|
% calculate margin values if thy have been set as a percentage
|
||
|
|
1 index 1 index box-generic-calc-percentage-margins
|
||
|
|
|
||
|
|
% calculate width value if it had been set as percentage
|
||
|
|
2 index 2 index 2 index box-generic-calc-percentage-width
|
||
|
|
|
||
|
|
% calculate 'auto' values of width and margins
|
||
|
|
% unline tables, DIV width is either constrained by some CSS rules or
|
||
|
|
% expanded to the parent width; thus, we can calculate 'auto' margin
|
||
|
|
% values immediately
|
||
|
|
1 index 1 index box-generic-calc-auto-width-margins
|
||
|
|
|
||
|
|
3 copy box-generic-collapse-margin % => Context Parent This Y
|
||
|
|
|
||
|
|
% At this moment we have top parent/child collapsed margin at the top of context object
|
||
|
|
% margin stack
|
||
|
|
|
||
|
|
% Apply 'clear' property
|
||
|
|
|
||
|
|
3 index exch 2 index % => Context Parent This Context Y This
|
||
|
|
box-generic-apply-clear % => Context Parent This Y
|
||
|
|
|
||
|
|
% Store calculated Y coordinate as current Y in the parent box
|
||
|
|
2 index put-current-y % => Context Parent This
|
||
|
|
|
||
|
|
% Terminate current parent line-box
|
||
|
|
2 index
|
||
|
|
2 index
|
||
|
|
box-container-close-line
|
||
|
|
|
||
|
|
% And add current box to the parent's line-box (alone)
|
||
|
|
dup 2 index box-container-append-line
|
||
|
|
|
||
|
|
% Note that top margin already used above during margin collapsing
|
||
|
|
1 index get-current-y
|
||
|
|
1 index get-border-top-width sub
|
||
|
|
1 index get-padding-top sub % => Context Parent This Y
|
||
|
|
|
||
|
|
2 index get-left
|
||
|
|
2 index get-extra-left add % => Context Parent This Y X
|
||
|
|
|
||
|
|
2 index box-generic-move-to % => Context Parent This
|
||
|
|
} if
|
||
|
|
|
||
|
|
% Reflow contents
|
||
|
|
2 index 1 index % => Context Parent This Context This
|
||
|
|
box-container-reflow-content % => Context Parent This
|
||
|
|
|
||
|
|
% After reflow_content we should have the top stack value replaced by the value
|
||
|
|
% of last child bottom collapsed margin
|
||
|
|
|
||
|
|
dup box-container-get-first /null ne {
|
||
|
|
2 index context-get-collapsed-margin
|
||
|
|
} {
|
||
|
|
0
|
||
|
|
} ifelse
|
||
|
|
1 index get-margin-bottom
|
||
|
|
max % => Context Parent This max(cm,bm)
|
||
|
|
|
||
|
|
3 index context-pop-collapsed-margin
|
||
|
|
3 index context-pop-collapsed-margin
|
||
|
|
3 index context-push-collapsed-margin
|
||
|
|
% => Context Parent This
|
||
|
|
|
||
|
|
1 index /null ne {
|
||
|
|
% Extend parent's height to fit current box
|
||
|
|
1 index get-uid
|
||
|
|
3 index context-container-uid eq {
|
||
|
|
dup get-bottom-margin
|
||
|
|
2 index box-generic-extend-height
|
||
|
|
} {
|
||
|
|
dup get-bottom-border
|
||
|
|
2 index box-generic-extend-height
|
||
|
|
} ifelse % => Context Parent This
|
||
|
|
|
||
|
|
2 index 2 index
|
||
|
|
box-container-close-line
|
||
|
|
|
||
|
|
% Then shift current flow position to the current box margin edge
|
||
|
|
dup get-bottom-border
|
||
|
|
3 index context-get-collapsed-margin sub
|
||
|
|
2 index put-current-y
|
||
|
|
} if % => Context Parent This
|
||
|
|
|
||
|
|
3 copy
|
||
|
|
box-generic-check-page-break-after
|
||
|
|
|
||
|
|
pop pop pop
|
||
|
|
} def
|
||
|
|
|
||
|
|
/box-block-setup-methods { % => Box
|
||
|
|
dup get-box-dict /Methods get % => Box Methods
|
||
|
|
dup /reflow {box-block-reflow} put
|
||
|
|
dup /reflow-absolute {box-block-reflow-absolute} put
|
||
|
|
dup /reflow-relative {box-block-reflow-relative} put
|
||
|
|
dup /reflow-static {box-block-reflow-static} put
|
||
|
|
dup /reflow-static-normal {box-block-reflow-static-normal} put
|
||
|
|
pop pop
|
||
|
|
} def
|
||
|
|
|
||
|
|
/box-block-show-fixed { % => Viewport Box
|
||
|
|
1 index viewport-get-left
|
||
|
|
1 index /left get-css-value add % => Viewport Box Left
|
||
|
|
|
||
|
|
2 index viewport-get-top
|
||
|
|
2 index /top get-css-value
|
||
|
|
/value get sub % => Viewport Box Left Top
|
||
|
|
|
||
|
|
exch
|
||
|
|
|
||
|
|
2 index box-generic-move-to % => Viewport Box
|
||
|
|
|
||
|
|
2 copy /show call-method
|
||
|
|
|
||
|
|
pop pop
|
||
|
|
} def
|