Subversion-Projekte lars-tiefland.php_share

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
/flow-viewport-create {            % => Box
2 
  << >>
3 
  dup /left 3 index get-left-padding put
4 
  dup /top 3 index get-top-padding put
5 
 
6 
  dup /width
7 
  3 index /get-width call-method
8 
  4 index get-padding-left add
9 
  4 index get-padding-right add
10 
  put
11 
 
12 
  dup /height
13 
  3 index get-height
14 
  4 index get-padding-top add
15 
  4 index get-padding-bottom add
16 
  put
17 
 
18 
  exch pop                         % => Viewport
19 
} def
20 
 
21 
/flow-viewport-get-left {
22 
  /left get
23 
} def
24 
 
25 
/flow-viewport-get-top {
26 
  /top get
27 
} def
28 
 
29 
/flow-viewport-get-height {
30 
  /height get
31 
} def
32 
 
33 
/flow-viewport-get-width {
34 
  /width get
35 
} def