Syntax help with hiCreateMLTextField

Hi Paul,

Unfortunately the ?font argument exists but I've never seen it supported anywhere.

If you do not intend to use a different font for inputs but only to display nice things, then you have more possibilities.

Here is an example of HTML field that will display what you typed with bold colored sans-serif face:

(hiDisplayForm
  (hiCreateLayoutForm (gensym 'custom_form) "Custom Form"
    (hiCreateFormLayout 'main_layout ?items (list
        (hiCreateMLTextField
          ?name 'text_field
          ?changeCB
          (lambda (_field form)
            ;; Update HTML field using typed value
            (setf form->html_field->value
              (lsprintf "<font face='sans serif' size='+2' color='firebrick' ><b>%s</b></font>" form->text_field->value)
              )
            t)
          )
        (hiCreateHypertextField
          ?name 'html_field
          )
        ))
    ))

Hope this helps,
Aurel

Big thanks for reply

The script has the font variability I want but it does not or I have not found how to get it to support return line.

The MLtext works; I just want like it to be easier to read.

Paul

This is an HyperText field, so the syntax is now HTML.

Newlines are not supported as you expect but you can use HTML tags to get return lines : 

You can for instance use <p>, <br/> or <pcre> for nice formatting of text and code.

Here is an updated version of the previous example where input newlines are replaced by `<br/>` tags : 

(hiDisplayForm
  (hiCreateLayoutForm (gensym 'custom_form) "Custom Form"
    (hiCreateFormLayout 'main_layout ?items (list
        (hiCreateMLTextField
          ?name 'text_field
          ?changeCB
          (lambda (_field form)
            ;; Update HTML field using typed value
            (setf form->html_field->value
              (lsprintf "<font face='sans serif' size='+2' color='firebrick' ><b>%s</b></font>"
                (buildString (parseString (hiEscapeHTMLTags form->text_field->value) "\n" t) "<br/>")
                ))
            t))
        (hiCreateHypertextField
          ?name 'html_field
          )
        ))
    ))

This is an HyperText field, so the syntax is now HTML.

Newlines are not supported as you expect but you can use HTML tags to get return lines : 

You can for instance use <p>, <br/> or <pcre> for nice formatting of text and code.

Here is an updated version of the previous example where input newlines are replaced by `<br/>` tags : 

(hiDisplayForm
  (hiCreateLayoutForm (gensym 'custom_form) "Custom Form"
    (hiCreateFormLayout 'main_layout ?items (list
        (hiCreateMLTextField
          ?name 'text_field
          ?changeCB
          (lambda (_field form)
            ;; Update HTML field using typed value
            (setf form->html_field->value
              (lsprintf "<font face='sans serif' size='+2' color='firebrick' ><b>%s</b></font>"
                (buildString (parseString (hiEscapeHTMLTags form->text_field->value) "\n" t) "<br/>")
                ))
            t))
        (hiCreateHypertextField
          ?name 'html_field
          )
        ))
    ))