need a gui based remaster script for cells

I wanted to replace the cells in the schematic from one lib to other and potentially different cellname

I wrote the following SKILL code:

;; liblist=ddGetLibList()~>name
;; cellist=ddGetObj("smaurya_l")

procedure( replace()
let((oldcellnameL oldcellnameS)
liblist=ddGetLibList()~>name

libNameOld=hiCreateListBoxField(
?name 'libNameOld
?numRows 6
?choices liblist
?prompt "Old Library Name"
?callback "oldcellnameL=(libNameOld~>value) println(oldcellnameL) sprintf(oldcellnameS \"%L\" oldcellnameL) println(oldcellnameS)"
)
println(oldcellnameS)
cellNameOld=hiCreateListBoxField(
?name 'cellNameOld
?numRows 6
?choices ddGetObj(oldcellnameS)~>cells~>name
?prompt "Old Cell Name"
?callback "ddsUpdateSyncWithForm()"
)
;;new
libNameNew=hiCreateListBoxField(
?name 'libNameNew
?numRows 6
?choices liblist
?prompt "new Library Name"
?callback "ddsUpdateSyncWithForm()"
)
newcellname=ddGetObj('libNameNew)~>name
cellNameNew=hiCreateListBoxField(
?name 'cellNameNew
?numRows 6
?choices newcellname
?prompt "new Cell Name"
?callback "ddsUpdateSyncWithForm()"
)

randFrameField = hiCreateFrameField(?name 'myrandFrameField)
netlisterForm = hiCreateAppForm(
?name 'netlisterForm
?formTitle "Replace"
?fields list(
list(randFrameField 5:0 405:100)
list(libNameOld 10:10 400:100 100)
list(cellNameOld 10:100 400:100 100)
list(libNameNew 10:190 400:100 100)
list(cellNameNew 10:280 400:100 100)

);fields
?buttonLayout 'Close
?initialSize t
) ;hiCreateAppForm

hiDisplayForm(netlisterForm)
);let
);procedure

;;procedure( celllist(libname)

I wanted the user choose the library and then select the cells from that list.I am able to get the library list but somehow I am not able to populate the celllist of that library. I am using callback to pass on selected libname to the celllist but its always empty.

Is there a way to set variable in callback section and use it later.

Satendra'