summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-03-30 07:11:44 (GMT)
committerhobbs <hobbs>2001-03-30 07:11:44 (GMT)
commit8df8dbf9d21ffe245619e3da00b552c7401b4f93 (patch)
treeee162b0f9bbc9f255a8206147eac23a3ef91f573 /tests
parentfe669ce208870caf72df127b1cca6f16d5bc1b4a (diff)
downloadtk-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')
-rw-r--r--tests/canvas.test22
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