Dyalog MiServer 3 Sample Site

Please pick a fruit

:Class SelectSimple : MiPageSample 
⍝ Control::     _DC.Select 
⍝ Description:: Pick fruits from a simple drop-down 
⍝ 
 
    FRUITS←'Apples' 'Bananas' 'Grapes' 'Oranges' 'Pears' 'Pineapples' 'Plums' 
 
    ∇ Compose;frm;single;multi;btn 
      :Access public 
      
      Add _.h2'Please pick a fruit' 
      
      frm←'myform'Add _.Form 
      'fruit'frm.Add _.Select FRUITS 2 
      btn←'btnPressMe'frm.Add _.Button'Pick' 
      btn.On'click' 'onPick' 
      'output'Add _.div 
    ∇ 
 
      
    ∇ r←onPick;selected 
      ⍝ Called when the Pick button is pressed 
      :Access Public   
     ⍝ When selecting a single item the result will be a string    
      selected←Get'fruit' 
      r←'#output'Replace _.p('You picked: ',selected,(0=⍴selected)/'nothing') 
    ∇ 
 
:EndClass