Tk Library Source Code

Check-in [5a8cd11629]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove [console show], a left over from a debugging session
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:5a8cd1162910a31c34911c6ef9f21d559e483adf
User & Date: markus 2015-04-13 06:43:27
Context
2015-04-13
12:28
Remove a left-over invocation of "console show" - should simply not be there. check-in: 00abb9d775 user: markus tags: trunk
06:43
Remove [console show], a left over from a debugging session check-in: 5a8cd11629 user: markus tags: trunk
2015-04-11
13:43
Made some changes to the 3D plots - added support for formats and x-labels. Also added a remark about the tags for bars in a barchart (this information was missing). Bumped the version to 2.3.4. check-in: 8630a2204b user: markus tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/plotchart/ChangeLog.




1
2
3
4
5
6
7



2015-04-11  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotchart.tcl: Properly place the table wrt a title and subtitle, take care of fonts (patch by Frank Gover)
	                 Support setting axis labels at 3D plot (patch by Frank Gover)
	* plottable.tcl: Correct drawing of the row in a table, take care of fonts (patch by Frank Gover)
	* plotconfig.tcl: Extend calculation of font metrics, optional font and linespacing (patch by Frank Gover)
	* plot3d.tcl:    Support formatting of the numerical axis labels for 3D plots (requested by Frank Gover)
	* plotchart.man: Bumped version to 2.3.4, added documentation of the tags for bars in a barchart.
>
>
>







1
2
3
4
5
6
7
8
9
10
2015-04-13  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotaxis.tcl: Remove [console show] from AxisConfig procedure (ticket f0edc6c7bebd5abc|f0edc6c7be)

2015-04-11  Arjen Markus  <arjenmarkus@users,sourceforge.net>
	* plotchart.tcl: Properly place the table wrt a title and subtitle, take care of fonts (patch by Frank Gover)
	                 Support setting axis labels at 3D plot (patch by Frank Gover)
	* plottable.tcl: Correct drawing of the row in a table, take care of fonts (patch by Frank Gover)
	* plotconfig.tcl: Extend calculation of font metrics, optional font and linespacing (patch by Frank Gover)
	* plot3d.tcl:    Support formatting of the numerical axis labels for 3D plots (requested by Frank Gover)
	* plotchart.man: Bumped version to 2.3.4, added documentation of the tags for bars in a barchart.

Changes to modules/plotchart/plotaxis.tcl.

1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
    }

    set originalSystem $scaling($w,coordSystem)
    set scaling($w,coordSystem) 0

    worldCoordinates $w $xmin $ymin $xmax $ymax

    console show
    puts "$orient: $xmin $xmax $scaling($w,xdelt)"

    if { $orient == "x" } {
        if { [llength $scaling($w,xdelt)] == 1 } {
            #$drawmethod $w $scaling($w,xmin) $scaling($w,xmax) $scaling($w,xdelt)
            $drawmethod $w $xmin $xmax $scaling($w,xdelt)
        } else {
            #$drawmethod $w $scaling($w,xmin) $scaling($w,xmax) {} -xlabels $scaling($w,xdelt)
            $drawmethod $w $xmin $xmax {} -xlabels $scaling($w,xdelt)







<
<
<







1452
1453
1454
1455
1456
1457
1458



1459
1460
1461
1462
1463
1464
1465
    }

    set originalSystem $scaling($w,coordSystem)
    set scaling($w,coordSystem) 0

    worldCoordinates $w $xmin $ymin $xmax $ymax




    if { $orient == "x" } {
        if { [llength $scaling($w,xdelt)] == 1 } {
            #$drawmethod $w $scaling($w,xmin) $scaling($w,xmax) $scaling($w,xdelt)
            $drawmethod $w $xmin $xmax $scaling($w,xdelt)
        } else {
            #$drawmethod $w $scaling($w,xmin) $scaling($w,xmax) {} -xlabels $scaling($w,xdelt)
            $drawmethod $w $xmin $xmax {} -xlabels $scaling($w,xdelt)