group

$line group: returns containing group if any.
$line group parentgroup: change containing group

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