;$Id: demo_find_wid.pro,v 1.5 2001/01/15 22:26:40 scottm Exp $
;
;  Copyright (c) 1997-2001, Research Systems, Inc. All rights reserved.
;       Unauthorized reproduction prohibited.
;
function demo_find_wid, uname
forward_function LookupManagedWidget
;
;Given the uname of a widget, where the uname
;is like '<xregistered name>:uname', return the id of
;the widget.
;
xreg_name = strmid(uname, 0, strpos(uname, ':'))
return, widget_info( $
    LookupManagedWidget(xreg_name), $
    find_by_uname=uname $
    )
end