diff options
Diffstat (limited to 'imagegrid/imagegrid.tk2c')
| -rw-r--r-- | imagegrid/imagegrid.tk2c | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/imagegrid/imagegrid.tk2c b/imagegrid/imagegrid.tk2c index 6aaf386..1f1a311 100644 --- a/imagegrid/imagegrid.tk2c +++ b/imagegrid/imagegrid.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 imagegrid_ok {id} {\n"); sys_gui("imagegrid_apply $id\n"); sys_gui("imagegrid_cancel $id\n"); sys_gui("}\n"); -sys_gui("proc pdtk_imagegrid_dialog {id name num_fil num_col color_fons color_marc} {\n"); +sys_gui("proc pdtk_imagegrid_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 {imagegrid}\n"); sys_gui("wm protocol $id WM_DELETE_WINDOW [concat imagegrid_cancel $id]\n"); @@ -81,11 +86,17 @@ sys_gui("pack $id.5rangef -side top\n"); sys_gui("label $id.5rangef.lcolor_marc -text \"Color marc :\"\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 \"Color grasp :\"\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 imagegrid_ok $id]\n"); sys_gui("bind $id.2rangef.num_fil <KeyPress-Return> [concat imagegrid_ok $id]\n"); sys_gui("bind $id.3rangef.num_col <KeyPress-Return> [concat imagegrid_ok $id]\n"); sys_gui("bind $id.4rangef.color_fons <KeyPress-Return> [concat imagegrid_ok $id]\n"); sys_gui("bind $id.5rangef.color_marc <KeyPress-Return> [concat imagegrid_ok $id]\n"); +sys_gui("bind $id.6rangef.color_grasp <KeyPress-Return> [concat imagegrid_ok $id]\n"); sys_gui("focus $id.1rangef.name\n"); sys_gui("}\n"); sys_gui("proc table {w content args} {\n"); |