Changeset 21beb26 in tol for tolbase/lib/toltk

Timestamp:

Dec 30, 2011, 8:43:56 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

09b79f5

Parents:

543fdce

Message:

refs #919, implementing options manager as a tree which is read from TolConfigManager::Config

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

File:

• tolbase/lib/toltk/tolconfig_gui.tcl (modified) (4 diffs)

tolbase/lib/toltk/tolconfig_gui.tcl

@@ +1 @@
+package require BWidget
 package require wtree
+package require msgcat
 
 namespace eval ::TolConfigGUI {
@@ -60 +62 @@
 proc ::TolConfigGUI::FillTreeConfig { } {
   variable win
+  variable tree
   variable treeInfo
 
   array unset treeInfo
   set treeInfo(node,) root
+  $tree item delete all
   FillTree TolConfigManager::Config "" [ ::TolConfig::GetConfig ]
 
+}
+
+proc ::TolConfigGUI::AcceptConfig { } {
+  puts AcceptConfig
 }
 
@@ -73 +81 @@
 
   set win .tolconfig
-
-  if { [ winfo exists $win ] } {
-    raise $win
-  } else {
-    toplevel $win
-    wm state $win withdrawn
-    set tree $win.tree
+  if { ![ winfo exists $win ] } {
+    Dialog $win -title [ mc "Tol configuration"] \
+        -modal local
+    $win add -text Ok
+    $win add -text Cancel
+    
+    set f [ $win getframe ]
+    grid rowconfigure $f 0 -weight 1
+    grid columnconfigure $f 0 -weight 1
+    set tree $f.tree
     wtree  $tree
     $tree configure -table no -filter yes -columns {
@@ -85 +96 @@
       { {text} -tags STATUS -label "Value" -editable yes }
     }
-    grid $tree -row 1 -column 0 -sticky "snew"
+    grid $tree -row 0 -column 0 -sticky "snew"
     grid rowconfigure $win 1 -weight 1
     grid columnconfigure $win 0 -weight 1
-    FillTreeConfig
-    wm state $win normal
+  }
+  FillTreeConfig
+  set ans [ $win draw ]
+  if { $ans == 0 } {
+    AcceptConfig
   }
 }