summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorericm <ericm>2000-05-17 22:23:25 (GMT)
committerericm <ericm>2000-05-17 22:23:25 (GMT)
commit12614611674bc0a6afb0634fb27c5974472b6b06 (patch)
tree75c653a34cdc708bfff02e1350a48dd04fe46cb9 /tests
parent54e6352675121c47a41ffafce8b02911986cac96 (diff)
downloadtk-12614611674bc0a6afb0634fb27c5974472b6b06.zip
tk-12614611674bc0a6afb0634fb27c5974472b6b06.tar.gz
tk-12614611674bc0a6afb0634fb27c5974472b6b06.tar.bz2
* mac/tkMacDefault.h (DEF_ENTRY_READONLY_BG_COLOR,
DEF_ENTRY_READONLY_BG_COLOR): * win/tkWinDefault.h (DEF_ENTRY_READONLY_BG_COLOR, DEF_ENTRY_READONLY_BG_COLOR): * unix/tkUnixDefault.h (DEF_ENTRY_READONLY_BG_COLOR, DEF_ENTRY_READONLY_BG_COLOR): Added default values for entry -readonlybackground option. * generic/tkEntry.c: Added -readonlybackground option, cleaned up excessive use of graphics contexts. * tests/entry.test: Added configuration test for -readonlybackground option. * doc/entry.n: Added documentation for -readonlybackground option.
Diffstat (limited to 'tests')
-rw-r--r--tests/entry.test6
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/entry.test b/tests/entry.test
index 10178da..a44d1d4 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -6,7 +6,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: entry.test,v 1.8 2000/05/14 20:45:38 ericm Exp $
+# RCS: @(#) $Id: entry.test,v 1.9 2000/05/17 22:23:26 ericm Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -79,6 +79,8 @@ foreach test {
{-insertofftime 100 100 3.2 {expected integer but got "3.2"}}
{-insertontime 100 100 3.2 {expected integer but got "3.2"}}
{-justify right right bogus {bad justification "bogus": must be left, right, or center}}
+ {-readonlybackground green green non-existent
+ {unknown color name "non-existent"}}
{-relief groove groove 1.5 {bad relief "1.5": must be flat, groove, raised, ridge, solid, or sunken}}
{-selectbackground #110022 #110022 bogus {unknown color name "bogus"}}
{-selectborderwidth 1.3 1 badValue {bad screen distance "badValue"}}
@@ -196,7 +198,7 @@ test entry-3.14 {EntryWidgetCmd procedure, "cget" widget command} {
} {4}
test entry-3.15 {EntryWidgetCmd procedure, "configure" widget command} {
llength [.e configure]
-} {35}
+} {36}
test entry-3.16 {EntryWidgetCmd procedure, "configure" widget command} {
list [catch {.e configure -foo} msg] $msg
} {1 {unknown option "-foo"}}