WidgetDoc

View
Rendered webpage	APL code

_JS.jBox🔗 jBox widget

Constructor: [type [message [content]]]

type – one of 'Tooltip', 'Mouse', 'Modal', 'Confirm', 'Notice', 'Image'

message – the text that will appear in the popup

content – the content for the target element

Public Fields:

Type – one of 'Tooltip', 'Mouse', 'Modal', 'Confirm', 'Notice', 'Image'

Message – the text that will appear in the popup

Content – the content for the target element

Theme – name of a jBox-Theme (one of 'ModalBorder','NoticeBorder','TooltipBorder' or 'TooltipDark')

Shared Methods:

{optionsORcolor} Notice [message] – displays a popup-msg.

{options} Modal [message] – modal popup

Notes:

For more information see https://github.com/StephanWagner/jBox

Documentation of options can be found @ http://stephanwagner.me/jBox/options

Type is a public field in the base class

Relevant Sample Pages:

jBox provides several style of popups
Open this simple sample in a new tabsimple Confirmation-Dialogs with limited interaction
Open this simple sample in a new tabAdvanced jBox-Tooltips
Open this advanced sample in a new tabUsing jBox in callback-functions to display notices or modal popups
Open this advanced sample in a new tabjBox-confirmations triggered from APL-Callback (tight integration of APL and JS-Callbacks)
Open this advanced sample in a new tabConfirmation Dialog on PageLoad
Open this advanced sample in a new tabImage-galleries with jBox
Open this advanced sample in a new tab


:Class WidgetDoc : MiPageSample 
 
    :include #.MS3SiteUtils 
 
    ∇ Compose;ns;widget;ref;wref;src;chunk;files;r;split;find 
      :Access public 
      Add _.style'#view {display: none}' 
      r←'<div class="WidgetDoc">' 
      (ns widget)←Get'namespace widget' 
      :If 9.1=#.⎕NC⊂ns 
          ref←#.⍎ns 
          :If 9=ref.⎕NC widget 
              wref←ref⍎widget 
              r,←'<h3 id="WidgetDocTitle">' 
              :If 0=wref.⎕NC⊂'DocBase' 
              :OrIf 0∊⍴wref.DocBase      ⍝ without link 
                  r,←ns,'.',widget 
              :Else                      ⍝ with link 
                  r,←(ns,'.',widget)External wref.DocBase 
              :EndIf 
      
              src←1↓⎕SRC wref 
              src↓⍨←+/∧\''∘≡¨src 
              src←#.Strings.dlb¨src 
              src←src/⍨∧\'⍝'=⊃¨src 
              src←'¶  +'⎕R' '⊢'¶',¨1↓¨src 
              src←{1↓¨⍵⊂⍨'¶'=⍵}∊src 
              src←HtmlSafeText¨#.Strings.dlb¨src 
      
              :If 0∊⍴src 
                  r,←'<h3 class="red">No documentation found.</h3>' 
              :Else 
                  :For chunk :In src 
                      ⍝ Section:: 
                      ⍝ Section:: text 
                      ⍝ text - text 
                      ⍝  - text 
                      ⍝ code ⍝ text 
                      ⍝ code 
                      :If ∨/'::'⍷chunk ⍝ Section:: 
                          :If ∨/find←' - '⍷chunk 
                              split←find⍳1 
                              r,←'<h3>',(chunk↑⍨split-1),'</h3>' 
                              chunk←chunk↓⍨split+2 
                              find←'- '⍷chunk 
                              split←find⍳1 
                              r,←'<p' 
                              :If '-'≠⊃chunk~' ' 
                                  r,←' class="hang"' 
                              :EndIf 
                              r,←'>',(chunk↑⍨split-1),'&ndash;',(split↓chunk),'</p>' 
                          :Else 
                              r,←'<h3>',chunk,'</h3>' 
                          :EndIf 
                      :ElseIf ∨/find←'- '⍷chunk 
                          split←find⍳1 
                          r,←'<p' 
                          :If '-'≠⊃chunk~' ' 
                              r,←' class="hang"' 
                          :EndIf 
                          r,←'>',(chunk↑⍨split-1),'&ndash;',(split↓chunk),'</p>' 
                      :Else ⍝ [APL code] [⍝ comment] 
                          find←'&#9053;'⍷chunk 
                          split←6+find⍳1 
                          r,←'<p class="hang"><code>',(split↑chunk),'</code>',(split↓chunk),'</p>' 
                      :EndIf 
                  :EndFor 
              :EndIf 
      
              files←'relevant'ForControl widget 
              :If 0∊⍴files 
                  r,←'<h3 class="red">No relevant sample pages found.</h3>' 
              :Else 
                  r,←'<h3>Relevant Sample Pages:</h3>' 
                  (files←'#samples'New _.Tabs(↓⍉↑{DescrEmbed ⍵}¨files)).Theme←'FF8C00' 
                  r,←files.Render 
              :EndIf 
          :Else 
              r,←'<h3 class="red">Widget "',widget,'" not found in namespace ',ns,'.</h3>' 
          :EndIf 
      :Else 
          r,←'<h3 class="red">Namespace "',ns,'" not found.</h3>' 
      :EndIf 
      r,←'</div>' 
      Add'<h3>Description::' '::'⎕R'' ':'⊢r 
    ∇ 
:EndClass

Controls used on this page: Dyalog: Tabs Base HTML: style

Dyalog MiServer 3 Sample Site

_JS.jBox🔗 jBox widget

Constructor: [type [message [content]]]

Public Fields:

Notes:

Relevant Sample Pages: