diff options
| author | hobbs <hobbs> | 2001-03-30 07:11:44 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-03-30 07:11:44 (GMT) |
| commit | 8df8dbf9d21ffe245619e3da00b552c7401b4f93 (patch) | |
| tree | ee162b0f9bbc9f255a8206147eac23a3ef91f573 /tests/canvas.test | |
| parent | fe669ce208870caf72df127b1cca6f16d5bc1b4a (diff) | |
| download | tk-8df8dbf9d21ffe245619e3da00b552c7401b4f93.zip tk-8df8dbf9d21ffe245619e3da00b552c7401b4f93.tar.gz tk-8df8dbf9d21ffe245619e3da00b552c7401b4f93.tar.bz2 | |
* tests/canvas.test: added test case to check obj conversion
* generic/tkObj.c (UpdateStringOfMM, SetMMFromAny): better
obj-aware screen distances. (pgbaum, hobbs) [Patch #403327]
Diffstat (limited to 'tests/canvas.test')
| -rw-r--r-- | tests/canvas.test | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/tests/canvas.test b/tests/canvas.test index 51f178c..9a58a64 100644 --- a/tests/canvas.test +++ b/tests/canvas.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-2000 Ajuba Solutions. # All rights reserved. # -# RCS: @(#) $Id: canvas.test,v 1.10 2000/06/06 04:18:13 ericm Exp $ +# RCS: @(#) $Id: canvas.test,v 1.11 2001/03/30 07:11:44 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -367,6 +367,26 @@ test canvas-11.1 {canvas poly fill check, bug 5783} { -fill {} -stipple gray50 -outline black } 1 +test canvas-12.1 {canvas mm obj, patch SF-403327, 102471} { + destroy .c + pack [canvas .c] + set qx [expr {1.+1.}] + # qx has type double and no string representation + .c scale all $qx 0 1. 1. + # qx has now type MMRep and no string representation + list $qx [string length $qx] +} {2.0 3} +test canvas-12.2 {canvas mm obj, patch SF-403327, 102471} { + destroy .c + pack [canvas .c] + set val 10 + incr val + # qx has type double and no string representation + .c scale all $val 0 1 1 + # qx has now type MMRep and no string representation + incr val +} {12} + # cleanup ::tcltest::cleanupTests return |