Lines Matching refs:args

87 proc box_geom {args} {
88   lappend ::box_geom [concat [lindex $args 0] [lrange $args 2 end-1]]
148 proc box_geom {args} {
166 proc box_geom {args} {
167   lappend ::ptr_list [lindex $args 4]
183 proc box_geom {args} {
184   lappend ::box_geom [concat [lindex $args 0] [lrange $args 2 end-1]]
217 proc box_geom {args} {
218   lappend ::box_geom [lindex $args 1]
233 proc box_geom {args} {
234   set ::box_geom [lindex $args 2]
255 proc box_geom {args} {
277 proc box_geom {args} {
316 proc box_geom {args} {
317   set coords [lindex $args 3]