How to add a menu item to the export in CIW

 hi Andrew,

 I done as u suggested in last post. 1st i created a form and fill it with fields(rundirectory, library). Then i created a menu in CIW. But when i running the script for form then CIW shows "nil" and one worning.

 procedure(gds()
  let( (form)
 if(boundp('CCSgdsForm) && CCSgdsForm then
      form = CCSgdsForm
    else
      form = CCScreategdsForm()
    ); if
    when(hiIsForm(form)
     
  enterString(
        ?prompts list("Enter rundirectory to gds ")
        ?form form
        ;?initProc t_initProcName 

        ?doneProc "CCSgdsDoneProc"
        ;?formProc t_formProcName
        ?alwaysMap t
        ?cmdName "CCSgdsForm"
)
    ); when the form exists
  ); let
); procedure CCSmetBus

procedure(CCScreategdsForm()
   let( (rundirectory librarys library form )
librarys=ddGetLibList()~>name
        library = hiCreateCyclicField(
          ?name 'library
          ?choices      librarys
          ?prompt       "Library"
          ?value        car(librarys)
          ?callback     "CCSchangelibrary()"

)
rundirectory=hiCreateStringField(
?name 'rundirectory
?prompt "Rundirectory"
?value  ""
?defValue "."
?callback "CCSchangeDirectory()"
); hiCreateStringField


 form = hiCreateAppForm(
          ?name 'CCScelltoGdsForm
          ?formTitle "Cell into GDS"
          ?formType     'options
          ?buttonLayout 'HideCancelDef
          ?fields list(list(library 0:0 200:30 50)
                list(rundirectory 0:30 200:30 50) )
        ); hiCreateAppForm
 
            
     ); let

);procedure

 procedure(CCSchangeDirectory()
  let( (origRundirectory)
    when(boundp('CCSgdsForm) && CCSgdsForm
      origRundirectory= CCSgdsForm->rundirectory->value
      CCSgdsForm->rundirectory->value = origRundirectory
      unless(CCSgdsForm->currentRundirectory == CCSgdsForm->rundirectory->value
        CCSgdsForm->currentRundirectory = CCSgdsForm->rundirectory->value
      ); unless
      applyEnterFun(form)
    ); when the form exists
  ); let
); procedure



procedure(CCSgdsDoneProc( done points "wgl")
  let( ( form )
    when(boundp('CCSgdsForm) && CCSgdsForm
      form   = CCSgdsForm
      if(done then
            form->currentRundirectory = nil
              CCSgdsCB(
             form->rundirectory~>value
             )
       ); if done
    ); when form exists
  ); let
); procedure

Then CIW shows:

" (icfb) Syncing library list with the Library Manager."

And I feel my form is not working properly. Please help me to do this.

 hi Andrew,

 I done as u suggested in last post. 1st i created a form and fill it with fields(rundirectory, library). Then i created a menu in CIW. But when i running the script for form then CIW shows "nil" and one worning.

 procedure(gds()
  let( (form)
 if(boundp('CCSgdsForm) && CCSgdsForm then
      form = CCSgdsForm
    else
      form = CCScreategdsForm()
    ); if
    when(hiIsForm(form)
     
  enterString(
        ?prompts list("Enter rundirectory to gds ")
        ?form form
        ;?initProc t_initProcName 

        ?doneProc "CCSgdsDoneProc"
        ;?formProc t_formProcName
        ?alwaysMap t
        ?cmdName "CCSgdsForm"
)
    ); when the form exists
  ); let
); procedure CCSmetBus

procedure(CCScreategdsForm()
   let( (rundirectory librarys library form )
librarys=ddGetLibList()~>name
        library = hiCreateCyclicField(
          ?name 'library
          ?choices      librarys
          ?prompt       "Library"
          ?value        car(librarys)
          ?callback     "CCSchangelibrary()"

)
rundirectory=hiCreateStringField(
?name 'rundirectory
?prompt "Rundirectory"
?value  ""
?defValue "."
?callback "CCSchangeDirectory()"
); hiCreateStringField


 form = hiCreateAppForm(
          ?name 'CCScelltoGdsForm
          ?formTitle "Cell into GDS"
          ?formType     'options
          ?buttonLayout 'HideCancelDef
          ?fields list(list(library 0:0 200:30 50)
                list(rundirectory 0:30 200:30 50) )
        ); hiCreateAppForm
 
            
     ); let

);procedure

 procedure(CCSchangeDirectory()
  let( (origRundirectory)
    when(boundp('CCSgdsForm) && CCSgdsForm
      origRundirectory= CCSgdsForm->rundirectory->value
      CCSgdsForm->rundirectory->value = origRundirectory
      unless(CCSgdsForm->currentRundirectory == CCSgdsForm->rundirectory->value
        CCSgdsForm->currentRundirectory = CCSgdsForm->rundirectory->value
      ); unless
      applyEnterFun(form)
    ); when the form exists
  ); let
); procedure



procedure(CCSgdsDoneProc( done points "wgl")
  let( ( form )
    when(boundp('CCSgdsForm) && CCSgdsForm
      form   = CCSgdsForm
      if(done then
            form->currentRundirectory = nil
              CCSgdsCB(
             form->rundirectory~>value
             )
       ); if done
    ); when form exists
  ); let
); procedure

Then CIW shows:

" (icfb) Syncing library list with the Library Manager."

And I feel my form is not working properly. Please help me to do this.