Displaying view to be used on a symbol

Have a look overthere: http://www.cdnusers.org/Forums/tabid/52/view/topic/postid/6248/ptarget/6321/Default.aspx


Regards,

Axel

Thanks, I had read that thread before I posted but it didn't quite seem to solve my query.  Those labels seem to refer to the current level of the hierarchy; I am attempting to display the view name one level below the current (symbol) view.

Regards,

Alan.

The following code should do what you want:

/* abWhichView.il

Author     A.D.Beckett
Group      Custom IC (UK), Cadence Design Systems Ltd.
Language   SKILL
Date       Oct 03, 2005
Modified
By

Function which can be used as a label on a symbol, to say
which view is being used in a config.

Create an ILLabel, with value "abWhichView()"

***************************************************

SCCS Info: @(#) abWhichView.il 10/03/05.15:07:34 1.1

*/

/*******************************************************************
*                                                                  *
*                   (abWhichView [instId] [wid])                   *
*                                                                  *
*     Returns the name of the view bound in the config, or nil     *
* if there is no config. instId defaults to ilInst - the currently *
*     drawn instrane, and wid defaults to the current window.      *
*                                                                  *
*******************************************************************/

(procedure (abWhichView @optional (instId ilInst) (wid (hiGetCurrentWindow)))
  (let (pathVector bindInfo)
       (setq pathVector (deGetVector wid))
       (when pathVector
             (setq bindInfo
                   (hdbBind
                    pathVector
                    (dbGetq instId libName)
                    (dbGetq instId cellName)
                    (dbGetq instId viewName)
                    (dbGetq instId name)
                    nil nil nil
                    ))
             ;-----------------------------------------------------------
             ; The third entry in the list is the view used
             ;-----------------------------------------------------------
             (caddr bindInfo)
             ) ; when
       ) ; let
  ) ; procedure

Regards,

Andrew.

That's great! Thank you very much.

Alan.