File: menubar

package info (click to toggle)
libtemplate-perl 2.06-3
  • links: PTS
  • area: main
  • in suites: woody
  • size: 4,924 kB
  • ctags: 474
  • sloc: perl: 13,238; makefile: 55; xml: 7; sh: 5
file content (17 lines) | stat: -rw-r--r-- 457 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
[%# menubar: create 2 cell edgebox with content on left and menu on right
  # ARGS:
  #	edge	    #  edge colour
  #	fill        # fill colour
  #	border	    # border (edge) width
  #     content     # menu bar content (e.g. title text)
  #     menu        # structure for menu items, as per html/menu
-%]
[% DEFAULT content = ' ' -%]
[% WRAPPER html/edgebar -%]
<td>
[% content %]
</td>
<td align=right>
&nbsp;[% INCLUDE html/menu -%]
</td>
[%- END %]