Changeset e933fd6 in tol for tolbase/lib/toltk/corgraph.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/corgraph.tcl (modified) (2 diffs)

tolbase/lib/toltk/corgraph.tcl

@@ -259 +259 @@
 # PARAMETERS:
 #   this -> Instance of BayesTable
-#   ts   -> tabset in which options must be created
+#   ts   -> tabset (=>NoteBook) in which options must be created
 #
 #/////////////////////////////////////////////////////////////////////////////
   ReadIniOpc $this
   #insertar tabset
-  $ts insert end Autocorrelation
-  set f [frame $ts.f1]
-  $ts tab configure "Autocorrelation" -text [mc "Autocorrelation"]\
-      -window $f -fill both -padx 0 -selectbackground \#d9d9d9 -bg gray75
-
-  set w_tabset [::blt::tabset $f.ts -relief flat -highlightthickness 0\
-                        -bd 0 -outerpad 0 -tier 2 -slant right -textside right]
-  $w_tabset insert end Parameters
-
-  set f1 [frame $w_tabset.f1]
-  
-  $w_tabset tab configure "Parameters" -text [mc "Parameters"]\
-    -window $f1 -fill both -padx 0 -selectbackground \#d9d9d9 -bg gray75
+  set num_i 1
+  set lab_i Autocorrelation
+  $ts insert $num_i $lab_i -text "  [mc $lab_i]  " -background \#d9d9d9 
+  set tab_i [$ts getframe $lab_i]
+  $tab_i configure -borderwidth 2 -background \#d9d9d9  
+  set f [frame $tab_i.f]
+  pack $tab_i.f -fill both -expand yes
+    
+  set w_tabset [NoteBook $f.nb -tabbevelsize 8 -tabpady {2 6} -font {Arial 8}] 
+  set num_i 0
+  set lab_i Parameters
+  $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
+  set f1 [frame $tab_i.f]
+  pack $tab_i.f -fill both -expand yes  
+  $w_tabset raise [$w_tabset pages 0]
   
   OptionsGet $this
@@ -284 +288 @@
   #OptionsSet   $this
   
+  $w_tabset compute_size 
   grid $w_tabset -sticky news  
   grid rowconfigure    $f 0 -weight 1