How to generate & view files from GUI forum

Hi Drake,

I don't know what you mean when you say "a sample text will be visible". You want to see it in a dialog or in the CIW or what exactly?

Below is an example that prints the sample text to CIW - I leave it up to you to implement the "visibility" thing the way you want.

(let (cyclicField btn form)
   cyclicField = (hiCreateCyclicField
                     ?name       (gensym)
                     ?choices    (list "5nm" "10nm" "14nm" "28nm"))
   btn = (hiCreateButton
      ?name (gensym)
      ?buttonText "view sample text"
      ?callback   (lambda (@rest args)
                     (case cyclicField->value
                        ("10nm"
                           (println "needs help in skill"))
                        ("5nm"
                           (println "that's pretty small!"))
                        (t
                           (printf "don't know what to do with %s\n" cyclicField->value)))))

   form = (hiCreateAppForm
      ?name (gensym)
      ?fields (list cyclicField btn))
   (hiDisplayForm form) )

Max

Hello Max,
I want it in text file form?
Is it possible to happen that when am click 5nm a text file open, also that file should not editable

so you want a text file to be opened in readonly mode when you click the button right? This is what the view() function does. Just replace the println() statements against (view <nameOfTextFile>).

Max,

Sorry for trouble.

mbracht said:

println() statements against (view <nameOfTextFile>).

when am replacing am gettting something like this..text is appearing as title and inside its empty-

<nameOfTextFile> must be the name of an existing(!) file - "that's pretty small" is not an existing file is it?

That won't work of course because it's trying to open a text file that doesn't exist and so it just shows empty contents. If you've used view() - you didn't say - that's exactly what it would do.

Instead, try:

procedure(CCFshowSomeTextInAWindow(theText)
  let((win)
    win=hiOpenWindow(?type "text")
    hiTextDisplayString(win theText t)
    win
  )
)

and replace the calls to println in Max's code with similar to this:

(CCFshowSomeTextInAWindow "needs help in skill")

Andrew

That won't work of course because it's trying to open a text file that doesn't exist and so it just shows empty contents. If you've used view() - you didn't say - that's exactly what it would do.

Instead, try:

procedure(CCFshowSomeTextInAWindow(theText)
  let((win)
    win=hiOpenWindow(?type "text")
    hiTextDisplayString(win theText t)
    win
  )
)

and replace the calls to println in Max's code with similar to this:

(CCFshowSomeTextInAWindow "needs help in skill")

Andrew