Changeset e933fd6 in tol for tolbase/lib/toltk/editor.tcl

Timestamp:

Nov 10, 2016, 12:56:04 PM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

a762e01

Parents:

0731938

Message:

Refs #1933
Se sustituyen los ::blt::tabset por NoteBook de BWidget. En total se sustituyeron 19 tabsets.
Se suspenden un par de widgets que parece que no se usan, y por tanto tampoco se les ha sustituido ::blt::tabset: bsersel, btab. bchilddetail tampoco parece usarse.
Se corrige un problem en InsertItem de tolinspe.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7337 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/editor.tcl (modified) (2 diffs)

tolbase/lib/toltk/editor.tcl

@@ -1646 +1646 @@
   wm protocol $dialog WM_DELETE_WINDOW [list ::Editor::OptionsDestroy $this $dialog]
   set w [$dialog getframe]
-  set w_tabset [::blt::tabset $w.ts -relief flat -highlightthickness 0\
-            -bd 0 -outerpad 0 -tier 2 -slant right -textside right ]
-    
+  set w_tabset [NoteBook $w.nb -tabbevelsize 8 -tabpady {2 6} -font {Arial 8}]
   #insertar tabset
-  $w_tabset insert end Headers Others
-  set f1 [frame $w_tabset.f1]
-  set f2 [frame $w_tabset.f2]
-    
-    
-  $w_tabset tab configure "Headers" -text [mc "Headers"] -window $f1\
-          -fill both -padx 0 -selectbackground \#d9d9d9 -bg gray75
-  $w_tabset tab configure "Others" -text [mc "Others"] -window $f2\
-          -fill both -padx 0 -selectbackground \#d9d9d9 -bg gray75
-    
+  set num_i 0
+  foreach lab_i [list Headers Others] {
+    $w_tabset insert $num_i $lab_i -text "  [mc $lab_i]  " -background \#d9d9d9 
+    set tab_i [$w_tabset getframe $lab_i]
+    $tab_i configure -borderwidth 2 -background \#d9d9d9
+    incr num_i    
+    set f$num_i [frame $tab_i.f]
+    pack $tab_i.f -fill both -expand yes  
+  }
+  $w_tabset raise [$w_tabset pages 0]
+  
   OptionsGet $this
   OptionsCreateHeaders $this $f1
@@ -1683 +1682 @@
   
   pack $w_bbox   -fill x -expand false -side bottom
+  $w_tabset compute_size  
   pack $w_tabset -fill both -expand true