HE 20070201: I like BWidgets notebook. The only thing I'm missing is to configure the placement of arrowbuttons. It is a little bit inefficient to move with the mousepointer from side to side, if I had to change the direction the tabs are moved.
Here is a small patch (diff -n) to add a new option -arrowplace (left|both|right) with 'both' as default. 'both' is the original behavior.
a92 1
{-arrowplace Enum both 0 {left both right}}
a617 3
if {$base == -1} {
return
}
d623 1
d953 2
a954 19
switch -- [Widget::cget $path -arrowplace] {
left {
set xl 0
set xr $_warrow
set permanent 1
}
both {
set xl 0
set xr [expr {$w - $_warrow + 1}]
set permanent 0
}
right {
set xl [expr {$w - $_warrow - $_warrow + 1}]
set xr [expr {$w - $_warrow + 1}]
set permanent 1
}
}
d967 1
a967 1
if { $data(base) > 0 || $permanent} {
d981 1
a981 1
} elseif {!$permanent} {
d985 2
a986 2
if { ($data(base) < $nbpages-1 && $data(wpage) + [_get_x_page $path 0] + 6 > $w)
|| $permanent} {
d1000 1
a1000 1
} elseif {!$permanent} {if you are working on a platform without patch, you can use the following:
- create the file notebook.diff in the bwidget1.8 directory.
- copy the diff data in to notebook.diff
- open a wish or tclsh
- copy the code from patch for rcs in tcl into the open console
- execute the following lines:
cd [tk_chooseDir -title "Select bwidget1.8 directory"]
file rename notebook.tcl notebook.tcl.orig
rcs::file2array notebook.tcl.orig filedata
set fid [open notebook.diff r]
set patch [read $fid]
close $fid
rcs::patch $patch filedata
set fid [open notebook.tcl w]
foreach index [lsort -dictionary [array names filedata]] {
puts $fid $filedata($index)
}
close $fid 
