Gecko [ v3.cesa.co.za ]

Name	Size	Permission	Date
array.ps	10.34 KB	-rw-r--r--	2013-05-22 07:56
background.image.ps	7.77 KB	-rw-r--r--	2013-05-22 07:56
background.ps	1.33 KB	-rw-r--r--	2013-05-22 07:56
border.ps	6.04 KB	-rw-r--r--	2013-05-22 07:56
box.block.inline.ps	1.45 KB	-rw-r--r--	2013-05-22 07:56
box.block.ps	8.46 KB	-rw-r--r--	2013-05-22 07:56
box.break.ps	2.77 KB	-rw-r--r--	2013-05-22 07:56
box.button.ps	3.44 KB	-rw-r--r--	2013-05-22 07:56
box.checkbutton.ps	2.45 KB	-rw-r--r--	2013-05-22 07:56
box.container.ps	36.76 KB	-rw-r--r--	2013-05-22 07:56
box.frame.ps	7.71 KB	-rw-r--r--	2013-05-22 07:56
box.generic.inline.ps	3.27 KB	-rw-r--r--	2013-05-22 07:56
box.generic.ps	31.94 KB	-rw-r--r--	2013-05-22 07:56
box.iframe.ps	79 B	-rw-r--r--	2013-05-22 07:56
box.image.ps	4.84 KB	-rw-r--r--	2013-05-22 07:56
box.inline.ps	10.88 KB	-rw-r--r--	2013-05-22 07:56
box.inline.whitespace.ps	2.3 KB	-rw-r--r--	2013-05-22 07:56
box.input.check.ps	1.4 KB	-rw-r--r--	2013-05-22 07:56
box.input.radio.ps	884 B	-rw-r--r--	2013-05-22 07:56
box.input.text.ps	1.56 KB	-rw-r--r--	2013-05-22 07:56
box.list-item.ps	6.71 KB	-rw-r--r--	2013-05-22 07:56
box.ps	92 B	-rw-r--r--	2013-05-22 07:56
box.radiobutton.ps	2.15 KB	-rw-r--r--	2013-05-22 07:57
box.select.ps	2.76 KB	-rw-r--r--	2013-05-22 07:57
box.span.ps	97 B	-rw-r--r--	2013-05-22 07:57
box.table.cell.fake.ps	322 B	-rw-r--r--	2013-05-22 07:57
box.table.cell.ps	4.55 KB	-rw-r--r--	2013-05-22 07:57
box.table.ps	51.69 KB	-rw-r--r--	2013-05-22 07:57
box.table.row.ps	5.22 KB	-rw-r--r--	2013-05-22 07:57
box.text.ps	10.5 KB	-rw-r--r--	2013-05-22 07:57
box.whitespace.ps	2.39 KB	-rw-r--r--	2013-05-22 07:57
cellspan.ps	294 B	-rw-r--r--	2013-05-22 07:57
class.ps	826 B	-rw-r--r--	2013-05-22 07:57
color.ps	747 B	-rw-r--r--	2013-05-22 07:57
containing_block.ps	167 B	-rw-r--r--	2013-05-22 07:57
context.ps	15.66 KB	-rw-r--r--	2013-05-22 07:57
encoding.dingbats.ps	2.13 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-10.ps	2.86 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-11.ps	2.82 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-13.ps	2.93 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-14.ps	2.88 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-15.ps	2.87 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-2.ps	150 B	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-3.ps	2.92 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-4.ps	2.87 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-5.ps	3 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-7.ps	2.84 KB	-rw-r--r--	2013-05-22 07:57
encoding.iso-8859-9.ps	2.91 KB	-rw-r--r--	2013-05-22 07:57
encoding.koi8-r.ps	3.01 KB	-rw-r--r--	2013-05-22 07:57
encoding.symbol.ps	3.08 KB	-rw-r--r--	2013-05-22 07:57
encoding.windows-1250.ps	6.17 KB	-rw-r--r--	2013-05-22 07:57
encoding.windows-1251.ps	8.39 KB	-rw-r--r--	2013-05-22 07:57
encoding.windows-1252.ps	8.5 KB	-rw-r--r--	2013-05-22 07:57
fastps.footer.ps	24 B	-rw-r--r--	2013-05-22 07:57
fastps.header.ps	11 KB	-rw-r--r--	2013-05-22 07:57
flow.block.ps	2.89 KB	-rw-r--r--	2013-05-22 07:57
flow.box.ps	1.47 KB	-rw-r--r--	2013-05-22 07:57
flow.float.ps	1.47 KB	-rw-r--r--	2013-05-22 07:57
flow.inline.block.ps	1.57 KB	-rw-r--r--	2013-05-22 07:57
flow.inline.ps	3.31 KB	-rw-r--r--	2013-05-22 07:57
flow.legend.ps	1.79 KB	-rw-r--r--	2013-05-22 07:57
flow.table.ps	4.85 KB	-rw-r--r--	2013-05-22 07:57
flow_viewport.ps	594 B	-rw-r--r--	2013-05-22 07:57
font.ps	1.66 KB	-rw-r--r--	2013-05-22 07:57
footer.ps	4.92 KB	-rw-r--r--	2013-05-22 07:57
geometry.ps	1.34 KB	-rw-r--r--	2013-05-22 07:57
header.ps	22.95 KB	-rw-r--r--	2013-05-22 07:57
height.ps	7.47 KB	-rw-r--r--	2013-05-22 07:57
image.ps	10.34 KB	-rw-r--r--	2013-05-22 07:57
init.ps	211 B	-rw-r--r--	2013-05-22 07:57
position.ps	153 B	-rw-r--r--	2013-05-22 07:57
predicates.ps	618 B	-rw-r--r--	2013-05-22 07:57
table.ps	52.42 KB	-rw-r--r--	2013-05-22 07:57
table.row.ps	422 B	-rw-r--r--	2013-05-22 07:57
text-align.ps	3.71 KB	-rw-r--r--	2013-05-22 07:57
vertical-align.ps	1.86 KB	-rw-r--r--	2013-05-22 07:57
viewport.ps	2.99 KB	-rw-r--r--	2013-05-22 07:57
width.ps	1.15 KB	-rw-r--r--	2013-05-22 07:57

Rename

% $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