Lines Matching refs:box_geom
87 proc box_geom {args} {
88 lappend ::box_geom [concat [lindex $args 0] [lrange $args 2 end-1]]
91 register_box_geom db box_geom
92 set box_geom [list]
97 set ::box_geom
136 set ::box_geom [list]
142 llength [lindex $::box_geom 0 2]
148 proc box_geom {args} {
166 proc box_geom {args} {
183 proc box_geom {args} {
184 lappend ::box_geom [concat [lindex $args 0] [lrange $args 2 end-1]]
185 if {[llength $::box_geom]==3} {
190 set ::box_geom [list]
195 set ::box_geom
215 set ctx [register_box_geom db box_geom]
216 set ::box_geom [list]
217 proc box_geom {args} {
218 lappend ::box_geom [lindex $args 1]
225 foreach g $::box_geom {
233 proc box_geom {args} {
234 set ::box_geom [lindex $args 2]
242 do_test 5.$tn.2 { set ::box_geom } $vals
255 proc box_geom {args} {
277 proc box_geom {args} {
316 proc box_geom {args} {