Dyalog MiServer 3 Sample Site

:Class jqResizableSimple : MiPageSample 
⍝ Control:: _JQ.jqResizable 
⍝ Description:: Resize a Div 
 
    ∇ Compose;size;sizable 
      :Access Public 
      (sizable←'#sizable'Add _.div'Resize me! ').Style('height' '150px')('width' '150px')('padding' '10px')('background-color' 'wheat')('text-align' 'center') 
      '#size'sizable.Add _.span 
      size←Add _.jqResizable'#sizable' 
      size.On'stop' 'myCallBack'('siz' 'ui' 'size') ⍝ 0 '' 'alert(JSON.stringify(this))' ⍝ 
    ∇ 
 
    ∇ r←myCallBack 
      :Access Public 
      r←'#size'Replace'New size: ',','⎕R'×'⊢(#.JSON.fromAPL Get'siz')∩⎕D,',' 
    ∇ 
 
 
:EndClass 

Controls used on this page: jQueryUI: jqResizable Base HTML: div, span