autotests/folding/highlight.prg.fold

0001 // Test file to test kate's clipper highlighting
0002 // kate: hl Clipper;
0003
0004 <beginfold id='1'>//BEGIN INCLUDES</beginfold id='1'>
0005 #include <clip-ui.ch>
0006 #include "logo.ch"
0007
0008 #define PRGVERSION      "0.0.1"
0009 <endfold id='1'>//END</endfold id='1'>
0010
0011 <beginfold id='1'>//BEGIN CODE</beginfold id='1'>
0012 static ws, win
0013 static driver := getDriver()
0014 <beginfold id='2'>/*</beginfold id='2'> a multiline
0015      comment
0016 <endfold id='2'>*/</endfold id='2'>
0017
0018 <beginfold id='3'>function</beginfold id='3'> main( formName )
0019         local form
0020         local fileName
0021
0022         <beginfold id='4'>if</beginfold id='4'> empty(formName)
0023                 ?? "Usage: ./form_ui <form.xfl>&\n"
0024                 CANCEL
0025         <endfold id='4'></endfold id='4'><beginfold id='4'>else</beginfold id='4'>
0026                 fileName := formName
0027         <endfold id='4'>endif</endfold id='4'>
0028         ws  := UIWorkSpace()
0029
0030         form := UIForm( fileName )
0031         win  := form:parseFile()
0032 //      ?? valtype(win),chr(10)
0033         <beginfold id='4'>if</beginfold id='4'> win == NIL
0034                 CANCEL
0035         <endfold id='4'>endif</endfold id='4'>
0036         win:show()
0037
0038         ws:run()
0039         ws:quit()
0040 <endfold id='3'>return</endfold id='3'> 0
0041
0042 <beginfold id='2'>/*</beginfold id='2'> Setting dialog <endfold id='2'>*/</endfold id='2'>
0043 <beginfold id='3'>function</beginfold id='3'> settingsDialog()
0044         ?? "TODO: Settings dialog&\n"
0045 <endfold id='3'>return</endfold id='3'>
0046
0047 <beginfold id='2'>/*</beginfold id='2'> About dialog <endfold id='2'>*/</endfold id='2'>
0048 <beginfold id='3'>function</beginfold id='3'> aboutDialog()
0049         local dlg := UIWindow("About", win, "aboutDlg", .F.)
0050         local hl, lside, t, bb, bD
0051
0052         hl  := UIHBox(,4,8)
0053         lside := UIVBox()
0054         lside:add(UIImage(eas_logo_mini,.T.))
0055         hl:add(lside,.F.,.F.)
0056         dlg:userSpace:add(hl,.T.,.T.)
0057         t   := UIVBox()
0058         hl:add(t,.T.,.T.)
0059
0060         t:add(UILabel("License: GPL version 2 or later"))
0061         bb  := UIButtonBar()
0062         t:add(bb)
0063         bD := UIButton(win, "&Close", {|o,e| dlg:close() } )
0064         bb:add( bD )
0065
0066         dlg:setFocus(bD)
0067         dlg:setDefault(bD)
0068         dlg:setPlacement( .T. )
0069         dlg:show()
0070 <endfold id='3'>return</endfold id='3'>
0071 <endfold id='1'>//END</endfold id='1'>