tcl/tests/org.eclipse.dltk.tcl.core.tests/workspace/Selection/src/selection002.tcl

###############################################################################
# Copyright (c) 2005, 2007 IBM Corporation and others.
#
# This program and the accompanying materials are made available under the
# terms of the Eclipse Public License v. 2.0 which is available at
# http://www.eclipse.org/legal/epl-2.0.
#
# SPDX-License-Identifier: EPL-2.0
#

###############################################################################

set x1 90
puts $x1 ;# work
puts "$x1" ;# work
puts "a $x1 b" ;# work
puts "a$x1 b" ;# work
puts ${x1} ;# not work
puts "${x1}" ;# not work

set {x1 2} 91
puts ${x1 2} ;# work
puts "${x1 2}" ;# not work

set x2(0) 1
set x2(1) 2
set x2("gamma") 2
set {x2("gamma a")} 2

puts $x2(0) ;#not work
puts ${x2(0)} ;#not work
puts "$x2(0)" ;#not work
puts "${x2(0)}" ;#not work

puts $x2("gamma a") ;#not work
puts ${x2("gamma a")} ;#not work
puts "$x2(\"gamma a\")" ;#not work
puts "cool"
puts "This is in string ${x2("gamma a")} after variable" ;#not work

proc ff {} {
	return "aa"
}
set [ff] "cool"
puts "cool:"
puts $aa

catch { set x3 93 }
puts $x3
puts ${x3}

after 800 [set x4 92]
puts [set x5 95]
puts $x5

set x6 1
puts [$x6]
puts "[$x6]"

# end of file test
set x7 2
puts $x7