Skill code to add the option in toolbar to show layer properties

Hi,

I do have the following skill code to display the selected layer property in the toolbar. Right now it just shows the selected layer and the purpose, but how can i add a third field to it to show the width of the same layer?

procedure(dynamicMetUpdate()

let((win choice layer purpose barId)

mouseSingleSelectPt()

if( car(geGetSelectedSet())~>lpp then

choice=car(geGetSelectedSet())~>lpp

pathWidth=car(geGetSelectedSet())~>width

else 

choice=list("" "")

)

layer=car(choice)

purpose=cadr(choice)

win=hiGetCurrentWindow()

barId=car(setof(menu hiGetWindowToolbars( hiGetSessionWindow(win) )

            rexMatchp("^myToolBar" symbolToString(menu~>hiToolBarSym))))

if(barId then

hiDeleteToolbarItems(barId list('C_GROUP1 'C_GROUP2))

C_GROUP1=hiCreateToolbarComboBox(

                ?name 'C_GROUP1

                ?prompt "Selected Layer "

                ?value  layer

                ?editable nil

?enabled nil)

C_GROUP2=hiCreateToolbarComboBox(

                ?name 'C_GROUP2

                ?prompt "Selected Purpose "

                ?value  purpose

                ?editable nil

?enabled nil)

               ;items

 hiAddToolbarItems(barId list(C_GROUP1 C_GROUP2))

)

if(!boundp('myToolbar) then

myToolbar = hiCreateToolbar(

   ?name 'myToolBar

   ?title "My Toolbar For Fixed Menu"

   ?toolButtonStyle 'textBesideIcon

   ?toolTip "My Fixed Menu Toolbar"

   ?invisible t

   ?items list(

            hiCreateToolbarComboBox(

                ?name 'C_GROUP1

                ?prompt "Selected Layer "

                ?value  layer

                ?editable nil

?enabled nil)

hiCreateToolbarComboBox(

                ?name 'C_GROUP2

                ?prompt "Selected Purpose "

                ?value  purpose

                ?editable nil

?enabled nil)

              ) ;items

        ) ;hiCreateToolbar

    );unless

unless(win~>cellView win=cadr(reverse(hiGetWindowList())))

hiPlaceToolbar(hiGetSessionWindow(win) myToolbar 'top)

  hiShowToolbar(myToolbar)

   )

)

hiSetBindKey("Layout" "None<Btn1Down>" "dynamicMetUpdate()")

procedure(dynamicMetUpdate()let((win choice layer purpose barId)mouseSingleSelectPt()if( car(geGetSelectedSet())~>lpp thenchoice=car(geGetSelectedSet())~>lpppathWidth=car(geGetSelectedSet())~>width
else choice=list("" ""))layer=car(choice)purpose=cadr(choice)win=hiGetCurrentWindow()barId=car(setof(menu hiGetWindowToolbars( hiGetSessionWindow(win) )            rexMatchp("^myToolBar" symbolToString(menu~>hiToolBarSym))))if(barId then hiDeleteToolbarItems(barId list('C_GROUP1 'C_GROUP2))
C_GROUP1=hiCreateToolbarComboBox(                ?name 'C_GROUP1                ?prompt "Selected Layer "                ?value  layer                ?editable nil ?enabled nil)C_GROUP2=hiCreateToolbarComboBox(                ?name 'C_GROUP2                ?prompt "Selected Purpose "                ?value  purpose                ?editable nil ?enabled nil)               ;items  hiAddToolbarItems(barId list(C_GROUP1 C_GROUP2))
)if(!boundp('myToolbar) thenmyToolbar = hiCreateToolbar(   ?name 'myToolBar   ?title "My Toolbar For Fixed Menu"   ?toolButtonStyle 'textBesideIcon   ?toolTip "My Fixed Menu Toolbar"   ?invisible t   ?items list(            hiCreateToolbarComboBox(                ?name 'C_GROUP1                ?prompt "Selected Layer "                ?value  layer                ?editable nil ?enabled nil)                        hiCreateToolbarComboBox(                ?name 'C_GROUP2                ?prompt "Selected Purpose "                ?value  purpose                ?editable nil ?enabled nil)              ) ;items        ) ;hiCreateToolbar    );unless unless(win~>cellView win=cadr(reverse(hiGetWindowList()))) hiPlaceToolbar(hiGetSessionWindow(win) myToolbar 'top)  hiShowToolbar(myToolbar)   ))
hiSetBindKey("Layout" "None<Btn1Down>" "dynamicMetUpdate()")