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

/box-inline-create {               % => 
  box-generic-inline-create

dup /Lines [] put
  
  dup box-inline-setup-methods
  dup /box-inline add-type
} def                              % => Box

% Extends the existing line box to include the given child 
% OR starts new line box, if current child is to the left of the box right edge 
% (which should not happen white the line box is filled)
%
% @param $box child box which will be first in this line box
% @param $line_no number of line box
%
/box-inline-extend-line {          % => LineNo Box This
  dup box-inline-get-lines
  length                           % => LineNo Box This NumLines
  3 index le {                     % => LineNo Box This
% New line box started
    2 index
    2 index
    2 index
    box-inline-init-line           % => LineNo Box This
    2 index                        % => LineNo Box This LineNo
  } {                              % => LineNo Box This
    1 index get-left               % => LineNo Box This BoxLeft
    1 index box-inline-get-lines   % => LineNo Box This BoxLeft Lines
    4 index get                    % => LineNo Box This BoxLeft Line
    line-get-right                 % => LineNo Box This BoxLeft LineRight
    lt {                           % => LineNo Box This
      2 index 1 add                % => LineNo Box This LineNo'
      dup
      3 index
      3 index                      % => LineNo Box This LineNo' LineNo' Box This
      box-inline-init-line         % => LineNo Box This LineNo' 
    } {
      dup box-inline-get-lines     % => LineNo Box This Lines
      3 index get                  % => LineNo Box This Line
      2 index exch line-extend     % => LineNo Box This
      2 index                      % => LineNo Box This LineNo
    } ifelse                       % => 
  } ifelse                         % => LineNo Box This LineNo'

exch pop
  exch pop
  exch pop
} def

/box-inline-get-extra-line-left {  % => This
  dup get-extra-left               % => This EL
  1 index get-parent /null ne {    % => This EL
    1 index get-parent
    /get-extra-line-left
    call-method                    % => This EL ParentEL
    add
  } if

exch pop
} def

/box-inline-get-extra-line-right {
  dup get-extra-right              % => This EL
  1 index get-parent /null ne {    % => This EL
    1 index get-parent
    /get-extra-line-right
    call-method                    % => This EL ParentEL
    add
  } if

exch pop
} def

/box-inline-get-lines {
  /Lines get
} def

% Initialize next line box inside this inline 
%
% Adds the next element to _lines array inside the current object and initializes it with the 
% $box parameters
% 
% @param $box child box which will be first in this line box
% @param $line_no number of line box
%
/box-inline-init-line {            % => LineNo Box This
  1 index
  line-create                      % => LinoNo Box This Line

1 index box-inline-get-lines
  array-prepend
  1 index box-inline-put-lines     % => LineNo Box This
  
  pop pop pop
} def

/box-inline-merge-line {           % => LineNo Box This
  1 index box-inline-get-lines {   % => LineNo Box This Line
    1 index box-inline-get-lines   % => LineNo Box This Line Lines
    array-prepend                  % => LineNo Box This Lines'
    1 index box-inline-put-lines   % => LineNo Box This 
  } forall                         % => LineNo Box This

exch pop
  exch pop
  box-inline-get-lines length      % => LineNo'
} def

/box-inline-offset {               % => DY DX This
  3 copy
  box-container-offset             % => DY DX This

dup box-inline-get-lines {       % => DY DX This Line
    3 index exch
    3 index exch
    line-offset                    % => DY DX This
  } forall

pop pop pop
} def

/box-inline-put-lines {            % => Value This
  exch /Lines exch put
} def

/box-inline-reflow {               % => Context Parent This
% Note that inline boxes (actually SPANS)
% are never added to the parent's line boxes

% Move current box to the parent's current coordinates
% Note that span box will start at the far left of the parent, NOT on its current X!
% Also, note that inline box can have margins, padding and borders!

1 index get-left
  1 index put-left

1 index get-top
  1 index get-extra-top sub
  1 index put-top                  % => Context Parent This

% first line of the SPAN will be offset to its parent current-x PLUS the left padding of current span!
  1 index get-current-x
  1 index get-extra-left
  add                              % => Context Parent This CX
  
  dup 3 index put-current-x        % => Context Parent This CX
  1 index put-current-x            % => Context Pareht This

% Note that the same operation IS NOT applied to parent current-y!
% The padding space is just extended to the top possibly OVERLAPPING the above boxes.

0 1 index put-width

% Reflow contents

0                               % => Context Parent This LineNo
  1 index get-content {           % => Context Parent This LineNo Child
% Add current element into _parent_ line box and reflow it
    4 index
    4 index                       % => Context Parent This LineNo Child Context Parent
    2 index
    /reflow call-method           % => Context Parent This LineNo Child
    
% Track the real height of the inline box; it will be used by other functions 
% (say, functions calculating content height)
    dup get-bottom-margin         % => Context Parent This LineNo' Child BM
    3 index
    box-generic-extend-height     % => Context Parent This LineNo Child

pop
  } forall                        % => Context Parent This LineNo 
  pop                             % => Context Parent This 
    
% Extend parent height to fit this inline box
% TODO: Is it really required? Seems that it will be accomplished by child reflow functions
%  dup get-bottom-margin           % => Context Parent This GBM
%  2 index
%  box-generic-extend-height       % => Context Parent This

% Apply right extra space value (padding + border + margin)
  1 index get-current-x
  1 index get-extra-right
  add
  2 index put-current-x

% After reflow_content we should have the top stack value replace by the value
% of last child bottom collapsed margin

dup box-container-get-first-data /null ne {
    2 index context-pop-collapsed-margin
    0 3 index context-push-collapsed-margin
  } if

pop pop pop
} def

/box-inline-reflow-inline {        % => This
  0                                % => This LineNo
  1 index get-content {            % => This LineNo Child
    dup /reflow-inline call-method
      
    dup /box-inline is-a {
      1 index                      % => This LineNo Child LineNo
      1 index                      % => This LineNo Child LineNo Child
      4 index                      % => This LineNo Child LineNo Child This
      box-inline-merge-line        % => This LineNo Child LineNo'

3 2 roll                     % => This Child LineNo' LineNo
      pop
      exch                         % => This LineNo' Child 
    } {
      1 index                      % => This LineNo Child LineNo
      1 index                      % => This LineNo Child LineNo Child
      4 index                      % => This LineNo Child LineNo Child This
      box-inline-extend-line       % => This LineNo Child LineNo'
      3 2 roll                     % => This Child LineNo' LineNo
      pop
      exch                         % => This LineNo' Child 
    } ifelse                       % => This LineNo' Child

pop
  } forall

pop pop
} def

/box-inline-setup-methods {        % => Box
  dup get-box-dict /Methods get    % => Box Methods
  dup /get-extra-line-left  {box-inline-get-extra-line-left} put  
  dup /get-extra-line-right {box-inline-get-extra-line-right} put  
  dup /offset               {box-inline-offset} put  
  dup /reflow               {box-inline-reflow} put
  dup /reflow-inline        {box-inline-reflow-inline} put
  dup /show                 {box-inline-show} put
  pop pop
} def

/box-inline-show {                 % => Viewport This
% Show line boxes background and borders
  dup box-inline-get-lines {       % => Viewport This Line
    1 index 1 index line-fake-box  % => Viewport This Line FakeBox
    
    dup
    4 index                        % => Viewport This Line FakeBox FakeBox Viewport
    4 index get-background
    background-show                % => Viewport This Line FakeBox

dup
    4 index
    4 index get-border
    border-show                    % => Viewport This Line FakeBox

pop pop
  } forall

% Show content
  dup get-content {                % => Viewport This Child
    2 index exch
    /show call-method              % => Viewport This
  } forall

pop pop
} def

/line-create {                     % => Box
  << >>
  dup /right  3 index get-right  put
  dup /left   3 index get-left   put
  dup /top    3 index get-top    put
  dup /bottom 3 index get-bottom put
  exch pop
} def

/line-extend {                     % => Box This
  dup /top get                     % => Box This V1
  2 index get-top                  % => Box This V1 V2
  max
  1 index exch /top exch put
  
  dup /right get                   % => Box This V1
  2 index get-right                % => Box This V1 V2
  max
  1 index exch /right exch put

dup /bottom get                  % => Box This V1
  2 index get-bottom               % => Box This V1 V2
  min
  1 index exch /bottom exch put

% Left edge of the line box should never be modified

pop pop
} def

/line-get-right {
  /right get
} def

/line-fake-box {                   % => Box This
% Create the fake box object
  box-block-create                 % => Box This FakeBox
  
% Setup fake box size
  1 index /left get
  1 index put-left

1 index /right get
  2 index /left get sub
  1 index put-width

1 index /top get
  1 index get-baseline sub
  1 index put-top

1 index /top get
  2 index /bottom get sub
  1 index put-height

% Setup padding value
  2 index get-padding
  1 index put-padding

% Setup fake box border and background
  2 index get-background
  1 index put-background

2 index get-border
  1 index put-border

exch pop
  exch pop
} def

/line-offset {                     % => DY DX This
  dup /top get                     % => DY DX This Top
  3 index add                      % => DY DX This Top'
  1 index exch                     % => DY DX This This Top' 
  /top exch put                    % => DY DX This

dup /bottom get                  % => DY DX This Bottom
  3 index add                      % => DY DX This Bottom'
  1 index exch                     % => DY DX This This Bottom' 
  /bottom exch put                 % => DY DX This

dup /left get                    % => DY DX This Left
  2 index add                      % => DY DX This Left'
  1 index exch                     % => DY DX This This Left' 
  /left exch put                   % => DY DX This

dup /right get                   % => DY DX This Right
  2 index add                      % => DY DX This Right'
  1 index exch                     % => DY DX This This Right' 
  /right exch put                  % => DY DX This

pop pop pop
} def