# This file is a Tcl script to test entry widgets in Tk.

#

# Copyright © 1994 The Regents of the University of California.

# Copyright © 1994-1997 Sun Microsystems, Inc.

# Copyright © 1998-1999 Scriptics Corporation.

# All rights reserved.

# NOTE

#

# Gathered comments about lacks

# Still need to write tests for EntryBlinkProc, EntryFocusProc,

# EntryTextVarProc, EntryScanTo and EntrySelectTo, DisplayEntry, EventuallyRedraw.

#

# TESTFILE INITIALIZATION

#

package require tcltest 2.2; # needed in mode -singleproc 0

# Load the main script "main.tcl", which takes care of:

# - setup for the application and the root window

# - importing commands from the tcltest namespace

# - loading of the testutils mechanism along with its utility procs

# - loading of Tk specific test constraints (additionally to constraints

# provided by the package tcltest)

source [file join [tcltest::configure -testdir] main.tcl]

# Ensure a pristine initial window state

resetWindows

# Import utility procs for specific functional areas

testutils import entry scroll

#

# COMMON TEST SETUP

#

foreach i {1 2 3} {

set validateCmd$i [list validateCommand$i %W %d %i %P %s %S %v %V]

}

set cy [font metrics {Courier -12} -linespace]

#

# TESTS

#

test entry-1.1 {configuration option: "background" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -background #ff0000

.e cget -background

} -cleanup {

destroy .e

} -result {#ff0000}

test entry-1.2 {configuration option: "background" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -background non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.3 {configuration option: "bd" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -bd 4

.e cget -bd

} -cleanup {

destroy .e

} -result 4

test entry-1.4 {configuration option: "bd" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -bd badValue

} -cleanup {

destroy .e

} -returnCodes error -result {expected screen distance but got "badValue"}

test entry-1.5 {configuration option: "bg" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -bg #ff0000

.e cget -bg

} -cleanup {

destroy .e

} -result {#ff0000}

test entry-1.6 {configuration option: "bg" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -bg non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.7 {configuration option: "borderwidth" for entry} -setup {

entry .e -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -borderwidth 1.3

.e cget -borderwidth

} -cleanup {

destroy .e

} -result 1.3

test entry-1.8 {configuration option: "borderwidth" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -borderwidth badValue

} -cleanup {

destroy .e

} -returnCodes error -result {expected screen distance but got "badValue"}

test entry-1.9 {configuration option: "cursor" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -cursor arrow

.e cget -cursor

} -cleanup {

destroy .e

} -result {arrow}

test entry-1.10 {configuration option: "cursor" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -cursor badValue

} -cleanup {

destroy .e

} -returnCodes error -result {bad cursor spec "badValue"}

test entry-1.11 {configuration option: "disabledbackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -disabledbackground green

.e cget -disabledbackground

} -cleanup {

destroy .e

} -result {green}

test entry-1.12 {configuration option: "disabledbackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -disabledbackground non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.13 {configuration option: "disabledforeground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -disabledforeground blue

.e cget -disabledforeground

} -cleanup {

destroy .e

} -result {blue}

test entry-1.14 {configuration option: "disabledforeground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -disabledforeground non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.15 {configuration option: "exportselection" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -exportselection yes

.e cget -exportselection

} -cleanup {

destroy .e

} -result 1

test entry-1.16 {configuration option: "exportselection" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -exportselection xyzzy

} -cleanup {

destroy .e

} -returnCodes error -result {expected boolean value but got "xyzzy"}

test entry-1.17 {configuration option: "fg" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -fg #110022

.e cget -fg

} -cleanup {

destroy .e

} -result {#110022}

test entry-1.18 {configuration option: "fg" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -fg non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.19 {configuration option: "font" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

.e configure -font {Helvetica -12}

.e cget -font

} -cleanup {

destroy .e

} -result {Helvetica -12}

test entry-1.20 {configuration option: "font" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

.e configure -font {}

} -cleanup {

destroy .e

} -returnCodes error -result {font "" does not exist}

test entry-1.21 {configuration option: "foreground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -foreground #110022

.e cget -foreground

} -cleanup {

destroy .e

} -result {#110022}

test entry-1.22 {configuration option: "foreground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -foreground non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.23 {configuration option: "highlightbackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -highlightbackground #110022

.e cget -highlightbackground

} -cleanup {

destroy .e

} -result {#110022}

test entry-1.24 {configuration option: "highlightbackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -highlightbackground non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.25 {configuration option: "highlightcolor" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -highlightcolor #110022

.e cget -highlightcolor

} -cleanup {

destroy .e

} -result {#110022}

test entry-1.26 {configuration option: "highlightcolor" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -highlightcolor non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.27 {configuration option: "highlightthickness" for entry} -setup {

entry .e -borderwidth 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -highlightthickness 6

.e cget -highlightthickness

} -cleanup {

destroy .e

} -result 6

test entry-1.28 {configuration option: "highlightthickness" for entry} -setup {

entry .e -borderwidth 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -highlightthickness -2

.e cget -highlightthickness

} -cleanup {

destroy .e

} -result 0

test entry-1.29 {configuration option: "highlightthickness" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -highlightthickness badValue

} -cleanup {

destroy .e

} -returnCodes error -result {expected screen distance but got "badValue"}

test entry-1.30 {configuration option: "insertbackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -insertbackground #110022

.e cget -insertbackground

} -cleanup {

destroy .e

} -result {#110022}

test entry-1.31 {configuration option: "insertbackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -insertbackground non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.32 {configuration option: "insertborderwidth" for entry} -setup {

entry .e -borderwidth 2 -insertwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -insertborderwidth 1.3

.e cget -insertborderwidth

} -cleanup {

destroy .e

} -result 1.3

test entry-1.33 {configuration option: "insertborderwidth" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -insertborderwidth 2.6x

} -cleanup {

destroy .e

} -returnCodes error -result {expected screen distance but got "2.6x"}

test entry-1.34 {configuration option: "insertofftime" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -insertofftime 100

.e cget -insertofftime

} -cleanup {

destroy .e

} -result 100

test entry-1.35 {configuration option: "insertofftime" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -insertofftime 3.2

} -cleanup {

destroy .e

} -returnCodes error -result {expected integer but got "3.2"}

test entry-1.36 {configuration option: "insertontime" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -insertontime 100

.e cget -insertontime

} -cleanup {

destroy .e

} -result 100

test entry-1.37 {configuration option: "insertontime" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -insertontime 3.2

} -cleanup {

destroy .e

} -returnCodes error -result {expected integer but got "3.2"}

test entry-1.38 {configuration option: "invalidcommand" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -invalidcommand "any string"

.e cget -invalidcommand

} -cleanup {

destroy .e

} -result {any string}

test entry-1.39 {configuration option: "invcmd" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -invcmd "any string"

.e cget -invcmd

} -cleanup {

destroy .e

} -result {any string}

test entry-1.40 {configuration option: "justify" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -justify right

.e cget -justify

} -cleanup {

destroy .e

} -result {right}

test entry-1.41 {configuration option: "justify" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -justify bogus

} -cleanup {

destroy .e

} -returnCodes error -result {bad justification "bogus": must be left, right, or center}

test entry-1.42 {configuration option: "readonlybackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -readonlybackground green

.e cget -readonlybackground

} -cleanup {

destroy .e

} -result {green}

test entry-1.43 {configuration option: "readonlybackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -readonlybackground non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.44 {configuration option: "relief" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -relief flat

.e cget -relief

} -cleanup {

destroy .e

} -result {flat}

test entry-1.45 {configuration option: "selectbackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -selectbackground #110022

.e cget -selectbackground

} -cleanup {

destroy .e

} -result {#110022}

test entry-1.46 {configuration option: "selectbackground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -selectbackground non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.47 {configuration option: "selectborderwidth" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -selectborderwidth 1.3

.e cget -selectborderwidth

} -cleanup {

destroy .e

} -result 1.3

test entry-1.48 {configuration option: "selectborderwidth" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -selectborderwidth badValue

} -cleanup {

destroy .e

} -returnCodes error -result {expected screen distance but got "badValue"}

test entry-1.49 {configuration option: "selectforeground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -selectforeground #110022

.e cget -selectforeground

} -cleanup {

destroy .e

} -result {#110022}

test entry-1.50 {configuration option: "selectforeground" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -selectforeground non-existent

} -cleanup {

destroy .e

} -returnCodes error -result {unknown color name "non-existent"}

test entry-1.51 {configuration option: "show" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -show *

.e cget -show

} -cleanup {

destroy .e

} -result {*}

test entry-1.52 {configuration option: "state" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -state n

.e cget -state

} -cleanup {

destroy .e

} -result {normal}

test entry-1.53 {configuration option: "state" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -state bogus

} -cleanup {

destroy .e

} -returnCodes error -result {bad state "bogus": must be disabled, normal, or readonly}

test entry-1.54 {configuration option: "takefocus" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -takefocus "any string"

.e cget -takefocus

} -cleanup {

destroy .e

} -result {any string}

test entry-1.55 {configuration option: "textvariable" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -textvariable i

.e cget -textvariable

} -cleanup {

destroy .e

} -result {i}

test entry-1.56 {configuration option: "width" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -width 402

.e cget -width

} -cleanup {

destroy .e

} -result 402

test entry-1.57 {configuration option: "width" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -width 3p

} -cleanup {

destroy .e

} -returnCodes error -result {expected integer but got "3p"}

test entry-1.58 {configuration option: "xscrollcommand" for entry} -setup {

entry .e -borderwidth 2 -highlightthickness 2 -font {Helvetica -12 bold}

pack .e ; update idletasks

update

} -body {

.e configure -xscrollcommand {Some command}

.e cget -xscrollcommand

} -cleanup {

destroy .e

} -result {Some command}

test entry-1.59 {configuration option: "-placeholder"} -setup {

pack [entry .e]

} -body {

.e configure -placeholder {Some text}

.e cget -placeholder

} -cleanup {

destroy .e

} -result {Some text}

test entry-1.60 {configuration option: "-placeholderforeground"} -setup {

pack [entry .e]

} -body {

.e configure -placeholder {Some text} -placeholderforeground red

.e cget -placeholderforeground

} -cleanup {

destroy .e

} -result {red}

test entry-2.1 {Tk_EntryCmd procedure} -body {

entry

} -returnCodes error -result {wrong # args: should be "entry pathName ?-option value ...?"}

test entry-2.2 {Tk_EntryCmd procedure} -body {

entry gorp

} -returnCodes error -result {bad window path name "gorp"}

test entry-2.3 {Tk_EntryCmd procedure} -body {

entry .e

pack .e ; update idletasks

update

list [winfo exists .e] [winfo class .e] [info commands .e]

} -cleanup {

destroy .e

} -result {1 Entry .e}

test entry-2.4 {Tk_EntryCmd procedure} -body {

entry .e -gorp foo

} -cleanup {

destroy .e

} -returnCodes error -result {unknown option "-gorp"}

test entry-2.4.1 {Tk_EntryCmd procedure} -body {

catch {entry .e -gorp foo}

list [winfo exists .e] [info commands .e]

} -cleanup {

destroy .e

} -result {0 {}}

test entry-2.5 {Tk_EntryCmd procedure} -body {

entry .e

} -cleanup {

destroy .e

} -result {.e}

test entry-3.1 {EntryWidgetCmd procedure} -setup {

entry .e

pack .e ; update idletasks

update

} -body {

.e

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e option ?arg ...?"}

test entry-3.2 {EntryWidgetCmd procedure, "bbox" widget command} -setup {

entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

.e bbox

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e bbox index"}

test entry-3.3 {EntryWidgetCmd procedure, "bbox" widget command} -setup {

entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

.e bbox a b

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e bbox index"}

test entry-3.4 {EntryWidgetCmd procedure, "bbox" widget command} -setup {

entry .e

pack .e ; update idletasks

update

} -body {

.e bbox bogus

} -cleanup {

destroy .e

} -returnCodes error -result {bad entry index "bogus"}

test entry-3.5 {EntryWidgetCmd procedure, "bbox" widget command} -setup {

entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

.e bbox 0

} -cleanup {

destroy .e

} -result [list 5 5 0 $cy]

# Previously the result was count using previousli counted font measurements

# and metrics. It was changed to less verbose solution - the result is the one

# that passes fonts constraint (this concerns tests 3.6, 3.7, 3.8, 3.10)

test entry-3.6 {EntryWidgetCmd procedure, "bbox" widget command} -constraints {

fonts

} -setup {

entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

# Tcl_UtfAtIndex(): no utf chars

.e insert 0 "abc"

list [.e bbox 3] [.e bbox end]

} -cleanup {

destroy .e

} -result {{19 5 7 13} {19 5 7 13}}

test entry-3.7 {EntryWidgetCmd procedure, "bbox" widget command} -constraints {

fonts

} -setup {

entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

# Tcl_UtfAtIndex(): utf at end

.e insert 0 "ab乎"

.e bbox end

} -cleanup {

destroy .e

} -result {19 5 12 13}

test entry-3.8 {EntryWidgetCmd procedure, "bbox" widget command} -constraints {

fonts

} -setup {

entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

# Tcl_UtfAtIndex(): utf before index

.e insert 0 "ab乎c"

.e bbox 3

} -cleanup {

destroy .e

} -result {31 5 7 13}

test entry-3.9 {EntryWidgetCmd procedure, "bbox" widget command} -setup {

entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

# Tcl_UtfAtIndex(): no chars

.e bbox end

} -cleanup {

destroy .e

} -result "5 5 0 $cy"

test entry-3.10 {EntryWidgetCmd procedure, "bbox" widget command} -constraints {

fonts

} -setup {

entry .e -font {Courier -12} -borderwidth 2 -highlightthickness 2

pack .e ; update idletasks

update

} -body {

.e insert 0 "abcdefghij乎klmnop"

list [.e bbox 0] [.e bbox 1] [.e bbox 10] [.e bbox end]

} -cleanup {

destroy .e

} -result {{5 5 7 13} {12 5 7 13} {75 5 12 13} {122 5 7 13}}

test entry-3.11 {EntryWidgetCmd procedure, "cget" widget command} -setup {

entry .e

} -body {

.e cget

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e cget option"}

test entry-3.12 {EntryWidgetCmd procedure, "cget" widget command} -setup {

entry .e

} -body {

.e cget a b

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e cget option"}

test entry-3.13 {EntryWidgetCmd procedure, "cget" widget command} -setup {

entry .e

} -body {

.e cget -gorp

} -cleanup {

destroy .e

} -returnCodes error -result {unknown option "-gorp"}

test entry-3.14 {EntryWidgetCmd procedure, "cget" widget command} -setup {

entry .e

} -body {

.e configure -bd 4

.e cget -bd

} -cleanup {

destroy .e

} -result 4

test entry-3.15 {EntryWidgetCmd procedure, "configure" widget command} -setup {

entry .e

pack .e ; update idletasks

update

} -body {

llength [.e configure]

} -cleanup {

destroy .e

} -result 38

test entry-3.16 {EntryWidgetCmd procedure, "configure" widget command} -setup {

entry .e

} -body {

.e configure -foo

} -cleanup {

destroy .e

} -returnCodes error -result {unknown option "-foo"}

test entry-3.17 {EntryWidgetCmd procedure, "configure" widget command} -setup {

entry .e

} -body {

.e configure -bd 4

.e configure -bg #ffffff

lindex [.e configure -bd] 4

} -cleanup {

destroy .e

} -result 4

test entry-3.18 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

} -body {

.e delete

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e delete firstIndex ?lastIndex?"}

test entry-3.19 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

} -body {

.e delete a b c

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e delete firstIndex ?lastIndex?"}

test entry-3.20 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

} -body {

.e delete foo

} -cleanup {

destroy .e

} -returnCodes error -result {bad entry index "foo"}

test entry-3.21 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

} -body {

.e delete 0 bar

} -cleanup {

destroy .e

} -returnCodes error -result {bad entry index "bar"}

test entry-3.22 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

pack .e ; update idletasks

update

} -body {

.e insert end "01234567890"

.e delete 2 4

.e get

} -cleanup {

destroy .e

} -result 014567890

test entry-3.23 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

} -body {

.e insert end "01234567890"

.e delete 6

.e get

} -cleanup {

destroy .e

} -result 0123457890

test entry-3.24 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

pack .e ; update idletasks

update

set result {}

} -body {

# UTF

.e insert end "01234乎67890"

.e delete 6

lappend result [.e get]

.e delete 0 end

.e insert end "012345乎7890"

.e delete 6

lappend result [.e get]

.e delete 0 end

.e insert end "0123456乎890"

.e delete 6

lappend result [.e get]

} -cleanup {

destroy .e

} -result [list "01234乎7890" "0123457890" "012345乎890"]

test entry-3.25 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

pack .e ; update idletasks

update

} -body {

.e insert end "01234567890"

.e delete 6 5

.e get

} -cleanup {

destroy .e

} -result 01234567890

test entry-3.26 {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

pack .e ; update idletasks

update

} -body {

.e insert end "01234567890"

.e configure -state disabled

.e delete 2 8

.e configure -state normal

.e get

} -cleanup {

destroy .e

} -result 01234567890

test entry-3.26a {EntryWidgetCmd procedure, "delete" widget command} -setup {

entry .e

pack .e ; update idletasks

update

} -body {

.e insert end "01234567890"

.e configure -state readonly

.e delete 2 8

.e configure -state normal

.e get

} -cleanup {

destroy .e

} -result 01234567890

test entry-3.27 {EntryWidgetCmd procedure, "get" widget command} -setup {

entry .e

} -body {

.e get foo

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e get"}

test entry-3.28 {EntryWidgetCmd procedure, "icursor" widget command} -setup {

entry .e

} -body {

.e icursor

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e icursor pos"}

test entry-3.29 {EntryWidgetCmd procedure, "icursor" widget command} -setup {

entry .e

} -body {

.e icursor foo

} -cleanup {

destroy .e

} -returnCodes error -result {bad entry index "foo"}

test entry-3.30 {EntryWidgetCmd procedure, "icursor" widget command} -setup {

entry .e

} -body {

.e insert end "01234567890"

.e icursor 4

.e index insert

} -cleanup {

destroy .e

} -result 4

test entry-3.31 {EntryWidgetCmd procedure, "index" widget command} -setup {

entry .e

} -body {

.e in

} -cleanup {

destroy .e

} -returnCodes error -result {ambiguous option "in": must be bbox, cget, configure, delete, get, icursor, index, insert, scan, selection, validate, or xview}

test entry-3.32 {EntryWidgetCmd procedure, "index" widget command} -setup {

entry .e

} -body {

.e index

} -cleanup {

destroy .e

} -returnCodes error -result {wrong # args: should be ".e index string"}

test entry-3.33 {EntryWidgetCmd procedure, "index" widget command} -setup {

entry .e

} -body {