home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / TCL / BLT / _BLT.TAR / usr / lib / blt / demos / grconf.tcl < prev    next >
Encoding:
Text File  |  1994-04-22  |  38.7 KB  |  1,196 lines
  1. #!../blt_wish -f
  2.  
  3. if [file exists ../library] {
  4.     set blt_library ../library
  5. }
  6. set graph {}
  7. set interp {}
  8. set class {}
  9. set table(dummy) {}
  10. set setProc(dummy) {}
  11. set getProc(dummy) {}
  12. set row 0
  13. set column 0
  14.  
  15. wm title . "Graph Configure Tool"
  16.  
  17. option add *Radiobutton.font *New*Century*Schoolbook-Medium*-R-*-12-*
  18. option add *Radiobutton.relief flat
  19. #option add *Entry.font *Courier-Medium-R-*-12-*
  20. option add *Label.font *Helvetica-Bold-R-*-12-*
  21. option add *title.font *Helvetica-Bold-R-*-14-*
  22. option add *Entry.font *Courier-Medium-R-*-12-*
  23. option add *Scale.length 120
  24.  
  25. #
  26. #  Controls for various options
  27. # 
  28.  
  29. proc GetOptions { options arrayVar defaultsVar } {
  30.     upvar $arrayVar array
  31.     upvar $defaultsVar defaults
  32.  
  33.     foreach item $options {
  34.     if {[llength $item] < 4} {
  35.         continue
  36.     }
  37.     set name [lindex $item 0] 
  38.     set value [lindex $item 4]
  39.     set array($name) $value
  40.     }
  41.     set names [lsort [array names array]]
  42.     set defaults {}
  43.     foreach i $names {
  44.     lappend defaults $i $array($i)
  45.     }
  46. }
  47.  
  48. proc AnchorControl { name option value } {
  49.     global row column table setProc 
  50.  
  51.     label $table($name).label$option -text $option 
  52.     frame $table($name).frame$option 
  53.     set frame $table($name).frame$option 
  54.     set variable $name$option
  55.  
  56.     set count 0
  57.     foreach i { nw n ne w center e sw s se } {
  58.     radiobutton $frame.rbutton_$i -variable $variable -value $i -text $i \
  59.         -command "$setProc($name) $option \$\{$variable\}"
  60.     blt_table $frame $frame.rbutton_$i $count/3,$count%3 -anchor w
  61.     incr count
  62.     }
  63.     blt_table $table($name) \
  64.     $table($name).label$option $row,$column -anchor w \
  65.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  66.  
  67.     global $variable
  68.     set $variable $value
  69.     incr row 
  70. }
  71.  
  72. proc AnchorReset { name option value } {
  73.     global setProc 
  74.  
  75.     set variable $name$option
  76.     global $variable
  77.     set $variable $value
  78.     $setProc($name) $option $value
  79. }
  80.  
  81. proc ReliefControl { name option value } {
  82.     global row column table setProc
  83.  
  84.     label $table($name).label$option -text $option 
  85.     frame $table($name).frame$option 
  86.     set frame $table($name).frame$option 
  87.     set variable $name$option
  88.  
  89.     set count 0
  90.     foreach i { sunken groove flat ridge raised } {
  91.     radiobutton $frame.rbutton_$i -variable $variable -value $i -text $i \
  92.         -command "$setProc($name) $option \$\{$variable\}"
  93.     blt_table $frame $frame.rbutton_$i $count/2,$count%2 -anchor w
  94.     incr count
  95.     }
  96.     blt_table $table($name) \
  97.     $table($name).label$option $row,$column -anchor w \
  98.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  99.     
  100.     global $variable
  101.     set $variable $value
  102.     incr row 
  103. }
  104.  
  105. proc ReliefReset { name option value } {
  106.     global setProc
  107.     set variable $name$option
  108.     global $variable
  109.     set $variable $value
  110.     $setProc($name) $option $value
  111. }
  112.  
  113.  
  114. proc SymbolControl { name option value } {
  115.     global row column table setProc
  116.  
  117.     label $table($name).label$option -text $option 
  118.     frame $table($name).frame$option 
  119.     set frame $table($name).frame$option 
  120.     set variable $name$option
  121.  
  122.     set count 0
  123.     foreach i { Line Circle Cross Diamond Plus Square Scross Splus } {
  124.     radiobutton $frame.rbutton_$i -variable $variable -value $i -text $i \
  125.         -command "$setProc($name) $option \$\{$variable\}"
  126.     blt_table $frame $frame.rbutton_$i $count/3,$count%3 -anchor w
  127.     incr count
  128.     }
  129.     blt_table $table($name) \
  130.     $table($name).label$option $row,$column -anchor w \
  131.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  132.     
  133.     global $variable
  134.     set $variable $value
  135.     incr row 
  136. }
  137.  
  138. proc SymbolReset { name option value } {
  139.     global setProc
  140.     set variable $name$option
  141.     global $variable
  142.     set $variable $value
  143.     $setProc($name) $option $value
  144. }
  145.  
  146. proc BooleanControl { name option value } {
  147.     global row column table setProc
  148.  
  149.     label $table($name).label$option -text $option 
  150.     frame $table($name).frame$option 
  151.     set frame $table($name).frame$option 
  152.     set variable $name$option
  153.  
  154.     radiobutton $frame.rbutton_true -text "true" -variable $variable \
  155.     -command "$setProc($name) $option \$\{$variable\}" \
  156.     -value 1 
  157.     radiobutton $frame.rbutton_false  -text "false" -variable $variable \
  158.     -command "$setProc($name) $option \$\{$variable\}" \
  159.     -value 0
  160.     blt_table $frame \
  161.     $frame.rbutton_true  0,0 -anchor w \
  162.     $frame.rbutton_false 0,1 -anchor w
  163.  
  164.     blt_table $table($name) \
  165.     $table($name).label$option $row,$column -anchor w \
  166.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  167.  
  168.     global $variable
  169.     set $variable $value
  170.     incr row 
  171. }
  172.  
  173. proc BooleanReset { name option value } {
  174.     global setProc
  175.     set variable $name$option
  176.     global $variable
  177.     set $variable $value
  178.     $setProc($name) $option $value
  179. }
  180.  
  181. proc SetInt { name option value } {
  182.     global table setProc
  183.  
  184.     $setProc($name) $option $value
  185.     $table($name).frame$option.scale set $value
  186.     $table($name).frame$option.entry delete 0 end
  187.     $table($name).frame$option.entry insert 0 $value
  188. }
  189.  
  190. proc IntControl { name option from to value } {
  191.     global row column table 
  192.  
  193.     label $table($name).label$option -text $option 
  194.     frame $table($name).frame$option
  195.     set frame $table($name).frame$option
  196.     entry $frame.entry -relief sunken -width 6
  197.     scale $frame.scale -from $from -to $to \
  198.     -orient horizontal  -bg bisque1 -showvalue 0 
  199.     blt_table $frame \
  200.     $frame.entry 0,0 -fill x \
  201.     $frame.scale 0,1  -fill x
  202.     $frame.scale set $value
  203.     $frame.scale configure -command "SetInt $name $option "
  204.     $frame.entry insert 0 $value
  205.     bind $frame.entry <Return> "SetInt $name $option \[%W get\]"
  206.     blt_table $table($name) \
  207.     $table($name).label$option $row,$column -anchor w \
  208.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x 
  209.     incr row 
  210. }
  211.  
  212. proc IntReset { name option value } {
  213.     global setProc
  214.  
  215.     SetInt $name $option $value
  216.     $setProc($name) $option $value
  217. }
  218.  
  219. proc SetFloatFromEntry { name option scale value } {
  220.     global table setProc
  221.  
  222.     $setProc($name) $option $value
  223.     $table($name).frame$option.scale set [expr round($value/$scale)]
  224.     $table($name).frame$option.entry delete 0 end
  225.     $table($name).frame$option.entry insert 0 $value
  226. }
  227.  
  228. proc SetFloatFromScale { name option scale value } {
  229.     global table setProc
  230.  
  231.     set x [expr $scale*$value]
  232.     $setProc($name) $option $x 
  233.     $table($name).frame$option.scale set $value
  234.     $table($name).frame$option.entry delete 0 end
  235.     $table($name).frame$option.entry insert 0 $x
  236. }
  237.  
  238. proc FloatControl { name option from to scale value } {
  239.     global row column table setProc
  240.  
  241.     label $table($name).label$option -text $option 
  242.     frame $table($name).frame$option
  243.     set frame $table($name).frame$option
  244.     entry $frame.entry -relief sunken -width 6
  245.     scale $frame.scale -from $from -to $to \
  246.     -orient horizontal  -bg bisque1 -showvalue 0  \
  247.     -command "SetFloatFromScale $name $option $scale"
  248.     blt_table $frame \
  249.     $frame.entry 0,0 -fill x \
  250.     $frame.scale 0,1  -fill x
  251.     $frame.scale set [expr round($value/$scale)]
  252.     $frame.entry insert 0 $value
  253.     bind $frame.entry <Return> \
  254.     "SetFloatFromEntry $name $option $scale \[%W get\]"
  255.     blt_table $table($name) \
  256.     $table($name).label$option $row,$column -anchor w \
  257.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x 
  258.     incr row 
  259. }
  260.  
  261. proc FloatReset { name option scale value } {
  262.     global setProc
  263.     
  264.     SetFloatFromEntry $name $option $scale $value 
  265.     $setProc($name) $option $value
  266. }
  267.  
  268.  
  269. proc RGBInit {} {
  270.     global RGB
  271.  
  272.     set RGB(dummy) 0
  273.     if ![catch { exec showrgb } colorList] {
  274.     set colorList [split $colorList \n]
  275.     foreach i $colorList {
  276.         set parts [split $i \t]
  277.         set name [lindex $parts 2]
  278.         set RGB($name) [lindex $parts 0]
  279.     }
  280.     }
  281. }
  282.  
  283. proc RGBSetColorFromScale { name option color intensity } {
  284.     global rgb-$name$option setProc table
  285.  
  286.     set rgb-$name${option}($color) $intensity
  287.     set color [format #%02x%02x%02x [set rgb-$name${option}(red)] \
  288.            [set rgb-$name${option}(green)] [set rgb-$name${option}(blue)]]
  289.     $table($name).frame$option.entry delete 0 end
  290.     $table($name).frame$option.entry insert 0 $color
  291.     $setProc($name) $option $color
  292. }
  293.  
  294. proc RGBInitControls { name option color } {
  295.     global rgb-$name$option table RGB
  296.  
  297.     set frame $table($name).frame$option
  298.     $frame.entry delete 0 end
  299.     $frame.entry insert 0 $color
  300.     if { [string match #* $color] } {
  301.     set rgb-${name}${option}(red) 0x[string range $color 1 2]
  302.     set rgb-${name}${option}(green) 0x[string range $color 3 4]
  303.     set rgb-${name}${option}(blue) 0x[string range $color 5 6]
  304.     } elseif { [info exists RGB($color)] } {
  305.     set info $RGB($color)
  306.     set rgb-${name}${option}(red) [lindex $info 0]
  307.     set rgb-${name}${option}(green) [lindex $info 1]
  308.     set rgb-${name}${option}(blue) [lindex $info 2]
  309.     } else {
  310.     set rgb-${name}${option}(red) 0
  311.     set rgb-${name}${option}(green) 0
  312.     set rgb-${name}${option}(blue) 0
  313.     return
  314.     }
  315.     foreach i { red green blue } {
  316.     $frame.scale_$i set [set rgb-${name}${option}($i)]
  317.     }
  318. }
  319.  
  320. proc RGBSetColorFromEntry { name option color } {
  321.     global setProc table 
  322.  
  323.     RGBInitControls $name $option $color
  324.     $setProc($name) $option $color
  325. }
  326.  
  327. proc RGBColorControl { name option value } {
  328.     global row column table 
  329.     
  330.     label $table($name).label$option -text $option 
  331.     frame $table($name).frame$option 
  332.     set frame $table($name).frame$option 
  333.     
  334.     entry $frame.entry -relief sunken -width 8
  335.     scale $frame.scale_red -from 0 -to 255 -orient horizontal -showvalue 0 \
  336.     -sliderforeground #ff8888 -bd 0 -bg bisque1 -activeforeground red \
  337.     -command "RGBSetColorFromScale $name $option red"
  338.     scale $frame.scale_green -from 0 -to 255 -orient horizontal -showvalue 0 \
  339.     -sliderforeground #43cd80 -bd 0 -bg bisque1 -activeforeground green \
  340.     -command "RGBSetColorFromScale $name $option green"
  341.     scale $frame.scale_blue -from 0 -to 255 -orient horizontal -showvalue 0 \
  342.     -sliderforeground #7ec0ee -bd 0 -bg bisque1 -activeforeground blue \
  343.     -command "RGBSetColorFromScale $name $option blue"
  344.     blt_table $frame \
  345.     $frame.entry 0,0 -rspan 3 \
  346.     $frame.scale_red 0,1 -fill both  \
  347.     $frame.scale_green 1,1 -fill both \
  348.     $frame.scale_blue 2,1 -fill both 
  349.  
  350.     bind $frame.entry <Return> \
  351.     "RGBSetColorFromEntry $name $option \[%W get\]"
  352.     RGBInitControls $name $option $value
  353.     blt_table $table($name) \
  354.     $table($name).label$option $row,$column -anchor w \
  355.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  356.     incr row 
  357. }
  358.  
  359. proc RGBColorReset { name option value } {
  360.     RGBSetColorFromEntry $name $option $value
  361. }
  362.  
  363. proc EntryControl { name option value } {
  364.     global row column table setProc
  365.  
  366.     label $table($name).label$option -text $option 
  367.     entry $table($name).entry$option -relief sunken
  368.     bind $table($name).entry$option <Return> \
  369.     "$setProc($name) $option \[%W get\]"
  370.     $table($name).entry$option insert 0 $value
  371.  
  372.     blt_table $table($name) \
  373.     $table($name).label$option $row,$column -anchor w \
  374.     $table($name).entry$option $row,$column+1 -cspan 2 -fill x
  375.     incr row 
  376. }
  377.  
  378. proc EntryReset { name option value } {
  379.     global table setProc
  380.  
  381.     $table($name).entry$option delete 0 end
  382.     $table($name).entry$option insert 0 $value
  383.     $setProc($name) $option $value
  384. }
  385.  
  386. proc FontControl { name option value } {
  387.     global row column table setProc
  388.  
  389.     label $table($name).label$option -text $option 
  390.     frame $table($name).frame$option 
  391.     set frame $table($name).frame$option 
  392.  
  393.     entry $frame.entry -relief sunken
  394.     frame $frame.palette -geom 15x15 -relief raised -bd 2
  395.     blt_table $frame \
  396.     $frame.entry 0,0 -fill x \
  397.     $frame.palette 0,1 -padx 2  -reqwidth 15 -fill y
  398.  
  399.     blt_table column $frame configure 1 -resize none
  400.     $frame.entry insert 0 $value
  401.     bind $frame.entry <Return> "$setProc($name) $option \[%W get\]"
  402.  
  403.     blt_table $table($name) \
  404.     $table($name).label$option $row,$column -anchor w \
  405.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  406.     incr row 
  407. }
  408.  
  409.  
  410. proc FontReset { name option value } {
  411.     global table setProc
  412.  
  413.     $table($name).frame$option.entry delete 0 end
  414.     $table($name).frame$option.entry insert 0 $value
  415.     $setProc($name) $option $value
  416. }
  417.  
  418.  
  419. proc TraceReset { name option value } {
  420.     global setProc
  421.     set variable $name$option
  422.     global $variable
  423.     set $variable $value
  424.     $setProc($name) $option $value
  425. }
  426.  
  427. proc TraceControl { name option value } {
  428.     global row column table setProc
  429.  
  430.     label $table($name).label$option -text $option 
  431.     frame $table($name).frame$option 
  432.     set frame $table($name).frame$option 
  433.     set variable $name$option
  434.  
  435.     radiobutton $frame.rbutton_dec -text "decreasing" -variable $variable \
  436.     -command "$setProc($name) $option \$\{$variable\}" \
  437.     -value "decreasing"
  438.     radiobutton $frame.rbutton_both -text "both" -variable $variable \
  439.     -command "$setProc($name) $option \$\{$variable\}" \
  440.     -value "both"
  441.     radiobutton $frame.rbutton_inc -text "increasing" -variable $variable \
  442.     -command "$setProc($name) $option \$\{$variable\}" \
  443.     -value "increasing" 
  444.     blt_table $frame \
  445.     $frame.rbutton_both 0,0 -anchor w \
  446.     $frame.rbutton_dec 0,1 -anchor w \
  447.     $frame.rbutton_inc 0,2 -anchor w 
  448.  
  449.     blt_table $table($name) \
  450.     $table($name).label$option $row,$column -anchor w \
  451.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  452.  
  453.     global $variable
  454.     set $variable $value
  455.     incr row 
  456. }
  457.  
  458.  
  459. proc MapXAxisControl { name option value } {
  460.     global row column table setProc
  461.  
  462.     label $table($name).label$option -text $option 
  463.     frame $table($name).frame$option 
  464.     set frame $table($name).frame$option 
  465.     set variable $name$option
  466.  
  467.     radiobutton $frame.rbutton_x1 -text "x" -variable $variable \
  468.     -command "$setProc($name) $option \$\{$variable\}" \
  469.     -value "x" 
  470.     radiobutton $frame.rbutton_x2 -text "x2" -variable $variable \
  471.     -command "$setProc($name) $option \$\{$variable\}" \
  472.     -value "x2"
  473.     radiobutton $frame.rbutton_both -text "both" -variable $variable \
  474.     -command "$setProc($name) $option \$\{$variable\}" \
  475.     -value "both"
  476.     blt_table $frame \
  477.     $frame.rbutton_x1 0,0 -anchor w \
  478.     $frame.rbutton_x2 0,1 -anchor w \
  479.     $frame.rbutton_both 0,2 -anchor w
  480.  
  481.     blt_table $table($name) \
  482.     $table($name).label$option $row,$column -anchor w \
  483.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  484.  
  485.     global $variable
  486.     set $variable $value
  487.     incr row 
  488. }
  489.  
  490. proc MapXAxisReset { name option value } {
  491.     global setProc
  492.     set variable $name$option
  493.     global $variable
  494.     set $variable $value
  495.     $setProc($name) $option $value
  496. }
  497.  
  498. proc MapYAxisControl { name option value } {
  499.     global row column table setProc
  500.  
  501.     label $table($name).label$option -text $option 
  502.     frame $table($name).frame$option 
  503.     set frame $table($name).frame$option 
  504.     set variable $name$option
  505.  
  506.     radiobutton $frame.rbutton_y1 -text "y" -variable $variable \
  507.     -command "$setProc($name) $option \$\{$variable\}" \
  508.     -value "y" 
  509.     radiobutton $frame.rbutton_y2 -text "y2" -variable $variable \
  510.     -command "$setProc($name) $option \$\{$variable\}" \
  511.     -value "y2"
  512.     radiobutton $frame.rbutton_both -text "both" -variable $variable \
  513.     -command "$setProc($name) $option \$\{$variable\}" \
  514.     -value "both"
  515.     blt_table $frame \
  516.     $frame.rbutton_y1 0,0 -anchor w \
  517.     $frame.rbutton_y2 0,1 -anchor w \
  518.     $frame.rbutton_both 0,2 -anchor w
  519.  
  520.     blt_table $table($name) \
  521.     $table($name).label$option $row,$column -anchor w \
  522.     $table($name).frame$option $row,$column+1 -cspan 2 -fill x
  523.  
  524.     global $variable
  525.     set $variable $value
  526.     incr row 
  527. }
  528.  
  529. proc MapYAxisReset { name option value } {
  530.     global setProc
  531.     set variable $name$option
  532.     global $variable
  533.     set $variable $value
  534.     $setProc($name) $option $value
  535. }
  536.  
  537. #
  538. #
  539. # Component configuration routines
  540. #
  541. #
  542.  
  543. proc GraphConfigure { interpName graphName } {
  544.     global graph interp class RGB
  545.  
  546.     if ![info exists RGB] {
  547.     RGBInit
  548.     }
  549.     set graph $graphName
  550.     set interp $interpName
  551.     if { $interp == "" } {
  552.     set interp [winfo name .]
  553.     }
  554.     if [catch [list send $interp winfo class $graph] class ] {
  555.     puts stderr "\"send\" disabled: can't communicate with \"$interp\""
  556.     puts stderr $class
  557.     exit 1
  558.     }
  559. }
  560.  
  561. proc ResetGraph {} {
  562.     global graphOptions graphDefaults graph interp class
  563.  
  564.     RGBColorReset graph -background $graphOptions(-background)
  565.     IntReset graph -borderwidth $graphOptions(-borderwidth)
  566.     IntReset graph -bottommargin $graphOptions(-bottommargin)
  567.     BooleanReset graph -bufferelements $graphOptions(-bufferelements)
  568.     EntryReset graph -cursor $graphOptions(-cursor)
  569.     EntryReset graph -font $graphOptions(-font)
  570.     RGBColorReset graph -foreground $graphOptions(-foreground)
  571.     IntReset graph -halo $graphOptions(-halo)
  572.     IntReset graph -height $graphOptions(-height)
  573.     BooleanReset graph -invertxy $graphOptions(-invertxy)
  574.     IntReset graph -leftmargin $graphOptions(-leftmargin)
  575.     RGBColorReset graph -plotbackground $graphOptions(-plotbackground)
  576.     IntReset graph -plotborderwidth $graphOptions(-plotborderwidth)
  577.     ReliefReset graph -plotrelief $graphOptions(-plotrelief)
  578.     ReliefReset graph -relief $graphOptions(-relief)
  579.     IntReset graph -rightmargin $graphOptions(-rightmargin)
  580.     EntryReset graph -title $graphOptions(-title)
  581.     IntReset graph -topmargin $graphOptions(-topmargin)
  582.     IntReset graph -width $graphOptions(-width)
  583.     send $interp $graph configure $graphDefaults
  584. }
  585.  
  586.  
  587. proc SetGraph { option value } {
  588.     global graph interp
  589.     send $interp [list $graph configure $option $value]
  590. }
  591.  
  592. proc GetGraph {} {
  593.     global graph interp
  594.     send $interp [list $graph configure]
  595. }
  596.  
  597.  
  598. proc ConfigureGeneral {} {
  599.     global graphOptions graphDefaults class
  600.     global table row column setProc getProc 
  601.     
  602.     set name graph
  603.     if { [info command .$name] == ".$name" } {
  604.     destroy .$name
  605.     return
  606.     }
  607.     set row 2
  608.     set column 1
  609.     set setProc($name) SetGraph
  610.     set getProc($name) GetGraph
  611.  
  612.     GetOptions [$getProc($name)] graphOptions graphDefaults
  613.     set table($name) .$name
  614.     toplevel $table($name)
  615.     wm title .$name "General Configuration"
  616.     
  617.     frame $table($name).frame -relief groove -bd 2
  618.     label $table($name).title -text "General Configuration Options"
  619.     RGBColorControl graph -background $graphOptions(-background)
  620.     IntControl graph -borderwidth 0 10 $graphOptions(-borderwidth)
  621.     IntControl graph -bottommargin 0 100 $graphOptions(-bottommargin)
  622.     BooleanControl graph -bufferelements $graphOptions(-bufferelements)
  623.     EntryControl graph -cursor $graphOptions(-cursor)
  624.     EntryControl graph -font $graphOptions(-font)
  625.     RGBColorControl graph -foreground $graphOptions(-foreground)
  626.     IntControl graph -halo 0 100 $graphOptions(-halo)
  627.     IntControl graph -height 150 800 $graphOptions(-height)
  628.     set row 2
  629.     set column 5
  630.     BooleanControl graph -invertxy $graphOptions(-invertxy)
  631.     IntControl graph -leftmargin 0 100 $graphOptions(-leftmargin)
  632.     RGBColorControl graph -plotbackground $graphOptions(-plotbackground)
  633.     IntControl graph -plotborderwidth 0 10 $graphOptions(-plotborderwidth)
  634.     ReliefControl graph -plotrelief $graphOptions(-plotrelief)
  635.     ReliefControl graph -relief $graphOptions(-relief)
  636.     IntControl graph -rightmargin 0 100 $graphOptions(-rightmargin)
  637.     EntryControl graph -title $graphOptions(-title)
  638.     IntControl graph -topmargin 0 100 $graphOptions(-topmargin)
  639.     IntControl graph -width 150 800 $graphOptions(-width)
  640.  
  641.     button $table($name).button_done -text "done" \
  642.     -command "destroy .$name; set varGeneral 0"
  643.     button $table($name).button_reset -text "reset" \
  644.     -command "ResetGraph"
  645.     incr row
  646.     if { $row & 1 } {
  647.     incr row
  648.     }
  649.     blt_table $table($name) \
  650.     $table($name).frame 0,0 -cspan 24 -rspan $row -fill both \
  651.     -padx 4 -pady 4 \
  652.     $table($name).title         1,0 -cspan 24 \
  653.     $table($name).button_reset     $row,$column -reqwidth .7i -anchor w \
  654.     $table($name).button_done     $row,$column+1 -reqwidth .7i -anchor e
  655.     blt_table column $table($name) configure { 1 5 } -padx 5
  656.     blt_table row $table($name) configure all -pady 5
  657.     blt_table column $table($name) configure { 0 4 9 } -width 0.25i
  658.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  659.     blt_table row $table($name) configure { $row } -height {}
  660. }
  661.  
  662.  
  663. proc ResetAxis { axis } {
  664.     global axisOptions axisDefaults graph interp
  665.  
  666.     RGBColorReset axis -color $axisOptions(-color)
  667.     BooleanReset axis -descending $axisOptions(-descending)
  668.     EntryReset axis -font $axisOptions(-font)
  669.     IntReset axis -linewidth $axisOptions(-linewidth)
  670.     BooleanReset axis -logscale $axisOptions(-logscale)
  671.     BooleanReset axis -loose $axisOptions(-loose)
  672.     BooleanReset axis -mapped $axisOptions(-mapped)
  673.     EntryReset axis -max $axisOptions(-max)
  674.     EntryReset axis -min $axisOptions(-min)
  675.     FloatReset axis -rotate 1.0 $axisOptions(-rotate)
  676.     BooleanReset axis -showticks $axisOptions(-showticks)
  677.     FloatReset axis -stepsize 1.0 $axisOptions(-stepsize)
  678.     IntReset axis -subticks $axisOptions(-subticks)
  679.     IntReset axis -ticklength $axisOptions(-ticklength)
  680.     EntryReset axis -title $axisOptions(-title)
  681.     send $interp $graph $axis configure $axisDefaults
  682. }
  683.  
  684. proc GetAxis {} {
  685.     global axis graph interp
  686.     send $interp [list $graph $axis configure]
  687. }
  688.  
  689. proc SetAxisOptions { axis } {
  690.     global getProc axisOptions axisDefaults 
  691.     GetOptions [GetAxis] axisOptions axisDefaults
  692.     ResetAxis $axis
  693. }
  694.  
  695.  
  696. proc SetAxis { option value } {
  697.     global axis graph interp
  698.     send $interp [list $graph $axis configure $option $value]
  699. }
  700.  
  701. proc ConfigureAxis {} {
  702.     global axisOptions axisDefaults 
  703.     global table row column axis setProc getProc
  704.  
  705.     set name axis
  706.     if { [info command .$name] == ".$name" } {
  707.     destroy .$name
  708.     return
  709.     }
  710.     set row 3
  711.     set column 1
  712.     set axis xaxis
  713.     set setProc($name) SetAxis
  714.     set getProc($name) GetAxis
  715.  
  716.     GetOptions [$getProc($name)] axisOptions axisDefaults
  717.     set table($name) .$name
  718.     toplevel $table($name)
  719.     wm title .$name "Axis Configuration"
  720.  
  721.     frame $table($name).frame -relief groove -bd 2
  722.     label $table($name).title -text "Axis Configuration Options"
  723.     
  724.     frame $table($name).axis 
  725.     radiobutton $table($name).axis.x -text "x" -variable axis \
  726.     -value "xaxis" \
  727.     -command "SetAxisOptions xaxis" 
  728.  
  729.     radiobutton $table($name).axis.y -text "y" -variable axis \
  730.     -value "yaxis" \
  731.     -command "SetAxisOptions yaxis" 
  732.  
  733.     radiobutton $table($name).axis.x2 -text "x2" -variable axis \
  734.     -value "x2axis" \
  735.     -command "SetAxisOptions x2axis" 
  736.  
  737.     radiobutton $table($name).axis.y2 -text "y2" -variable axis \
  738.     -value "y2axis" \
  739.     -command "SetAxisOptions y2axis" 
  740.  
  741.     pack append $table($name).axis \
  742.     $table($name).axis.x { left expand fill } \
  743.     $table($name).axis.y { left expand fill } \
  744.     $table($name).axis.x2 { left expand fill } \
  745.     $table($name).axis.y2 { left expand fill } 
  746.  
  747.     RGBColorControl axis -color $axisOptions(-color)
  748.     BooleanControl axis -descending $axisOptions(-descending)
  749.     EntryControl axis -font $axisOptions(-font)
  750.     IntControl axis -linewidth 0 10 $axisOptions(-linewidth)
  751.     BooleanControl axis -logscale $axisOptions(-logscale)
  752.     BooleanControl axis -loose $axisOptions(-loose)
  753.     BooleanControl axis -mapped $axisOptions(-mapped)
  754.     EntryControl axis -max $axisOptions(-max)
  755.     EntryControl axis -min $axisOptions(-min)
  756.     FloatControl axis -rotate 0 360 1.0 $axisOptions(-rotate)
  757.     BooleanControl axis -showticks $axisOptions(-showticks)
  758.     FloatControl axis -stepsize 0 100 1.0 $axisOptions(-stepsize)
  759.     IntControl axis -subticks 0 10 $axisOptions(-subticks)
  760.     IntControl axis -ticklength -20 20 $axisOptions(-ticklength)
  761.     EntryControl axis -title $axisOptions(-title)
  762.     
  763.     button $table($name).button_done -text "done" \
  764.     -command "destroy .$name; set varAxis 0"
  765.     button $table($name).button_reset -text "reset" \
  766.     -command "ResetAxis $axis"
  767.     incr row
  768.     blt_table $table($name) \
  769.     $table($name).frame 0,0 -cspan 14 -rspan $row -fill both \
  770.     -padx 4 -pady 4 \
  771.     $table($name).title         1,0 -cspan 7 \
  772.     $table($name).axis        2,1 -fill x -cspan 3  \
  773.     $table($name).button_reset     $row,2 -reqwidth .7i -anchor w \
  774.     $table($name).button_done     $row,3 -reqwidth .7i -anchor e
  775.     blt_table column $table($name) configure 1 -padx 5
  776.     blt_table row $table($name) configure all -pady 5
  777.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  778.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  779.     blt_table row $table($name) configure { $row } -height {}
  780. }
  781.  
  782.  
  783. proc ResetLegend {} {
  784.     global legendOptions legendDefaults graph interp
  785.  
  786.     RGBColorReset legend -activebackground $legendOptions(-activebackground)
  787.     IntReset legend -activeborderwidth $legendOptions(-activeborderwidth)
  788.     RGBColorReset legend -activeforeground $legendOptions(-activeforeground)
  789.     ReliefReset legend -activerelief $legendOptions(-activerelief)
  790.     AnchorReset legend -anchor $legendOptions(-anchor)
  791.     RGBColorReset legend -background $legendOptions(-background)
  792.     IntReset legend -borderwidth $legendOptions(-borderwidth)
  793.     EntryReset legend -font $legendOptions(-font)
  794.     RGBColorReset legend -foreground $legendOptions(-foreground)
  795.     IntReset legend -ipadx $legendOptions(-ipadx)
  796.     IntReset legend -ipady $legendOptions(-ipady)
  797.     BooleanReset legend -mapped $legendOptions(-mapped)
  798.     IntReset legend -padx $legendOptions(-padx)
  799.     IntReset legend -pady $legendOptions(-pady)
  800.     EntryReset legend -position $legendOptions(-position)
  801.     ReliefReset legend -relief $legendOptions(-relief)
  802.     send $interp $graph legend configure $legendDefaults
  803. }
  804.  
  805.  
  806. proc SetLegend { option value } {
  807.     global graph interp
  808.     send $interp [list $graph legend configure $option $value]
  809. }
  810.  
  811. proc GetLegend {} {
  812.     global graph interp
  813.     send $interp [list $graph legend configure]
  814. }
  815.  
  816. proc ConfigureLegend {} {
  817.     global legendOptions legendDefaults
  818.     global table row column setProc getProc
  819.  
  820.     set name legend
  821.     if { [info command .$name] == ".$name" } {
  822.     destroy .$name
  823.     return
  824.     }
  825.     set row 2
  826.     set column 1
  827.     set setProc($name) SetLegend
  828.     set getProc($name) GetLegend
  829.  
  830.     GetOptions [$getProc($name)] legendOptions legendDefaults
  831.     set table($name) .$name
  832.     toplevel $table($name)
  833.     wm title .$name "Legend Configuration"
  834.  
  835.     frame $table($name).frame -relief groove -bd 2
  836.     label $table($name).title -text "Legend Configuration Options"
  837.  
  838.     RGBColorControl legend -activebackground $legendOptions(-activebackground)
  839.     IntControl legend -activeborderwidth 0 10 \
  840.     $legendOptions(-activeborderwidth)
  841.     RGBColorControl legend -activeforeground $legendOptions(-activeforeground)
  842.     ReliefControl legend -activerelief $legendOptions(-activerelief)
  843.     AnchorControl legend -anchor $legendOptions(-anchor)
  844.     RGBColorControl legend -background $legendOptions(-background)
  845.     IntControl legend -borderwidth 0 10 $legendOptions(-borderwidth)
  846.     EntryControl legend -font $legendOptions(-font)
  847.     RGBColorControl legend -foreground $legendOptions(-foreground)
  848.     IntControl legend -ipadx 0 10 $legendOptions(-ipadx)
  849.     IntControl legend -ipady 0 10 $legendOptions(-ipady)
  850.     BooleanControl legend -mapped $legendOptions(-mapped)
  851.     IntControl legend -padx 0 10 $legendOptions(-padx)
  852.     IntControl legend -pady 0 10 $legendOptions(-pady)
  853.     EntryControl legend -position $legendOptions(-position)
  854.     ReliefControl legend -relief $legendOptions(-relief)
  855.  
  856.     button $table($name).button_done -text "done" \
  857.     -command "destroy .$name; set varLegend 0"
  858.     button $table($name).button_reset -text "reset" \
  859.     -command "ResetLegend"
  860.     incr row
  861.     blt_table $table($name) \
  862.     $table($name).frame 0,0 -cspan 5 -rspan $row -fill both \
  863.         -padx 4 -pady 4 \
  864.     $table($name).title         1,0 -cspan 4 \
  865.     $table($name).button_reset     $row,2 -reqwidth .7i -anchor w \
  866.     $table($name).button_done     $row,3 -reqwidth .7i -anchor e
  867.     blt_table column $table($name) configure 1 -padx 5
  868.     blt_table row $table($name) configure all -pady 5
  869.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  870.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  871.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  872.     blt_table row $table($name) configure { $row } -height {}
  873. }
  874.  
  875. proc ResetCrosshairs {} {
  876.     global xhairsOptions xhairsDefaults graph interp
  877.  
  878.     RGBColorReset crosshairs -color $xhairsOptions(-color)
  879.     IntReset crosshairs -dashes $xhairsOptions(-dashes)
  880.     IntReset crosshairs -linewidth $xhairsOptions(-linewidth)
  881.     BooleanReset crosshairs -mapped $xhairsOptions(-mapped)
  882.     EntryReset crosshairs -position $xhairsOptions(-position)
  883.     send $interp $graph crosshairs configure $xhairsDefaults
  884. }
  885.  
  886. proc SetCrosshairs { option value } {
  887.     global graph interp
  888.     send $interp [list $graph crosshairs configure $option $value]
  889. }
  890.  
  891. proc GetCrosshairs {} {
  892.     global graph interp
  893.     send $interp [list $graph crosshairs configure]
  894. }
  895.  
  896. proc ConfigureCrosshairs {} {
  897.     global xhairsOptions xhairsDefaults 
  898.     global table row column setProc getProc
  899.  
  900.     if { [info command .crosshairs] == ".crosshairs" } {
  901.     destroy .crosshairs
  902.     return
  903.     }
  904.     set name crosshairs
  905.     set row 2
  906.     set column 1
  907.     set setProc($name) SetCrosshairs
  908.     set getProc($name) GetCrosshairs
  909.  
  910.     GetOptions [$getProc($name)] xhairsOptions xhairsDefaults
  911.     set table($name) .crosshairs
  912.     toplevel $table($name)
  913.     wm title .$name "Crosshairs Configuration"
  914.  
  915.     frame $table($name).frame -relief groove -bd 2
  916.     label $table($name).title -text "Crosshairs Configuration Options"
  917.  
  918.     RGBColorControl crosshairs -color $xhairsOptions(-color)
  919.     IntControl crosshairs -dashes 0 10 $xhairsOptions(-dashes)
  920.     IntControl crosshairs -linewidth 0 10 $xhairsOptions(-linewidth)
  921.     BooleanControl crosshairs -mapped $xhairsOptions(-mapped)
  922.     EntryControl crosshairs -position $xhairsOptions(-position)
  923.  
  924.     button $table($name).button_done -text "done" \
  925.     -command "destroy .$name; set varCrosshairs 0"
  926.     button $table($name).button_reset -text "reset" \
  927.     -command "ResetCrosshairs"
  928.     incr row
  929.     blt_table $table($name) \
  930.     $table($name).frame 0,0 -cspan 7 -rspan $row -fill both \
  931.     -padx 4 -pady 4 \
  932.     $table($name).title         1,0 -cspan 7 \
  933.     $table($name).button_reset     $row,2 -reqwidth .7i -anchor w \
  934.     $table($name).button_done    $row,3 -reqwidth .7i -anchor e
  935.     blt_table column $table($name) configure 1 -padx 5
  936.     blt_table row $table($name) configure all -pady 5
  937.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  938.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  939. }
  940.  
  941.  
  942. proc ResetPostScript {} {
  943.     global psOptions psDefaults graph interp
  944.  
  945.     EntryReset postscript -colormap $psOptions(-colormap)
  946.     EntryReset postscript -colormode $psOptions(-colormode)
  947.     EntryReset postscript -fontmap $psOptions(-fontmap)
  948.     BooleanReset postscript -landscape $psOptions(-landscape)
  949.     AnchorReset postscript -pageanchor $psOptions(-pageanchor)
  950.     IntReset postscript -pageheight $psOptions(-pageheight)
  951.     IntReset postscript -pagewidth $psOptions(-pagewidth)
  952.     IntReset postscript -pagex $psOptions(-pagex)
  953.     IntReset postscript -pagey $psOptions(-pagey)
  954.     send $interp $graph psconfigure $psDefaults
  955. }
  956.  
  957. proc SetPostScript { option value } {
  958.     global graph interp
  959.     send $interp [list $graph psconfigure $option $value]
  960. }
  961.  
  962. proc GetPostScript {} {
  963.     global graph interp
  964.     send $interp [list $graph psconfigure]
  965. }
  966.  
  967. proc ConfigurePostScript {} {
  968.     global psOptions psDefaults 
  969.     global table row column setProc getProc
  970.  
  971.     if { [info command .postscript] == ".postscript" } {
  972.     destroy .postscript
  973.     return
  974.     }
  975.     set name postscript
  976.     set row 2
  977.     set column 1
  978.     set setProc($name) SetPostScript
  979.     set getProc($name) GetPostScript
  980.  
  981.     GetOptions [$getProc($name)] psOptions psDefaults
  982.     set table($name) .postscript
  983.     toplevel $table($name)
  984.     wm title .$name "PostScript Configuration"
  985.     
  986.     frame $table($name).frame -relief groove -bd 2
  987.     label $table($name).title -text "PostScript Configuration Options"
  988.  
  989.     EntryControl postscript -colormap $psOptions(-colormap)
  990.     EntryControl postscript -colormode $psOptions(-colormode)
  991.     EntryControl postscript -fontmap $psOptions(-fontmap)
  992.     BooleanControl postscript -landscape $psOptions(-landscape)
  993.     AnchorControl postscript -pageanchor $psOptions(-pageanchor)
  994.     IntControl postscript -pageheight 0 900 $psOptions(-pageheight)
  995.     IntControl postscript -pagewidth 0 900 $psOptions(-pagewidth)
  996.     IntControl postscript -pagex 0 900 $psOptions(-pagex)
  997.     IntControl postscript -pagey 0 900 $psOptions(-pagey)
  998.  
  999.     button $table($name).button_done -text "done" \
  1000.     -command "destroy .$name; set varPostScript 0"
  1001.     button $table($name).button_reset -text "reset" \
  1002.     -command "ResetPostScript"
  1003.     incr row
  1004.     blt_table $table($name) \
  1005.     $table($name).frame 0,0 -cspan 7 -rspan $row -fill both \
  1006.     -padx 4 -pady 4 \
  1007.     $table($name).title         1,0 -cspan 7 \
  1008.     $table($name).button_reset     $row,2 -reqwidth .7i -anchor w \
  1009.     $table($name).button_done    $row,3 -reqwidth .7i -anchor e
  1010.     blt_table column $table($name) configure 1 -padx 5
  1011.     blt_table row $table($name) configure all -pady 5
  1012.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  1013.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  1014. }
  1015.  
  1016.  
  1017. proc ResetElement {} {
  1018.     global elemOptions elemDefaults element graph interp class
  1019.  
  1020.     RGBColorReset element -activebackground $elemOptions(-activebackground)
  1021.     RGBColorReset element -activeforeground $elemOptions(-activeforeground)
  1022.     RGBColorReset element -background $elemOptions(-background)
  1023.     EntryReset element -data $elemOptions(-data)
  1024.     RGBColorReset element -foreground $elemOptions(-foreground)
  1025.     EntryReset element -label $elemOptions(-label)
  1026.     MapXAxisReset element -mapx $elemOptions(-mapx)
  1027.     MapYAxisReset element -mapy $elemOptions(-mapy)
  1028.     EntryReset element -xdata $elemOptions(-xdata)
  1029.     EntryReset element -ydata $elemOptions(-ydata)
  1030.  
  1031.     IntReset element -borderwidth $elemOptions(-borderwidth)
  1032.     if { $class == "Blt_graph" } {
  1033.     IntReset element -activelinewidth $elemOptions(-activelinewidth)
  1034.     IntReset element -dashes $elemOptions(-dashes)
  1035.     IntReset element -linewidth $elemOptions(-linewidth)
  1036.     TraceReset element -trace  $elemOptions(-trace)
  1037.     SymbolReset element -symbol $elemOptions(-symbol)
  1038.     FloatReset element -scale 0.01 $elemOptions(-scale)
  1039.     } else {
  1040.     ReliefReset element -relief $elemOptions(-relief)
  1041.     BooleanReset element -stacked $elemOptions(-stacked)
  1042.     EntryReset element -stipple $elemOptions(-stipple)
  1043.     } 
  1044.     send $interp $graph element configure $element $elemDefaults
  1045. }
  1046.  
  1047. proc SetElement { option value } {
  1048.     global graph element interp
  1049.  
  1050.     send $interp [list $graph element configure $element $option $value]
  1051. }
  1052.  
  1053. proc GetElement {} {
  1054.     global graph element interp
  1055.  
  1056.     send $interp [list $graph element configure $element]
  1057. }
  1058.  
  1059. proc GetElementNames {} {
  1060.     global graph element interp
  1061.  
  1062.     send $interp [list $graph element names]
  1063. }
  1064.  
  1065. proc SetElemOptions {} {
  1066.     global elemOptions elemDefaults graph element 
  1067.  
  1068.     GetOptions [GetElement] elemOptions elemDefaults
  1069.     ResetElement 
  1070. }
  1071.  
  1072. proc ConfigureElement {} {
  1073.     global elemOptions elemDefaults class
  1074.     global table graph row column element setProc getProc 
  1075.         
  1076.     set elements [lsort [GetElementNames]]
  1077.     if { [llength $elements] < 1 } {
  1078.     return
  1079.     }
  1080.     set element [lindex $elements 0]
  1081.     GetOptions [GetElement] elemOptions elemDefaults
  1082.  
  1083.     set name element
  1084.     if { [info command .$name] == ".$name" } {
  1085.     destroy .$name
  1086.     return
  1087.     }
  1088.     set setProc($name) SetElement
  1089.     set getProc($name) GetElement
  1090.  
  1091.     set table($name) .$name
  1092.     toplevel $table($name)
  1093.     wm title .$name "Element Configuration"
  1094.  
  1095.     frame $table($name).frame -relief groove -bd 2
  1096.     label $table($name).title -text "Element Configuration Options"
  1097.  
  1098.     set count 0
  1099.     label $table($name).name -text "Elements:"
  1100.     frame $table($name).elements 
  1101.     set frame $table($name).elements
  1102.     foreach i $elements {
  1103.     radiobutton $frame.rbutton_$i -variable element -value $i -text $i \
  1104.         -command "SetElemOptions"
  1105.     blt_table $frame $frame.rbutton_$i $count/2,$count%2 -anchor w
  1106.     incr count
  1107.     }
  1108.  
  1109.     set row 3
  1110.     set column 1
  1111.     RGBColorControl element -activebackground $elemOptions(-activebackground)
  1112.     RGBColorControl element -activeforeground $elemOptions(-activeforeground)
  1113.     if { $class == "Blt_graph" } {
  1114.     IntControl element -activelinewidth 0 10 $elemOptions(-activelinewidth)
  1115.     RGBColorControl element -background $elemOptions(-background)
  1116.     IntControl element -borderwidth 0 10 $elemOptions(-borderwidth)
  1117.     IntControl element -dashes 0 10 $elemOptions(-dashes)
  1118.     EntryControl element -data $elemOptions(-data)
  1119.     RGBColorControl element -foreground $elemOptions(-foreground)
  1120.     EntryControl element -label $elemOptions(-label)
  1121.     IntControl element -linewidth 0 10 $elemOptions(-linewidth)
  1122.     MapXAxisControl element -mapx $elemOptions(-mapx)
  1123.     MapYAxisControl element -mapy $elemOptions(-mapy)
  1124.     TraceControl element -trace  $elemOptions(-trace)
  1125.     SymbolControl element -symbol $elemOptions(-symbol)
  1126.     FloatControl element -scale 0 300 0.01 $elemOptions(-scale)
  1127.     EntryControl element -xdata $elemOptions(-xdata)
  1128.     EntryControl element -ydata $elemOptions(-ydata)
  1129.     } else {
  1130.     RGBColorControl element -background $elemOptions(-background)
  1131.     IntControl element -borderwidth 0 10 $elemOptions(-borderwidth)
  1132.     EntryControl element -data $elemOptions(-data)
  1133.     RGBColorControl element -foreground $elemOptions(-foreground)
  1134.     EntryControl element -label $elemOptions(-label)
  1135.     MapXAxisControl element -mapx $elemOptions(-mapx)
  1136.     MapYAxisControl element -mapy $elemOptions(-mapy)
  1137.     ReliefControl element -relief $elemOptions(-relief)
  1138.     BooleanControl element -stacked $elemOptions(-stacked)
  1139.     EntryControl element -stipple $elemOptions(-stipple)
  1140.     EntryControl element -xdata $elemOptions(-xdata)
  1141.     EntryControl element -ydata $elemOptions(-ydata)
  1142.     }
  1143.     button $table($name).button_done -text "done" \
  1144.     -command "destroy .$name; set varElement 0"
  1145.     button $table($name).button_reset -text "reset" \
  1146.     -command "ResetElement"
  1147.     incr row
  1148.     blt_table $table($name) \
  1149.     $table($name).frame 0,0 -cspan 14 -rspan $row -fill both -padx 4 \
  1150.     -pady 4 \
  1151.     $table($name).title         1,0 -cspan 14 \
  1152.     $table($name).name        2,1 -anchor e \
  1153.     $table($name).elements     2,2 -cspan 2 -fill x \
  1154.     $table($name).button_reset     $row,$column+1 -reqwidth .7i -anchor w \
  1155.     $table($name).button_done     $row,$column+2 -reqwidth .7i -anchor e
  1156.     blt_table column $table($name) configure { 1 5 } -padx 5
  1157.     blt_table row $table($name) configure all -pady 5
  1158.     blt_table column $table($name) configure { 0 4 } -width 0.25i
  1159.     blt_table row $table($name) configure { 0 $row-1 } -height 0.125i
  1160.     blt_table row $table($name) configure { $row } -height {}
  1161. }
  1162.  
  1163. if { $argc != 2 } {
  1164.     error "usage: grconf interp window"
  1165. }
  1166. set interps [lsort [winfo interps]]
  1167.  
  1168. set row 2
  1169. set column 0
  1170.  
  1171. foreach i { General Element Axis Legend Crosshairs PostScript } {
  1172.     checkbutton .cbutton_$i \
  1173.     -text $i \
  1174.     -command "Configure$i" \
  1175.     -relief flat \
  1176.     -variable var$i
  1177.     blt_table . \
  1178.     .cbutton_$i $row,$column -anchor w  -cspan 2 
  1179.     incr row
  1180. }
  1181. label .title -text "Graph Configure Utility"
  1182. message .msg -text "...configuring \"[lindex $argv 1]\"" -aspect 5000
  1183. label .logo -bitmap BLT
  1184. button .quit -text "quit" -command "destroy ."
  1185. blt_table . \
  1186.     .title 0,0 -fill both -cspan 2 \
  1187.     .msg   1,0 -cspan 2 -fill both  \
  1188.     .logo  $row,$column \
  1189.     .quit  $row,$column+1 -reqwidth .75i
  1190.  
  1191.  
  1192. GraphConfigure [lindex $argv 0] [lindex $argv 1]
  1193.  
  1194. #debug 50
  1195.  
  1196.