On Apr 23, 11:09=A0am, "S. Badel" <stephane.ba...@[EMAIL PROTECTED]
>
wrote:
> manell15 wrote:
> > I am developping a tool with skill language that generate automaticaly
> > a testchip from a file that describe tle list of cells of the
> > testchip.
> > I want to create from an interface this file that contains in each
> > line :
> > "name of a library" =A0 "name of the cell" =A0 "the view of the cell"
> > "the position of the cell in the testchip"
> > the interface will contain a button called "BROWSE"
> > when we click on the button the library manager appears and we choose
> > the library, the cell name and the cell view , in this moment a file
> > should be created containing all these informations: "name of a
> > library" =A0 "name of the cell" =A0 "the view of the cell" =A0"the
posit=
ion
> > of the cell in the testchip"
> > Could you please help me
>
> > Best regards
> > manell15
>
> You'll want to look at ddsSyncWithForm() type of function, to allow
choosi=
ng from the library manager.
>
> Below's a minimal example.
>
> Cheers,
> St=E9phane
>
> --
>
> procedure( SBChooseCellview()
>
> =A0 unless( boundp('CSForm) && hiIsForm(CSForm)
> =A0 =A0CSForm =3D hiCreateAppForm(
> =A0 =A0 ?name 'CSForm
> =A0 =A0 ?formTitle "Choose Cellview"
> =A0 =A0 ?buttonLayout '(OKCancel)
> =A0 =A0 ?buttonDisabled '(Help)
> =A0 =A0 ?dialogStyle 'modal
> =A0 =A0 ?initialSize 320:210
> =A0 =A0 ?minSize 320:210
> =A0 =A0 ?maxSize 320:210
> =A0 =A0 ?fields list(
> =A0 =A0 =A0 =A0 ; source
> =A0 =A0 =A0list( hiCreateStringField(
> =A0 =A0 =A0 ?name 'srcLib
> =A0 =A0 =A0 ?prompt "Library"
> =A0 =A0 =A0 ?defValue ""
> =A0 =A0 =A0 ?callback "ddsUpdateSyncWithForm()"
> =A0 =A0 =A0) =A0 =A0 =A0 20:20 260:025 080 )
> =A0 =A0 =A0list( hiCreateStringField(
> =A0 =A0 =A0 ?name 'srcCell
> =A0 =A0 =A0 ?prompt "Cell"
> =A0 =A0 =A0 ?defValue ""
> =A0 =A0 =A0 ?callback "ddsUpdateSyncWithForm()"
> =A0 =A0 =A0) =A0 =A0 =A020:50 260:025 080 )
> =A0 =A0 =A0list( hiCreateStringField(
> =A0 =A0 =A0 ?name 'srcView
> =A0 =A0 =A0 ?prompt "View"
> =A0 =A0 =A0 ?defValue ""
> =A0 =A0 =A0 ?callback "ddsUpdateSyncWithForm()"
> =A0 =A0 =A0) =A0 =A0 =A020:80 260:025 080 )
> =A0 =A0 =A0list( hiCreateButton(
> =A0 =A0 =A0 ?name 'srcBrowseBtn
> =A0 =A0 =A0 ?buttonText "Browse..."
> =A0 =A0 =A0 ?callback "ddsSyncWithForm( CSForm 'browse 'srcLib 'srcCell
's=
rcView )"
> =A0 =A0 =A0) 20:120 100:040 )
> =A0 =A0 =A0; destination
> =A0 =A0 ) ; ?fields
> =A0 =A0) ; hiCreateAppForm
> =A0 )
>
> =A0 when( hiDisplayForm( CSForm )
> =A0 =A0list( CSForm->srcLib->value CSForm->srcCell->value
CSForm->srcView-=
>value )
> =A0 )
>
> ) ; procedure- Hide quoted text -
>
> - Show quoted text -
Thank you very much for your help.
I want to ask how to add a text in an " MLTextField".
I've trayed to do it with the ****tion "appel()" but this function
concat all texts in the same line and I want to insert each new text
in a newline.
Best regards
manell15
list( hiCreateMLTextField(
?name 'zone
?prompt "List of cells"
?defValue ""
?editable t
)
(defun appel ()
(let (nextLine)
nextLine=3Dstrcat(CSForm->srcLib->value " " CSForm->srcCell->value " "
CSForm->srcView->value )
CSForm~>zone~>value =3Dstrcat( nextLine CSForm~>zone~>value )
)
|
