Index: ChangeLog ================================================================== --- ChangeLog +++ ChangeLog @@ -1,18 +1,23 @@ -2013-08-28 Harald Oehlmann +2013-08-14 Harald Oehlmann + + * notebook.tcl: cured error in _resize, that + data($p,width) is not (jet) present. Ticket [a4cbba655d]. + +2013-06-28 Harald Oehlmann * 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 +2013-06-26 Harald Oehlmann * mainframe.tcl: Reverted Patch [1977644] (-casesensitive for accellerators). It has issues with shift-lock. -2013-08-21 Harald Oehlmann +2013-06-21 Harald Oehlmann * labelentry.tcl: Bug fixed: Methods from Tk entry widget restored [Bug 1002844]. * mainframe.tcl: Allow case sensitive accelerators Index: notebook.tcl ================================================================== --- notebook.tcl +++ notebook.tcl @@ -1105,16 +1105,26 @@ # ----------------------------------------------------------------------------- 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)} { - if { [set width [Widget::cget $path -width]] == 0 || - [set height [Widget::cget $path -height]] == 0 } { - compute_size $path - } 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 }