Dyalog MiServer 3 Sample Site

_.Ul - Unordered List

This control puts a very thin cover on top of the basic HTML ul (unordered list) element, just adding a constructor that makes it easy to specify the item contents and optionally a list of URLs to be navigated to.

Fruits

• Apples
• Bananas
• Grapes
• Oranges

Useful Links

• Dyalog Home
• Dyalog Forums
• Dyalog Blog

:Class UlSimple : MiPageSample 
⍝ Control:: _DC.Ul 
⍝ Description:: Lists of fruits and clickable links 
 
    ∇ Compose;frm;single;multi;btn 
      :Access public 
      
      intro←'This control puts a very thin cover on top of the basic HTML ul ' 
      intro,←' (unordered list) element, just adding a ' 
      intro,←'constructor that makes it easy to specify the item contents ' 
      intro,←'and optionally a list of URLs to be navigated to.' 
      
      Add _.title'_.Ul - Simple Example ' 
      Add _.h2'_.Ul - Unordered List' 
      Add _.p intro 
      
     ⍝ --- Add a simple list of fruits --- 
      Add _.h3'Fruits'       ⍝ Put a heading before it 
      fruits←'Apples' 'Bananas' 'Grapes' 'Oranges' 
      'fruits' Add _.Ul fruits   ⍝ Construct Ul with a vector of vectors 
      
     ⍝ --- Add a list of interesting web pages --- 
      Add _.h3'Useful Links' 
      text←'Dyalog Home' 'Dyalog Forums' 'Dyalog Blog' 
      urls←'http://'∘,¨'www.dyalog.com' 'forums.dyalog.com' 'www.dyalog.com/blog' 
      Add _.Ul(text urls) ⍝ Construct Ul with texts and urls 
    ∇ 
 
:EndClass