Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Synthetic commit. |
|---|---|
| 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 |
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
4
5
6
7
8
9
10
11
...
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
|
# --------------------------------------------------------------------------- # 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 ................................................................................ # --------------------------------------------------------------------------- # 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 {} } } |
|
|
|
1
2
3
4
5
6
7
8
9
10
11
...
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
|
# --------------------------------------------------------------------------- # 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 ................................................................................ # --------------------------------------------------------------------------- # 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 {} } } |