group

$fill group: returns containing group if any
$fill group $anygroup: puts fill in anygroup

obj method fill group args {
  if {[llength $args] > 0} then {
    lassign $args g
    my group $g
  } else {
    my group
  }
}