Bwidget Source Code
Changes On Branch bwidget-1-7-0-synthetic
Not logged in
Core Home Timeline Branches Tags Tickets Wiki Login
Hide Diff Patch Unified Diff

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes In Branch bwidget-1-7-0-synthetic Excluding Merge-Ins

This is equivalent to a diff from 100ba912c6 to 8dc164d14e

2004-01-06
07:22
* init.tcl: Added a binding to the Tk spinbox to handle traversal as loading BWidgets seems to screw up the default handling for Tk. [Bug #867604]

* utils.tcl: Fixed a bug that would cause some geometry calculations in BWidget::place to behave incorrectly. This would occasionally make it appear as though a drawn dialog would freeze the application. [Bug #868315] check-in: cd1f34685b user: damonc tags: trunk

2003-12-18
19:11
Synthetic commit. Leaf check-in: 8dc164d14e user: cvs2fossil tags: bwidget-1-7-0-synthetic, bwidget-1-7-0
19:11
Corrected date. check-in: 100ba912c6 user: techentin tags: trunk
19:02
Corrected date typo. check-in: 7f9167142b user: techentin tags: trunk

Changes to notebook.tcl. 

1
2
3
4
5
6
7
8
9
10
11

# ---------------------------------------------------------------------------
#  notebook.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: notebook.tcl,v 1.20 2003/11/26 18:42:24 hobbs Exp $
# ---------------------------------------------------------------------------
#  Index of commands:
#     - NoteBook::create
#     - NoteBook::configure
#     - NoteBook::cget
#     - NoteBook::compute_size
#     - NoteBook::insert




|








1
2
3
4
5
6
7
8
9
10
11

# ---------------------------------------------------------------------------
#  notebook.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: notebook.tcl,v 1.19 2003/10/20 21:23:52 damonc Exp $
# ---------------------------------------------------------------------------
#  Index of commands:
#     - NoteBook::create
#     - NoteBook::configure
#     - NoteBook::cget
#     - NoteBook::compute_size
#     - NoteBook::insert
︙︙
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343



# ---------------------------------------------------------------------------
#  Command NoteBook::bindtabs
# ---------------------------------------------------------------------------
proc NoteBook::bindtabs { path event script } {
    if { $script != "" } {
	append script " \[NoteBook::_get_page_name [list $path] current 1\]"
        $path.c bind "page" $event $script
    } else {
        $path.c bind "page" $event {}
    }
}










|








329
330
331
332
333
334
335
336
337
338
339
340
341
342
343



# ---------------------------------------------------------------------------
#  Command NoteBook::bindtabs
# ---------------------------------------------------------------------------
proc NoteBook::bindtabs { path event script } {
    if { $script != "" } {
	append script " \[NoteBook::_get_page_name [list $path] current 2\]"
        $path.c bind "page" $event $script
    } else {
        $path.c bind "page" $event {}
    }
}
︙︙