Dyalog MiServer 3 Sample Site

jQuery Slider Widget

Default Slider

Ranged Slider

:Class jqSliderSimple : MiPageSample 
⍝ Control:: _JQ.jqSlider 
⍝ Description:: Single and Ranged Sliders 
 
    ∇ Compose;drag 
      :Access Public 
      Add _.h4'jQuery Slider Widget' 
      
      Add _.h6'Default Slider' 
      ('Default' '.slide'Add _.jqSlider).On 'slidechange' 'myCallBack' 
      
      Add _.h6'Ranged Slider' 
      ('Ranged' '.slide'Add _.jqSlider 0 100 20 40).On 'slidechange' 'myCallBack' 
      
      Add _.br 
       
      '#output'Add _.div 
    ∇ 
 
    ∇ r←myCallBack 
      :Access Public 
      r←'#output'Replace _what,' Slider changed to ',⍕_value 
    ∇ 
 
 
:EndClass