# Do not remove the headers from this file! see /USAGE for more info.

is=object
variables=dest
flag=attached
primary_adj=elevator
primary_id=button

setup[string d]:
  lpc
    _dest = d;
    add_adj(d);
  end

do_press:
  call container "handle_press" $dest
  ok
end

direct_press_obj:
  ok
end

---
string long() {
  return "The button is marked '" + _dest + "'\n";
}