Bwidget Source Code
Check-in [3e24e1b646]
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: cured error in _resize, that data($p,width) is not (jet) present. Ticket [a4cbba655d]
Timelines: family | ancestors | descendants | both | bwidget
Files: files | file ages | folders
SHA1: 3e24e1b646a71e6f1eee3c2c70936ba676926d3e
User & Date: oehhar 2013-09-02 09:39:55
Context
2013-09-11
16:20
xpm2image.tcl: many issues fixed in xpm import by Mattias Hembruch. Ticket [9a8b2ee42e] check-in: f7299663b4 user: oehhar tags: bwidget
2013-09-02
09:39
notebook.tcl: cured error in _resize, that data($p,width) is not (jet) present. Ticket [a4cbba655d] check-in: 3e24e1b646 user: oehhar tags: bwidget
2013-08-14
17:46
notebook.tcl: cured error in _resize, that data($p,width) is not (jet) present. Ticket [a4cbba655d] Leaf check-in: cec2f0f4f8 user: oehhar tags: bug-a4cbba655d
2013-06-28
07:45
Curing shift-lock interferences of Shift-Accelerators of Mainframe widget on the MAC. Ticket [83ce3e84e7], Patch [9f67a66609] check-in: fdb38ca6f0 user: oehhar tags: bwidget
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.






1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20




2013-08-28 Harald Oehlmann <[email protected]>

	* mainframe.tcl: Included Patch [9f67a66609]
	curing issues of Shift-Accellerators with Shift-Lock
	on Mac. By Keith Nash, Ticket [83ce3e84e7].

2013-08-26 Harald Oehlmann <[email protected]>

	* mainframe.tcl: Reverted Patch [1977644]
	(-casesensitive for accellerators). It has
	issues with shift-lock.

2013-08-21 Harald Oehlmann <[email protected]>

	* labelentry.tcl: Bug fixed:
	Methods from Tk entry widget restored [Bug 1002844].
	
	* mainframe.tcl: Allow case sensitive accelerators
	by new option -casesensitive.
	Patch by cmard [Patch 1977644]
>
>
>
>
>
|





|





|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
2013-08-14 Harald Oehlmann <[email protected]>

	* notebook.tcl: cured error in _resize, that
	data($p,width) is not (jet) present. Ticket [a4cbba655d].

2013-06-28 Harald Oehlmann <[email protected]>

	* mainframe.tcl: Included Patch [9f67a66609]
	curing issues of Shift-Accellerators with Shift-Lock
	on Mac. By Keith Nash, Ticket [83ce3e84e7].

2013-06-26 Harald Oehlmann <[email protected]>

	* mainframe.tcl: Reverted Patch [1977644]
	(-casesensitive for accellerators). It has
	issues with shift-lock.

2013-06-21 Harald Oehlmann <[email protected]>

	* labelentry.tcl: Bug fixed:
	Methods from Tk entry widget restored [Bug 1002844].
	
	* mainframe.tcl: Allow case sensitive accelerators
	by new option -casesensitive.
	Patch by cmard [Patch 1977644]

Changes to notebook.tcl.

1103
1104
1105
1106
1107
1108
1109






1110

1111
1112



1113

1114
1115
1116
1117
1118
1119
1120
1121
1122
# -----------------------------------------------------------------------------
#  Command NoteBook::_resize
# -----------------------------------------------------------------------------
proc NoteBook::_resize { path } {
    variable $path
    upvar 0  $path data







    if {!$data(realized)} {

	if { [set width  [Widget::cget $path -width]]  == 0 ||
	     [set height [Widget::cget $path -height]] == 0 } {



	    compute_size $path

	}
	set data(realized) 1
    }

    NoteBook::_redraw $path
}


# Tree::_set_help --






>
>
>
>
>
>

>
|
|
>
>
>

>

<







1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125

1126
1127
1128
1129
1130
1131
1132
# -----------------------------------------------------------------------------
#  Command NoteBook::_resize
# -----------------------------------------------------------------------------
proc NoteBook::_resize { path } {
    variable $path
    upvar 0  $path data

    # Check if pages are fully initialized or if we are still initializing
    if { 0 < [llength $data(pages)] &&
	 ![info exists data([lindex $data(pages) end],width)] } {
	return
    }
    
    if {!$data(realized)} {
	set data(realized) 1
	if { [Widget::cget $path -width]  == 0 ||
	     [Widget::cget $path -height] == 0 } {
	    # This does an update allowing other events (resize) to enter
	    # In addition, it does a redraw, so first set the realized and
	    # then exit
	    compute_size $path
	    return
	}

    }

    NoteBook::_redraw $path
}


# Tree::_set_help --