How to write inline callback methods

To separate code into procedural pices is in my opinion not uggly,

but here is an inline example.

procedure( BFcreateEddyForm( )
    let( ( eddyStringField eddyRadioField )
        
;; creating the fields
    eddyStringField =
        hiCreateStringField(
            ?name       'eddyStringField
            ?prompt     "Eddy Text:"
            ?editable   nil
            )
            
    eddyRadioField =
        hiCreateRadioField(
            ?name       'eddyRadioField
            ?choices    '( "On" "Off" )
            ?prompt     "Turn Eddy On/Off:"
            ?value      "Off"
            ?callback   list(
                            "hiGetCurrentForm( )->eddyStringField->editable = t"  
                            "hiGetCurrentForm( )->eddyStringField->editable = nil"
                        )
        )
      
;; creating the form
    hiCreateAppForm(
        ?name       '__eddyForm__  
        ?formTitle  "Eddy Form"
        ?initialSize list( 300 260 )
        ?fields     list(
                    list(
                        eddyStringField
                        15:5 250:25 120
                        )
                    list(
                        eddyRadioField
                        15:50 250:25 120
                        )
                    )
    )
        
) ;; close let
) ;; close procedure

procedure( BFeddyForm( )

    unless( boundp( '__eddyForm__ ) && hiIsFormDisplayed( __eddyForm__ )
            BFcreateEddyForm( )
            )
            
    hiDisplayForm( __eddyForm__ )
 
) ;; close procedure
        

 And in your case you have two commands you want to do - so your callback could be:

"myForm->EddyTextField1->editable=t myForm->EddyTextField2->editable="

i.e. space separate them.

In addition, in the upcoming IC616 release you'll be able to specify the callbacks as function objects, so you can create a lambda function (an unnamed inline function) to do this. Note that you can't do this in IC615. For example (adapting Bernd's code):

procedure( BFcreateEddyForm( )
     let( ( eddyStringField1 eddyStringField2 eddyRadioField )
         
 ;; creating the fields
     eddyStringField1 =
         hiCreateStringField(
             ?name       'eddyStringField1
             ?prompt     "Eddy Text 1:"
             ?editable   nil
             )
     eddyStringField2 =
         hiCreateStringField(
             ?name       'eddyStringField2
             ?prompt     "Eddy Text 2:"
             ?editable   nil
             )
             
     eddyRadioField =
         hiCreateRadioField(
             ?name       'eddyRadioField
             ?choices    '( "On" "Off" )
             ?prompt     "Turn Eddy On/Off:"
             ?value      "Off"
             ?callback   
                list(
                    lambda((field scope selection)
                        let((editable)
                            editable=if(selection=="On" t nil)
                            hiGetCurrentForm()->eddyStringField1->editable=editable
                            hiGetCurrentForm()->eddyStringField2->editable=editable
                        )
                    )
                )
         )
       
 ;; creating the form
     hiCreateAppForm(
         ?name       '__eddyForm__  
         ?formTitle  "Eddy Form"
         ?initialSize list( 300 260 )
         ?fields     list(
                     list(
                         eddyStringField1
                         15:5 250:25 120
                         )
                     list(
                         eddyStringField2
                         15:35 250:25 120
                         )
                     list(
                         eddyRadioField
                         15:80 250:25 120
                         )
                     )
     )
         
 ) ;; close let
 ) ;; close procedure

 procedure( BFeddyForm( )

     unless( boundp( '__eddyForm__ ) && hiIsFormDisplayed( __eddyForm__ )
             BFcreateEddyForm( )
             )
             
     hiDisplayForm( __eddyForm__ )
  
 ) ;; close procedure

 Thanks, that's exactly what I needed !