diff -bwr ./bwman/notebook.html c:/tclsrc/bwidget/bwman/notebook.html
44d43
< <TD>&nbsp;&nbsp;<A HREF="#-arcradius">-arcradius</A></TR>
46,47d44
< </TR>
< <TR>
49d45
< <TD>&nbsp;&nbsp;<A HREF="#-side">-side</A></TR>
52c48
< <TD>&nbsp;&nbsp;<A HREF="#-tabbevelsize">-tabbevelsize</A></TR>
---
> <TD>&nbsp;&nbsp;<A HREF="#-side">-side</A></TR>
122,129d117
< <DL><DT><A NAME="-arcradius"><B>-arcradius</B></A></DT>
< <DD>
< 
< Specifies the amount of rounding effect at the corners of a tab. This value
< can be adjusted from 0 to 8 pixels with the default being 2 pixels. Usually,
< small values are preferable.
< </DD>
< </DL>
146c134
< <DL><DT><A NAME="-side"><B>-side</B></A></DT>
---
> <DL><DT><A NAME="-side"><B>-side (read-only)</B></A></DT>
150a139
> Only <B>top</B> is implemented for the moment.
152,159d140
< </DD>
< </DL>
< <DL><DT><A NAME="-tabbevelsize"><B>-tabbevelsize</B></A></DT>
< <DD>
< 
< Specifies the amount of bevel the tabs should have. This value can be adjusted from
< 0 to 8 pixels with the default being 0 pixels. A zero pixel bevel is essentially rectangular
< while non-zero bevel size will look trapezoidal.
diff -bwr ./notebook.tcl c:/tclsrc/bwidget/notebook.tcl
74c74
<         {-side			Enum       top 0 {top bottom}}
---
>         {-side			Enum       top 1 {top bottom}}
88,90d87
< 
< 	{-arcradius             Int 2   0 "%d >= 0 && %d <= 8"}
< 	{-tabbevelsize          Int 0   0 "%d >= 0 && %d <= 8"}
193,196c190
<          [Widget::hasChanged $path -borderwidth bd] ||
< 	 [Widget::hasChanged $path -arcradius radius] ||
<          [Widget::hasChanged $path -tabbevelsize bevel] ||
<          [Widget::hasChanged $path -side side] } {
---
>          [Widget::hasChanged $path -borderwidth bd] } {
719,723c713,717
<     # c2 = $xd+$xBevel,	           $arcRadius+2
<     # c3 = $xd+$xBevel+$arcRadius, $arcRadius
<     # c4 = $xf+1-$xBevel,          $arcRadius
<     # c5 = $xf+$arcRadius-$xBevel, $arcRadius+2
<     # c6 = $xf+$arcRadius,         $h
---
>     # c2 = $xd,	  4
>     # c3 = $xd+2, 2
>     # c4 = $xf+1, 2
>     # c5 = $xf+2, 4
>     # c6 = $xf+2, $h
726,727c720
<     set arcRadius	[Widget::cget $path -arcradius]
<     set xBevel		[Widget::cget $path -tabbevelsize]
---
>     set arcRadius	2
761,763c754,756
< 		[expr {$rightPlusRadius - $xBevel}]	[expr {$h1 + $topPlusRadius}]	\
< 		[expr {$xf - $xBevel}]			[expr {$h1 + $top}]		\
< 		[expr {$leftPlusRadius + $xBevel}]	[expr {$h1 + $top}]		\
---
> 		$rightPlusRadius	[expr {$h1 + $topPlusRadius}]	\
> 		$xf			[expr {$h1 + $top}]		\
> 		$leftPlusRadius		[expr {$h1 + $top}]		\
766,767c759,760
< 		[expr {$leftPlusRadius + $xBevel}]	[expr {$h1 + $top}]		\
< 		[expr {$xd + $xBevel}]			[expr {$h1 + $topPlusRadius}]	\
---
> 		$leftPlusRadius		[expr {$h1 + $top}]		\
> 		$xd			[expr {$h1 + $topPlusRadius}] \
778,780c771,773
< 		[expr {$xd + $xBevel}]			$topPlusRadius		\
< 		[expr {$leftPlusRadius + $xBevel}]	$top			\
< 		[expr {$xf + 1 - $xBevel}]		$top			\
---
> 		$xd			$topPlusRadius	\
> 		$leftPlusRadius		$top		\
> 		[expr {$xf + 1}]	$top		\
783,784c776,777
< 		[expr {$xf + 1 - $xBevel}] 		[expr {$top + 1}]	\
< 		[expr {$rightPlusRadius - $xBevel}]	$topPlusRadius		\
---
> 		[expr {$xf + 1}] 	[expr {$top + 1}]	\
> 		$rightPlusRadius	$topPlusRadius		\
969,971d961
< 
<     set arcRadius	[Widget::cget $path -arcradius]
< 
992c982
<         set xf [expr {$xd + $data($sel,width) + $arcRadius + 1}]
---
>         set xf [expr {$xd + $data($sel,width) + 3}]

