1 files changed, 17 insertions, 6 deletions
diff --git a/videogrid/videogrid.tk2c b/videogrid/videogrid.tk2c
index 69aa210..27bc02a 100644
--- a/videogrid/videogrid.tk2c
+++ b/videogrid/videogrid.tk2c
@@ -13,7 +13,9 @@ sys_gui("set var_graph_color_fons [concat graph_color_fons_$vid]\n");
 sys_gui("global $var_graph_color_fons\n");
 sys_gui("set var_graph_color_marc [concat graph_color_marc_$vid]\n");
 sys_gui("global $var_graph_color_marc\n");
-sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_name] [eval concat $$var_graph_num_fil] [eval concat $$var_graph_num_col] [eval concat $$var_graph_color_fons] [eval concat $$var_graph_color_marc] \\;]\n");
+sys_gui("set var_graph_color_grasp [concat graph_color_grasp_$vid]\n");
+sys_gui("global $var_graph_color_grasp\n");
+sys_gui("set cmd [concat $id dialog [eval concat $$var_graph_name] [eval concat $$var_graph_num_fil] [eval concat $$var_graph_num_col] [eval concat $$var_graph_color_fons] [eval concat $$var_graph_color_marc] [eval concat $$var_graph_color_grasp] \\;]\n");
 // puts stderr $cmd
 sys_gui("pd $cmd\n");
 sys_gui("}\n");
@@ -26,7 +28,7 @@ sys_gui("proc videogrid_ok {id} {\n");
 sys_gui("videogrid_apply $id\n");
 sys_gui("videogrid_cancel $id\n");
 sys_gui("}\n");
-sys_gui("proc pdtk_videogrid_dialog {id name num_fil num_col color_fons color_marc} {\n");
+sys_gui("proc pdtk_videogrid_dialog {id name num_fil num_col color_fons color_marc color_grasp} {\n");
 sys_gui("set vid [string trimleft $id .]\n");
 sys_gui("set var_graph_name [concat graph_name_$vid]\n");
 sys_gui("global $var_graph_name\n");
@@ -38,11 +40,14 @@ sys_gui("set var_graph_color_fons [concat graph_color_fons_$vid]\n");
 sys_gui("global $var_graph_color_fons\n");
 sys_gui("set var_graph_color_marc [concat graph_color_marc_$vid]\n");
 sys_gui("global $var_graph_color_marc\n");
+sys_gui("set var_graph_color_grasp [concat graph_color_grasp_$vid]\n");
+sys_gui("global $var_graph_color_grasp\n");
 sys_gui("set $var_graph_name $name\n");
 sys_gui("set $var_graph_num_fil $num_fil\n");
 sys_gui("set $var_graph_num_col $num_col\n");
 sys_gui("set $var_graph_color_fons $color_fons\n");
 sys_gui("set $var_graph_color_marc $color_marc\n");
+sys_gui("set $var_graph_color_grasp $color_grasp\n");
 sys_gui("toplevel $id\n");
 sys_gui("wm title $id {videogrid}\n");
 sys_gui("wm protocol $id WM_DELETE_WINDOW [concat videogrid_cancel $id]\n");
@@ -58,12 +63,12 @@ sys_gui("pack $id.buttonframe.apply -side left -expand 1\n");
 sys_gui("pack $id.buttonframe.ok -side left -expand 1\n");
 sys_gui("frame $id.1rangef\n");
 sys_gui("pack $id.1rangef -side top\n");
-sys_gui("label $id.1rangef.lname -text \"Nom :\"\n");
+sys_gui("label $id.1rangef.lname -text \"Name :\"\n");
 sys_gui("entry $id.1rangef.name -textvariable $var_graph_name -width 7\n");
 sys_gui("pack $id.1rangef.lname $id.1rangef.name -side left\n");
 sys_gui("frame $id.2rangef\n");
 sys_gui("pack $id.2rangef -side top\n");
-sys_gui("label $id.2rangef.lnum_fil -text \"Fils :\"\n");
+sys_gui("label $id.2rangef.lnum_fil -text \"Rows :\"\n");
 sys_gui("entry $id.2rangef.num_fil -textvariable $var_graph_num_fil -width 7\n");
 sys_gui("pack $id.2rangef.lnum_fil $id.2rangef.num_fil -side left\n");
 sys_gui("frame $id.3rangef\n");
@@ -73,19 +78,25 @@ sys_gui("entry $id.3rangef.num_col -textvariable $var_graph_num_col -width 7\n")
 sys_gui("pack $id.3rangef.lnum_col $id.3rangef.num_col -side left\n");
 sys_gui("frame $id.4rangef\n");
 sys_gui("pack $id.4rangef -side top\n");
-sys_gui("label $id.4rangef.lcolor_fons -text \"Color fons :\"\n");
+sys_gui("label $id.4rangef.lcolor_fons -text \"Bg Color :\"\n");
 sys_gui("entry $id.4rangef.color_fons -textvariable $var_graph_color_fons -width 7\n");
 sys_gui("pack $id.4rangef.lcolor_fons $id.4rangef.color_fons -side left\n");
 sys_gui("frame $id.5rangef\n");
 sys_gui("pack $id.5rangef -side top\n");
-sys_gui("label $id.5rangef.lcolor_marc -text \"Color marc :\"\n");
+sys_gui("label $id.5rangef.lcolor_marc -text \"Border Color :\"\n");
 sys_gui("entry $id.5rangef.color_marc -textvariable $var_graph_color_marc -width 7\n");
 sys_gui("pack $id.5rangef.lcolor_marc $id.5rangef.color_marc -side left\n");
+sys_gui("frame $id.6rangef\n");
+sys_gui("pack $id.6rangef -side top\n");
+sys_gui("label $id.6rangef.lcolor_grasp -text \"Sel Color :\"\n");
+sys_gui("entry $id.6rangef.color_grasp -textvariable $var_graph_color_grasp -width 7\n");
+sys_gui("pack $id.6rangef.lcolor_grasp $id.6rangef.color_grasp -side left\n");
 sys_gui("bind $id.1rangef.name <KeyPress-Return> [concat videogrid_ok $id]\n");
 sys_gui("bind $id.2rangef.num_fil <KeyPress-Return> [concat videogrid_ok $id]\n");
 sys_gui("bind $id.3rangef.num_col <KeyPress-Return> [concat videogrid_ok $id]\n");
 sys_gui("bind $id.4rangef.color_fons <KeyPress-Return> [concat videogrid_ok $id]\n");
 sys_gui("bind $id.5rangef.color_marc <KeyPress-Return> [concat videogrid_ok $id]\n");
+sys_gui("bind $id.6rangef.color_grasp <KeyPress-Return> [concat videogrid_ok $id]\n");
 sys_gui("focus $id.1rangef.name\n");
 sys_gui("}\n");
 sys_gui("proc table {w content args} {\n");