set list "times\ new\ roman 30 normal"; # ok
puts "Font: $list(0) Size: $list(1) Type: $list(2)"
# Font: times new roman Size: 30 Type: normal

set list "{times new roman} 30 normal"; # ok
puts "Font: $list(0) Size: $list(1) Type: $list(2)" 
# Font: times new roman Size: 30 Type: normal

set list "times new roman 30 normal"; # fehler, weil new kein integer ist
puts "Font: $list(0) Size: $list(1) Type: $list(2)"; 
# Font: times Size: new Type: Roman