"tkMOO-light is Copyright (c) Andrew Wilson 1994,1995,1996,1997,1998,1999
"
"	All Rights Reserved
"
"Permission is hereby granted to use this software for private, academic
"and non-commercial use. No commercial or profitable use of this
"software may be made without the prior permission of the author.
"
"THIS SOFTWARE IS PROVIDED BY ANDREW WILSON ``AS IS'' AND ANY
"EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
"THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
"PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL ANDREW WILSON BE LIABLE
"FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
"CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT
"OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR
"BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
"WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
"OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
"EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
@verb me:@browse any none none
@program me:@browse any none none
browser = "new";
objstr = dobjstr;
if (i = index(dobjstr, " "))
  objstr = dobjstr[1..i - 1];
  browser = dobjstr[i + 1..length(dobjstr)];
endif
the_obj = player:my_match_object(objstr);
if (!$command_utils:object_match_failed(the_obj, objstr))
  this_name = valid(the_obj) ? the_obj.name | "UNKNOWN";
  parent_name = valid(parent(the_obj)) ? parent(the_obj).name | "UNKNOWN";
  kv = {{"browser", browser}, {"this_name", this_name}, {"this_obj", tostr(the_obj)}, {"parent_name", parent_name}, {"parent_obj", tostr(parent(the_obj))}};
  kids = {};
  for kid in (children(the_obj))
    if (1 || children(kid))
      kids = {@kids, tostr("name: ", $string_utils:print(kid.name), " obj: ", kid)};
    endif
  endfor
  if (valid(this.driver))
    this.driver:client_notify(player, "browse", kv, kids);
  else
    player:client_notify("browse", kv, kids);
  endif
endif
.