File: edgebar

package info (click to toggle)
libtemplate-perl 2.14-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, sarge
  • size: 5,496 kB
  • ctags: 667
  • sloc: perl: 15,349; makefile: 62; xml: 7; sh: 5
file content (28 lines) | stat: -rw-r--r-- 629 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
[%# html/edgebar: a single row table with an edged outline
  # ARGS: 
  #	edge	    # edge colour (default: black, '#000000')
  #	fill	    # fill colour (default: white, '#ffffff')
  #     border      # border width (default: 2)
  #     content     # bar content
  #	+ other args as per html/bar
-%]
[% DEFAULT
     edge   = '#000000'
     fill   = '#ffffff'
     border = 2 
-%]
[% WRAPPER html/box
     col   = edge
     pad   = border
    border = 0
     space = 0 ;
   inwidth = width ? '100%' : '' ;
   WRAPPER html/bar
     col   = fill 
     space = 0 
    border = 0
     width = inwidth ;
   content ;
   END ;
   END
%]