Stats

  • Locked Locked
  • Replies 3
  • Subscribers 143
  • Views 13909
  • Members are here 0
This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

problems about create form

nidon2003

Hi everyone,

I write a script to create forms as follow:

####################################################

procedure(testCallback(name)
let(()

fieldName=concat(name)
testStringField=hiCreateLabel(
?name fieldName
?labelText strcat("This is test form from " name) )

filedForm = hiCreateAppForm(
?name fieldName
?formTitle "test"
?buttonLayout 'OKCancel
?fields
list(
list(testStringField 0:20 200:40)
)
)

hiDisplayForm(filedForm 650:250)

)
)

procedure(FormTest()
let(()

itemList=nil
hButton=40
yButton=20
for(i 1 10
itemName=concat("test" sprintf(nil "%n" i))
itemText=strcat("test" sprintf(nil "%n" i))
itemCallback=sprintf(nil "testCallback(%L)" itemText)
item=list(
hiCreateFormButton(
?name itemName
?buttonText itemText
?callback itemCallback)
0:yButton+40*(i-1)
410:hButton )
itemList=cons(item itemList)
)

FormTest = hiCreateAppForm(
?name 'FormTest
?formTitle "Form Test"
?buttonLayout 'OKCancel
?fields itemList )

) ;let
) ;

FormTest()
hiDisplayForm(FormTest 350:250)

####################################################

But  it shows two warnings when i run it,

Warning hiDeleteForm: Cannot delete a form that is mapped or form within the form's callback

Warning hiCreateForm: Could not delete already created form.

I can't to solve these warnings, please give me some help.

Thank you very much!

 

Parents

  • Your code has 'let()' statements with no declarations and thus there are no local variables, they all become global.  I've modified the code a little so that it will pass SKILL Lint with a score of 100.

    
procedure(testCallback(name)
  let((fieldName testStringField filedForm)

  fieldName=stringp(name) && concat(name) || name
  testStringField=hiCreateLabel(
    ?name fieldName
    ?labelText strcat("This is test form from " name) )

  filedForm = hiCreateAppForm(
    ?name fieldName
    ?formTitle "test"
    ?buttonLayout 'OKCancel
    ?fields list(
              list(testStringField 0:20 200:40)
            )
  )

  hiDisplayForm(filedForm 650:250)
  ); let
); procedure testCallback

procedure(FormTest()
  let((item itemList (hButton 40) (yButton 20))

    for(i 1 10
      item=list(
        hiCreateFormButton(
          ?name         concat('test i)
          ?buttonText   sprintf(nil "Test %n" i)
          ?callback     sprintf(nil "testCallback(\"test%n\")" i)
        )
        0:yButton+35*(i-1)
        410:hButton
        )
      itemList=cons(item itemList)
    ); for

    ;; creates and returns global form variable/structure FormTest
    hiCreateAppForm(
      ?name 'FormTest
      ?formTitle "Form Test"
      ?buttonLayout 'OKCancel
      ?fields itemList
    )
  ); let
); procedure FormTest

    You can use it in the same way as before, or more simply: hiDisplayForm(FormTest() 350:250)

    Regards,
    Lawrence.

Reply

  • Your code has 'let()' statements with no declarations and thus there are no local variables, they all become global.  I've modified the code a little so that it will pass SKILL Lint with a score of 100.

    
procedure(testCallback(name)
  let((fieldName testStringField filedForm)

  fieldName=stringp(name) && concat(name) || name
  testStringField=hiCreateLabel(
    ?name fieldName
    ?labelText strcat("This is test form from " name) )

  filedForm = hiCreateAppForm(
    ?name fieldName
    ?formTitle "test"
    ?buttonLayout 'OKCancel
    ?fields list(
              list(testStringField 0:20 200:40)
            )
  )

  hiDisplayForm(filedForm 650:250)
  ); let
); procedure testCallback

procedure(FormTest()
  let((item itemList (hButton 40) (yButton 20))

    for(i 1 10
      item=list(
        hiCreateFormButton(
          ?name         concat('test i)
          ?buttonText   sprintf(nil "Test %n" i)
          ?callback     sprintf(nil "testCallback(\"test%n\")" i)
        )
        0:yButton+35*(i-1)
        410:hButton
        )
      itemList=cons(item itemList)
    ); for

    ;; creates and returns global form variable/structure FormTest
    hiCreateAppForm(
      ?name 'FormTest
      ?formTitle "Form Test"
      ?buttonLayout 'OKCancel
      ?fields itemList
    )
  ); let
); procedure FormTest

    You can use it in the same way as before, or more simply: hiDisplayForm(FormTest() 350:250)

    Regards,
    Lawrence.

Children
No Data

Community Guidelines

The Cadence Design Communities support Cadence users and technologists interacting to exchange ideas, news, technical information, and best practices to solve problems and get the most from Cadence technology. The community is open to everyone, and to provide the most value, we require participants to follow our Community Guidelines that facilitate a quality exchange of ideas and information. By accessing, contributing, using or downloading any materials from the site, you agree to be bound by the full Community Guidelines.