Bwidget Source Code
Check-in [886bbcdfee]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:* notebook.tcl (NoteBook::delete) Deleted also state variables [Bug 1445219] reported by Eric Kemp-Benedict
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 886bbcdfee95a2ef0524f8cdc70e38bd32223851
User & Date: oehhar 2009-06-26 15:22:09
Context
2009-06-29
13:28
* ScrolledWindow.html ScrolledWindow documentation changed: Documented options: -ipad, -sides, -size, -managed [Patch 2807160] Text by Koen Danckaert Removed (read only) remark of option -scrollbar.

* scrollframe.tcl (ScrollableFrame::create) changed bindings [Patch 2807227] by Koen Danckaert (comment)

* scrollw.tcl (ScrolledWindow::_set_hscroll, ScrolledWindow::_set_vscroll) Bug corrected: enless loop when both scrollbars where automatically mapped and the window size was changed by this action (on linux). Scrollbar unmapping and mapping secured by a locked update [Bug 2783019] check-in: ae5fed8a0f user: oehhar tags: trunk

2009-06-26
15:22
* notebook.tcl (NoteBook::delete) Deleted also state variables [Bug 1445219] reported by Eric Kemp-Benedict check-in: 886bbcdfee user: oehhar tags: trunk
14:46
* listbox.tcl (ListBox::create et al) new feature: listbox option -listbox now read/write [Bug 1501874] reported by Stephen Huntley

* dynhelp.tcl (DynamicHelp::_show_help) fixed issue (as far as possible): Dynamic help baloon was on the main screen, if it touched the border on a windows multi screen configuration. The fix assumes, that all screens have same dimensions and no gaps in- between. This is necessary, because multi-screen configuration paramters may not be interrogated by tk (despite of coordinates out of the screen) [Bug 1499135] reported by Gregor check-in: 8860bd1e23 user: oehhar tags: trunk

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

6
7
8
9
10
11
12



13
14
15
16
17
18
19
	* dynhelp.tcl (DynamicHelp::_show_help) fixed issue (as far as possible):
	Dynamic help baloon was on the main screen, if it touched the border on
	a windows multi screen configuration.
	The fix assumes, that all screens have same dimensions and no gaps in-
	between. This is necessary, because multi-screen configuration paramters
	may not be interrogated by tk (despite of coordinates out of the screen)
	[Bug 1499135] reported by Gregor




2009-06-25 Harald Oehlmann  <[email protected]>

	* combobox.tcl (ComboBox::getvalue et al) fixed bug: getvalue returned
	first apearence of current data instead of clicked index, which may not
	be the same if values is not unique. Additional variable _index(path)
	added to hold click index [Bug 1610965] reported by Martin Lemburg






>
>
>







6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
	* dynhelp.tcl (DynamicHelp::_show_help) fixed issue (as far as possible):
	Dynamic help baloon was on the main screen, if it touched the border on
	a windows multi screen configuration.
	The fix assumes, that all screens have same dimensions and no gaps in-
	between. This is necessary, because multi-screen configuration paramters
	may not be interrogated by tk (despite of coordinates out of the screen)
	[Bug 1499135] reported by Gregor

	* notebook.tcl (NoteBook::delete) Deleted also state variables
	[Bug 1445219] reported by Eric Kemp-Benedict

2009-06-25 Harald Oehlmann  <[email protected]>

	* combobox.tcl (ComboBox::getvalue et al) fixed bug: getvalue returned
	first apearence of current data instead of clicked index, which may not
	be the same if values is not unique. Additional variable _index(path)
	added to hold click index [Bug 1610965] reported by Martin Lemburg

Changes to notebook.tcl.

1
2
3
4
5
6
7
8
9
10
11
...
300
301
302
303
304
305
306

307
308
309
310
311
312
313
# ---------------------------------------------------------------------------
#  notebook.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: notebook.tcl,v 1.23 2005/01/26 01:01:26 hobbs Exp $
# ---------------------------------------------------------------------------
#  Index of commands:
#     - NoteBook::create
#     - NoteBook::configure
#     - NoteBook::cget
#     - NoteBook::compute_size
#     - NoteBook::insert
................................................................................
    if { $pos < $data(base) } {
        incr data(base) -1
    }
    if { $destroyframe } {
        destroy $path.f$page
    }
    _redraw $path

}


# ---------------------------------------------------------------------------
#  Command NoteBook::itemconfigure
# ---------------------------------------------------------------------------
proc NoteBook::itemconfigure { path page args } {


|







 







>







1
2
3
4
5
6
7
8
9
10
11
...
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
# ---------------------------------------------------------------------------
#  notebook.tcl
#  This file is part of Unifix BWidget Toolkit
#  $Id: notebook.tcl,v 1.24 2009/06/26 15:22:09 oehhar Exp $
# ---------------------------------------------------------------------------
#  Index of commands:
#     - NoteBook::create
#     - NoteBook::configure
#     - NoteBook::cget
#     - NoteBook::compute_size
#     - NoteBook::insert
................................................................................
    if { $pos < $data(base) } {
        incr data(base) -1
    }
    if { $destroyframe } {
        destroy $path.f$page
    }
    _redraw $path
    unset data($page,width) data($page,realized)
}


# ---------------------------------------------------------------------------
#  Command NoteBook::itemconfigure
# ---------------------------------------------------------------------------
proc NoteBook::itemconfigure { path page args } {