Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Synthetic commit. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | bwidget-1-7-0-synthetic | bwidget-1-7-0 |
Files: | files | file ages | folders |
SHA1: |
8dc164d14e88dae6545223556c274427 |
User & Date: | cvs2fossil 2003-12-18 19:11:09.000 |
Context
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 | |
Changes
Changes to notebook.tcl.
1 2 3 | # --------------------------------------------------------------------------- # notebook.tcl # This file is part of Unifix BWidget Toolkit | | | 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 | # --------------------------------------------------------------------------- # Command NoteBook::bindtabs # --------------------------------------------------------------------------- proc NoteBook::bindtabs { path event script } { if { $script != "" } { | | | 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 {} } } |
︙ | ︙ |