autotests/html/highlight.prg.dark.html

0001 <!DOCTYPE html>
0002 <html><head>
0003 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
0004 <title>highlight.prg</title>
0005 <meta name="generator" content="KF5::SyntaxHighlighting - Definition (Clipper) - Theme (Breeze Dark)"/>
0006 </head><body style="background-color:#232629;color:#cfcfc2"><pre>
0007 <span style="color:#7a7c7d;">// Test file to test kate's clipper highlighting</span>
0008 <span style="color:#7a7c7d;">// </span><span style="color:#3f8058;">kate:</span><span style="color:#7a7c7d;"> </span><span style="color:#7f8c8d;">hl</span><span style="color:#f44f4f;"> Clipper</span><span style="color:#7f8c8d;">;</span>
0009
0010 <span style="color:#2980b9;background-color:#153042;">//BEGIN INCLUDES</span>
0011 <span style="color:#27ae60;">#include </span><span style="color:#27ae60;">&lt;clip-ui.ch&gt;</span>
0012 <span style="color:#27ae60;">#include </span><span style="color:#27ae60;">&quot;logo.ch&quot;</span>
0013
0014 <span style="color:#27ae60;">#define PRGVERSION </span><span style="color:#27ae60;">&quot;0.0.1&quot;</span>
0015 <span style="color:#2980b9;background-color:#153042;">//END</span>
0016
0017 <span style="color:#2980b9;background-color:#153042;">//BEGIN CODE</span>
0018 <span style="font-weight:bold;">static</span> ws<span style="color:#3f8058;">,</span> win
0019 <span style="font-weight:bold;">static</span> driver <span style="color:#3f8058;">:=</span> getDriver<span style="color:#3f8058;">()</span>
0020 <span style="color:#7a7c7d;">/* a multiline</span>
0021 <span style="color:#7a7c7d;">     comment</span>
0022 <span style="color:#7a7c7d;">*/</span>
0023
0024 <span style="font-weight:bold;">function</span> main<span style="color:#3f8058;">(</span> formName <span style="color:#3f8058;">)</span>
0025     <span style="font-weight:bold;">local</span> <span style="color:#2980b9;">form</span>
0026     <span style="font-weight:bold;">local</span> fileName
0027
0028     <span style="font-weight:bold;">if</span> <span style="color:#8e44ad;">empty</span><span style="color:#3f8058;">(</span>formName<span style="color:#3f8058;">)</span>
0029         <span style="color:#2980b9;">??</span> <span style="color:#f44f4f;">&quot;Usage: ./form_ui &lt;form.xfl&gt;&amp;</span><span style="color:#3daee9;">\n</span><span style="color:#f44f4f;">&quot;</span>
0030         CANCEL
0031     <span style="font-weight:bold;">else</span>
0032         fileName <span style="color:#3f8058;">:=</span> formName
0033     <span style="font-weight:bold;">endif</span>
0034     ws  <span style="color:#3f8058;">:=</span> UIWorkSpace<span style="color:#3f8058;">()</span>
0035
0036     <span style="color:#2980b9;">form</span> <span style="color:#3f8058;">:=</span> UIForm<span style="color:#3f8058;">(</span> fileName <span style="color:#3f8058;">)</span>
0037     win  <span style="color:#3f8058;">:=</span> <span style="color:#2980b9;">form</span><span style="color:#3f8058;">:</span>parseFile<span style="color:#3f8058;">()</span>
0038 <span style="color:#7a7c7d;">// ?? valtype(win),chr(10)</span>
0039     <span style="font-weight:bold;">if</span> win <span style="color:#3f8058;">==</span> <span style="font-weight:bold;">NIL</span>
0040         CANCEL
0041     <span style="font-weight:bold;">endif</span>
0042     win<span style="color:#3f8058;">:</span>show<span style="color:#3f8058;">()</span>
0043
0044     ws<span style="color:#3f8058;">:</span><span style="color:#2980b9;">run</span><span style="color:#3f8058;">()</span>
0045     ws<span style="color:#3f8058;">:</span><span style="color:#2980b9;">quit</span><span style="color:#3f8058;">()</span>
0046 <span style="font-weight:bold;">return</span> 0
0047
0048 <span style="color:#7a7c7d;">/* Setting dialog */</span>
0049 <span style="font-weight:bold;">function</span> settingsDialog<span style="color:#3f8058;">()</span>
0050     <span style="color:#2980b9;">??</span> <span style="color:#f44f4f;">&quot;TODO: Settings dialog&amp;</span><span style="color:#3daee9;">\n</span><span style="color:#f44f4f;">&quot;</span>
0051 <span style="font-weight:bold;">return</span>
0052
0053 <span style="color:#7a7c7d;">/* About dialog */</span>
0054 <span style="font-weight:bold;">function</span> aboutDialog<span style="color:#3f8058;">()</span>
0055     <span style="font-weight:bold;">local</span> dlg <span style="color:#3f8058;">:=</span> UIWindow<span style="color:#3f8058;">(</span><span style="color:#f44f4f;">&quot;About&quot;</span><span style="color:#3f8058;">,</span> win<span style="color:#3f8058;">,</span> <span style="color:#f44f4f;">&quot;aboutDlg&quot;</span><span style="color:#3f8058;">,</span> <span style="font-weight:bold;">.F.</span><span style="color:#3f8058;">)</span>
0056     <span style="font-weight:bold;">local</span> hl<span style="color:#3f8058;">,</span> lside<span style="color:#3f8058;">,</span> t<span style="color:#3f8058;">,</span> bb<span style="color:#3f8058;">,</span> bD
0057
0058     hl  <span style="color:#3f8058;">:=</span> UIHBox<span style="color:#3f8058;">(,</span>4<span style="color:#3f8058;">,</span>8<span style="color:#3f8058;">)</span>
0059     lside <span style="color:#3f8058;">:=</span> UIVBox<span style="color:#3f8058;">()</span>
0060     lside<span style="color:#3f8058;">:</span>add<span style="color:#3f8058;">(</span>UIImage<span style="color:#3f8058;">(</span>eas_logo_mini<span style="color:#3f8058;">,</span><span style="font-weight:bold;">.T.</span><span style="color:#3f8058;">))</span>
0061     hl<span style="color:#3f8058;">:</span>add<span style="color:#3f8058;">(</span>lside<span style="color:#3f8058;">,</span><span style="font-weight:bold;">.F.</span><span style="color:#3f8058;">,</span><span style="font-weight:bold;">.F.</span><span style="color:#3f8058;">)</span>
0062     dlg<span style="color:#3f8058;">:</span>userSpace<span style="color:#3f8058;">:</span>add<span style="color:#3f8058;">(</span>hl<span style="color:#3f8058;">,</span><span style="font-weight:bold;">.T.</span><span style="color:#3f8058;">,</span><span style="font-weight:bold;">.T.</span><span style="color:#3f8058;">)</span>
0063     t   <span style="color:#3f8058;">:=</span> UIVBox<span style="color:#3f8058;">()</span>
0064     hl<span style="color:#3f8058;">:</span>add<span style="color:#3f8058;">(</span>t<span style="color:#3f8058;">,</span><span style="font-weight:bold;">.T.</span><span style="color:#3f8058;">,</span><span style="font-weight:bold;">.T.</span><span style="color:#3f8058;">)</span>
0065
0066     t<span style="color:#3f8058;">:</span>add<span style="color:#3f8058;">(</span>UILabel<span style="color:#3f8058;">(</span><span style="color:#f44f4f;">&quot;License: GPL version 2 or later&quot;</span><span style="color:#3f8058;">))</span>
0067     bb  <span style="color:#3f8058;">:=</span> UIButtonBar<span style="color:#3f8058;">()</span>
0068     t<span style="color:#3f8058;">:</span>add<span style="color:#3f8058;">(</span>bb<span style="color:#3f8058;">)</span>
0069     bD <span style="color:#3f8058;">:=</span> UIButton<span style="color:#3f8058;">(</span>win<span style="color:#3f8058;">,</span> <span style="color:#f44f4f;">&quot;&amp;Close&quot;</span><span style="color:#3f8058;">,</span> <span style="color:#27ae60;">{|o,e| dlg:close() }</span> <span style="color:#3f8058;">)</span>
0070     bb<span style="color:#3f8058;">:</span>add<span style="color:#3f8058;">(</span> bD <span style="color:#3f8058;">)</span>
0071
0072     dlg<span style="color:#3f8058;">:</span>setFocus<span style="color:#3f8058;">(</span>bD<span style="color:#3f8058;">)</span>
0073     dlg<span style="color:#3f8058;">:</span>setDefault<span style="color:#3f8058;">(</span>bD<span style="color:#3f8058;">)</span>
0074     dlg<span style="color:#3f8058;">:</span>setPlacement<span style="color:#3f8058;">(</span> <span style="font-weight:bold;">.T.</span> <span style="color:#3f8058;">)</span>
0075     dlg<span style="color:#3f8058;">:</span>show<span style="color:#3f8058;">()</span>
0076 <span style="font-weight:bold;">return</span>
0077 <span style="color:#2980b9;background-color:#153042;">//END</span>
0078 </pre></body></html>