delete unused files

svn path=/trunk/externals/pdvjtools/; revision=9875

1 files changed, 0 insertions, 157 deletions

diff --git a/imagegrid/imagegrid.tk b/imagegrid/imagegrid.tk
deleted file mode 100644
index f984d38..0000000
--- a/imagegrid/imagegrid.tk
+++ /dev/null
@@ -1,157 +0,0 @@
-############ procediments per imagegrid  -- slario(at)gmail.com [a partir del codi del grid de l'Ives: ydegoyon(at)free.fr]        #########
-
-proc imagegrid_apply {id} {
-# strip "." from the TK id to make a variable name suffix 
-     set vid [string trimleft $id .]
-
-# for each variable, make a local variable to hold its name...
-     set var_graph_name [concat graph_name_$vid]
-     global $var_graph_name
-     set var_graph_num_fil [concat graph_num_fil_$vid]
-     global $var_graph_num_fil 
-     set var_graph_num_col [concat graph_num_col_$vid]
-     global $var_graph_num_col
-     set var_graph_color_fons [concat graph_color_fons_$vid]
-     global $var_graph_color_fons
-     set var_graph_color_marc [concat graph_color_marc_$vid]
-     global $var_graph_color_marc
-     set var_graph_color_grasp [concat graph_color_grasp_$vid]
-     global $var_graph_color_grasp
-
-     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] \
- 	\;]
-#puts stderr $cmd
-     pd $cmd
-}
- 
-proc imagegrid_cancel {id} {
-     set cmd [concat $id cancel \;]
-#puts stderr $cmd
-     pd $cmd
-}
- 
-proc imagegrid_ok {id} {
-     imagegrid_apply $id
-     imagegrid_cancel $id
-}
- 
-proc pdtk_imagegrid_dialog {id name num_fil num_col color_fons color_marc color_grasp} {
-     set vid [string trimleft $id .]
-     set var_graph_name [concat graph_name_$vid]
-     global $var_graph_name
-     set var_graph_num_fil [concat graph_num_fil_$vid]
-     global $var_graph_num_fil
-     set var_graph_num_col [concat graph_num_col_$vid]
-     global $var_graph_num_col
-     set var_graph_color_fons [concat graph_color_fons_$vid]
-     global $var_graph_color_fons
-     set var_graph_color_marc [concat graph_color_marc_$vid]
-     global $var_graph_color_marc
-     set var_graph_color_grasp [concat graph_color_grasp_$vid]
-     global $var_graph_color_grasp
-     
-     set $var_graph_name $name
-     set $var_graph_num_fil $num_fil
-     set $var_graph_num_col $num_col
-     set $var_graph_color_fons $color_fons
-     set $var_graph_color_marc $color_marc
-     set $var_graph_color_grasp $color_grasp
- 
-     toplevel $id
-     wm title $id {imagegrid}
-     wm protocol $id WM_DELETE_WINDOW [concat imagegrid_cancel $id]
- 
-     label $id.label -text {IMAGEGRID PROPERTIES}
-     pack $id.label -side top
- 
-     frame $id.buttonframe
-     pack $id.buttonframe -side bottom -fill x -pady 2m
-     button $id.buttonframe.cancel -text {Cancel}\
-     	-command "imagegrid_cancel $id"
-     button $id.buttonframe.apply -text {Apply}\
-     	-command "imagegrid_apply $id"
-     button $id.buttonframe.ok -text {OK}\
-     	-command "imagegrid_ok $id"
-     pack $id.buttonframe.cancel -side left -expand 1
-     pack $id.buttonframe.apply -side left -expand 1
-     pack $id.buttonframe.ok -side left -expand 1
-     
-     frame $id.1rangef
-     pack $id.1rangef -side top
-     label $id.1rangef.lname -text "Name :"
-     entry $id.1rangef.name -textvariable $var_graph_name -width 7
-     pack $id.1rangef.lname $id.1rangef.name -side left
- 
-     frame $id.2rangef
-     pack $id.2rangef -side top
-     label $id.2rangef.lnum_fil -text "Rows :"
-     entry $id.2rangef.num_fil -textvariable $var_graph_num_fil -width 7
-     pack $id.2rangef.lnum_fil $id.2rangef.num_fil -side left
- 
-     frame $id.3rangef
-     pack $id.3rangef -side top
-     label $id.3rangef.lnum_col -text "Cols :"
-     entry $id.3rangef.num_col -textvariable $var_graph_num_col -width 7
-     pack $id.3rangef.lnum_col $id.3rangef.num_col -side left
- 
-     frame $id.4rangef
-     pack $id.4rangef -side top
-     label $id.4rangef.lcolor_fons -text "Bg Color :"
-     entry $id.4rangef.color_fons -textvariable $var_graph_color_fons -width 7
-     pack $id.4rangef.lcolor_fons $id.4rangef.color_fons -side left
-
-     frame $id.5rangef
-     pack $id.5rangef -side top
-     label $id.5rangef.lcolor_marc -text "Border Color :"
-     entry $id.5rangef.color_marc -textvariable $var_graph_color_marc -width 7
-     pack $id.5rangef.lcolor_marc $id.5rangef.color_marc -side left
-
-     frame $id.6rangef
-     pack $id.6rangef -side top
-     label $id.6rangef.lcolor_grasp -text "Sel Color :"
-     entry $id.6rangef.color_grasp -textvariable $var_graph_color_grasp -width 7
-     pack $id.6rangef.lcolor_grasp $id.6rangef.color_grasp -side left
-
-     bind $id.1rangef.name <KeyPress-Return> [concat imagegrid_ok $id]
-     bind $id.2rangef.num_fil <KeyPress-Return> [concat imagegrid_ok $id]
-     bind $id.3rangef.num_col <KeyPress-Return> [concat imagegrid_ok $id]
-     bind $id.4rangef.color_fons <KeyPress-Return> [concat imagegrid_ok $id]
-     bind $id.5rangef.color_marc <KeyPress-Return> [concat imagegrid_ok $id]
-     bind $id.6rangef.color_grasp <KeyPress-Return> [concat imagegrid_ok $id]
-
-     focus $id.1rangef.name
-}
-
-proc table {w content args} {
-    frame $w -bg black
-    set r 0
-    foreach row $content {
-        set fields {}
-        set c 0
-        foreach col $row {
-            # lappend fields [label $w.$r/$c -text $col]
-	    set img [image create photo -file $col]
-	    lappend fields [label $w.$r/$c -image $img]
-            incr c
-        }
-        eval grid $fields -sticky news -padx 1 -pady 1
-        incr r
-    }
-    set w
-}
-
-proc pdtk_imagegrid_table {id name num_fil num_col} {
-    table .tauler {
-        {sll80x60.gif 3160x120.gif sll80x60.gif}
-        {sll80x60.gif sll80x60.gif sll80x60.gif}
-        {sll80x60.ppm sll80x60.gif 3160x120.gif}
-    }
-    pack .tauler
-}
-############ FINAL procediments per imagegrid  -- slario(at)gmail.com [a partir del codi del grid de l'Ives: ydegoyon(at)free.fr]        #########
\ No newline at end of file