diff --git a/lib/gui.tcl b/lib/gui.tcl index 473aa04..709aacb 100644 --- a/lib/gui.tcl +++ b/lib/gui.tcl @@ -136,10 +136,11 @@ grid rowconfigure $frmTree 0 -weight 1 set frmWork [ttk::frame .frmWork -border 0 -relief flat] set nbEditor [ttk::notebook $frmWork.nbEditor] +pack $nbEditor -side left -fill both -expand true -#grid $nbEditor -row 0 -column 0 -sticky nsew -pack $nbEditor -fill both -expand true - +# set nbEditor2 [ttk::notebook $frmWork.nbEditor2] +# pack $nbEditor2 -side left -fill both -expand true +# # Create an image CLOSE for tab ttk::style element create close_button image close_10x10 -height 12 -width 12 -sticky e -padding {10 0} @@ -153,7 +154,7 @@ ttk::style layout TNotebook.Tab { } bind TNotebook "catch {NB::PressTab %W %x %y}\;[bind TNotebook ];break" # bind <> "NB::PressTab %W %x %y" - +bind TNotebook "NB::PressTab %W %x %y" # bind . "NB::NextTab $nbEditor" bind . "NB::NextTab $nbEditor 1" bind . "NB::NextTab $nbEditor -1"