From ef9eed1eaa214df28cb65e51f1cdd8c01f33e1f5 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Thu, 15 May 2008 22:58:01 +0000 Subject: seek and border adds + help file renamed + old files deleted svn path=/trunk/externals/pdvjtools/; revision=9816 --- videogrid/videogrid.tk2c | 23 +++++++++++++++++------ 1 file changed, 17 insertions(+), 6 deletions(-) (limited to 'videogrid/videogrid.tk2c') 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 [concat videogrid_ok $id]\n"); sys_gui("bind $id.2rangef.num_fil [concat videogrid_ok $id]\n"); sys_gui("bind $id.3rangef.num_col [concat videogrid_ok $id]\n"); sys_gui("bind $id.4rangef.color_fons [concat videogrid_ok $id]\n"); sys_gui("bind $id.5rangef.color_marc [concat videogrid_ok $id]\n"); +sys_gui("bind $id.6rangef.color_grasp [concat videogrid_ok $id]\n"); sys_gui("focus $id.1rangef.name\n"); sys_gui("}\n"); sys_gui("proc table {w content args} {\n"); -- cgit v1.2.1