Dyalog MiServer 3 Sample Site

Isn't that nice?

:class figureSimple: MiPageSample 
⍝ Control:: _html.img _html.figure _html.figcaption 
⍝ Description:: Insert a figure with a caption 
 
    ∇ Compose 
      :Access public  
      Add¨'Isn''t that nice?'_.br 
      myfig←Add _.figure 
      'src=../Data/smiley.gif' 'alt="Happy face"'myfig.Add _.img 
      myfig.Add _.figcaption'Captivating!' 
    ∇ 
 
:endclass 

Controls used on this page: Base HTML: br, figcaption, figure, img