1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
|
<!DOCTYPE html>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
<title>highlight.prg</title>
<meta name="generator" content="KF5::SyntaxHighlighting - Definition (Clipper) - Theme (Breeze Dark)"/>
</head><body style="background-color:#232629;color:#cfcfc2"><pre>
<span style="color:#7a7c7d">// Test file to test kate's clipper highlighting</span>
<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>
<span style="color:#2980b9;background-color:#153042">//BEGIN INCLUDES</span>
<span style="color:#27ae60">#include </span><span style="color:#27ae60"><clip-ui.ch></span>
<span style="color:#27ae60">#include </span><span style="color:#27ae60">"logo.ch"</span>
<span style="color:#27ae60">#define PRGVERSION </span><span style="color:#27ae60">"0.0.1"</span>
<span style="color:#2980b9;background-color:#153042">//END</span>
<span style="color:#2980b9;background-color:#153042">//BEGIN CODE</span>
<span style="font-weight:bold">static</span> ws<span style="color:#3f8058">,</span> win
<span style="font-weight:bold">static</span> driver <span style="color:#3f8058">:=</span> getDriver<span style="color:#3f8058">()</span>
<span style="color:#7a7c7d">/* a multiline</span>
<span style="color:#7a7c7d"> comment</span>
<span style="color:#7a7c7d">*/</span>
<span style="font-weight:bold">function</span> main<span style="color:#3f8058">(</span> formName <span style="color:#3f8058">)</span>
<span style="font-weight:bold">local</span> <span style="color:#2980b9">form</span>
<span style="font-weight:bold">local</span> fileName
<span style="font-weight:bold">if</span> <span style="color:#8e44ad">empty</span><span style="color:#3f8058">(</span>formName<span style="color:#3f8058">)</span>
<span style="color:#2980b9">??</span> <span style="color:#f44f4f">"Usage: ./form_ui <form.xfl>&</span><span style="color:#3daee9">\n</span><span style="color:#f44f4f">"</span>
CANCEL
<span style="font-weight:bold">else</span>
fileName <span style="color:#3f8058">:=</span> formName
<span style="font-weight:bold">endif</span>
ws <span style="color:#3f8058">:=</span> UIWorkSpace<span style="color:#3f8058">()</span>
<span style="color:#2980b9">form</span> <span style="color:#3f8058">:=</span> UIForm<span style="color:#3f8058">(</span> fileName <span style="color:#3f8058">)</span>
win <span style="color:#3f8058">:=</span> <span style="color:#2980b9">form</span><span style="color:#3f8058">:</span>parseFile<span style="color:#3f8058">()</span>
<span style="color:#7a7c7d">// ?? valtype(win),chr(10)</span>
<span style="font-weight:bold">if</span> win <span style="color:#3f8058">==</span> <span style="font-weight:bold">NIL</span>
CANCEL
<span style="font-weight:bold">endif</span>
win<span style="color:#3f8058">:</span>show<span style="color:#3f8058">()</span>
ws<span style="color:#3f8058">:</span><span style="color:#2980b9">run</span><span style="color:#3f8058">()</span>
ws<span style="color:#3f8058">:</span><span style="color:#2980b9">quit</span><span style="color:#3f8058">()</span>
<span style="font-weight:bold">return</span> 0
<span style="color:#7a7c7d">/* Setting dialog */</span>
<span style="font-weight:bold">function</span> settingsDialog<span style="color:#3f8058">()</span>
<span style="color:#2980b9">??</span> <span style="color:#f44f4f">"TODO: Settings dialog&</span><span style="color:#3daee9">\n</span><span style="color:#f44f4f">"</span>
<span style="font-weight:bold">return</span>
<span style="color:#7a7c7d">/* About dialog */</span>
<span style="font-weight:bold">function</span> aboutDialog<span style="color:#3f8058">()</span>
<span style="font-weight:bold">local</span> dlg <span style="color:#3f8058">:=</span> UIWindow<span style="color:#3f8058">(</span><span style="color:#f44f4f">"About"</span><span style="color:#3f8058">,</span> win<span style="color:#3f8058">,</span> <span style="color:#f44f4f">"aboutDlg"</span><span style="color:#3f8058">,</span> <span style="font-weight:bold">.F.</span><span style="color:#3f8058">)</span>
<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
hl <span style="color:#3f8058">:=</span> UIHBox<span style="color:#3f8058">(,</span>4<span style="color:#3f8058">,</span>8<span style="color:#3f8058">)</span>
lside <span style="color:#3f8058">:=</span> UIVBox<span style="color:#3f8058">()</span>
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>
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>
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>
t <span style="color:#3f8058">:=</span> UIVBox<span style="color:#3f8058">()</span>
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>
t<span style="color:#3f8058">:</span>add<span style="color:#3f8058">(</span>UILabel<span style="color:#3f8058">(</span><span style="color:#f44f4f">"License: GPL version 2 or later"</span><span style="color:#3f8058">))</span>
bb <span style="color:#3f8058">:=</span> UIButtonBar<span style="color:#3f8058">()</span>
t<span style="color:#3f8058">:</span>add<span style="color:#3f8058">(</span>bb<span style="color:#3f8058">)</span>
bD <span style="color:#3f8058">:=</span> UIButton<span style="color:#3f8058">(</span>win<span style="color:#3f8058">,</span> <span style="color:#f44f4f">"&Close"</span><span style="color:#3f8058">,</span> <span style="color:#27ae60">{|o,e| dlg:close() }</span> <span style="color:#3f8058">)</span>
bb<span style="color:#3f8058">:</span>add<span style="color:#3f8058">(</span> bD <span style="color:#3f8058">)</span>
dlg<span style="color:#3f8058">:</span>setFocus<span style="color:#3f8058">(</span>bD<span style="color:#3f8058">)</span>
dlg<span style="color:#3f8058">:</span>setDefault<span style="color:#3f8058">(</span>bD<span style="color:#3f8058">)</span>
dlg<span style="color:#3f8058">:</span>setPlacement<span style="color:#3f8058">(</span> <span style="font-weight:bold">.T.</span> <span style="color:#3f8058">)</span>
dlg<span style="color:#3f8058">:</span>show<span style="color:#3f8058">()</span>
<span style="font-weight:bold">return</span>
<span style="color:#2980b9;background-color:#153042">//END</span>
</pre></body></html>
|