← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/tk8.4/gutsy-updates

« back to all changes in this revision

Viewing changes to tests/listbox.test

  • Committer: Bazaar Package Importer
  • Author(s): Matthias Klose
  • Date: 2007-01-05 15:56:45 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20070105155645-8srmlwqo7m1q86qi
Tags: 8.4.14-0ubuntu1
New upstream version.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/listbox.test
6
6
# Copyright (c) 1998-1999 by Scriptics Corporation.
7
7
# All rights reserved.
8
8
#
9
 
# RCS: @(#) $Id: listbox.test,v 1.21.2.1 2003/10/13 00:55:25 hobbs Exp $
 
9
# RCS: @(#) $Id: listbox.test,v 1.21.2.2 2006/05/29 21:52:47 hobbs Exp $
10
10
 
11
11
package require tcltest 2.1
12
12
namespace import -force tcltest::configure
1109
1109
    .l2 insert 0 a
1110
1110
    .l2 curselection
1111
1111
} [list 3 4 5]
 
1112
test listbox-6.15 {InsertEls procedure, lost namespaced listvar, bug 1424513} {
 
1113
    destroy .l2
 
1114
    namespace eval test { variable foo {a b} }
 
1115
    listbox .l2 -listvar ::test::foo
 
1116
    namespace delete test
 
1117
    .l2 insert end c d
 
1118
    .l2 delete end
 
1119
    .l2 insert end e f
 
1120
    catch {set ::test::foo} result
 
1121
    list [.l2 get 0 end] [.l2 cget -listvar] $result
 
1122
} [list [list a b c e f] ::test::foo \
 
1123
        {can't read "::test::foo": no such variable}]
1112
1124
 
1113
1125
 
1114
1126
test listbox-7.1 {DeleteEls procedure} {