diff -bwr ./bwman/notebook.html c:/tclsrc/bwidget/bwman/notebook.html
44d43
< <TD> <A HREF="#-arcradius">-arcradius</A></TR>
46,47d44
< </TR>
< <TR>
49d45
< <TD> <A HREF="#-side">-side</A></TR>
52c48
< <TD> <A HREF="#-tabbevelsize">-tabbevelsize</A></TR>
---
> <TD> <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}]
