home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 April / PCWorld_2008-04_cd.bin / temacd / pspad / pspad453inst_cz(2).exe / {app} / Context / Progress.DEF < prev    next >
Encoding:
Text File  |  2007-08-06  |  9.6 KB  |  411 lines
  1. ; PSPad clip definition file for Progress 4GL
  2. ; author:  Christian Ertle
  3. ; last revision 03. Aug 2007  11:36
  4. ;
  5. [function |n function declaration]
  6. function %Name%(%Params%): %Result%;
  7. begin
  8. |
  9. end;
  10. ;
  11. [dvch |n define variable as character no-undo. ]
  12. define variable | as character no-undo.
  13.  
  14.  
  15. [&ANS |p Preprocessor.Analyze Suspend]    
  16. &ANALYZE-SUSPEND     
  17. [&ANR |p Preprocessor.Analyze Resume]
  18. &ANALYZE-RESUME
  19. [&EL |p Preprocessor.Else]    
  20. &ELSE
  21.     |
  22. [&ELI |p Preprocessor.Elseif ]    
  23.     &ELSEIF (|)
  24. &THEN
  25. [&GL |p Preprocessor.global-define]
  26. &GLOBAL-DEFINE |
  27. [&IF |p Preprocessor.If block]
  28. $s-&IF (|)
  29. &THEN
  30.     
  31. &ENDIF    
  32. [&IFD |p Preprocessor.If Defined block]
  33. &IF (DEFINED (|) <> 0)
  34. &THEN
  35.     
  36. &ENDIF
  37. [&IFND |p Preprocessor.If Not Defined block]
  38. &IF (DEFINED (|) = 0)
  39. &THEN
  40.     
  41. &ENDIF    
  42. [&S |p Preprocessor.{&SELF-NAME}]
  43. {&SELF-NAME}
  44. [&SC |p Preprocessor.Scoped]
  45. &SCOPED |
  46. [&SCD |p Preprocessor.Scoped Define]
  47. &SCOPED-DEFINE
  48. [&F |p Preprocessor.{&FRAME-NAME}]
  49. {&FRAME-NAME}
  50. [&B |p Preprocessor.{&BROWSE-NAME}]
  51. {&BROWSE-NAME}
  52. [&O |p Preprocessor.{&OPEN-QUERY}]
  53. {&OPEN-QUERY-{&BROWSE-NAME}}
  54. [&W |p Preprocessor.{&WINDOW-NAME}]
  55. {&WINDOW-NAME}
  56. [&FTIQ |p Preprocessor.{&FIRST-TABLE-IN-QUERY}]
  57. {&FIRST-TABLE-IN-QUERY-{&BROWSE-NAME}}
  58. [/* |n Comments./* */]
  59. /* | */
  60. [/+ |n Comments./* */ multiline]
  61. /*
  62. ** |
  63. */
  64. [/d |n Debug]
  65. /*debug*/|
  66. [/dm |n Debug.Message]
  67. /*debug*/message | view-as alert-box info buttons ok title 'debug'.
  68. [ass |n assign]
  69. assign
  70.     |
  71. no-error.
  72. [ava |m constructs.available]
  73. available (|)
  74. [bby |m constructs.break-by]
  75. break-by |
  76. [cas |m constructs.case]
  77. case |:
  78.     when then
  79. do:
  80.     /*  */
  81. end.
  82. otherwise
  83. do:
  84.     /*  */
  85. end.
  86. end case.    
  87. [cuw |b gui.current window]
  88. current-window:|
  89. [cwn |b gui.create window]
  90. create window |
  91.     assign
  92.     title        = 
  93. three-d      = yes
  94. message-area = no
  95. status-area  = no
  96. resize       = no
  97. menubar      = :handle
  98. keep-frame-z-order = yes.
  99. [dbt |b gui.def button]
  100. def button | label '?'  size by .
  101. [dbuff |g Definitions.buffer]
  102. def buffer | for for table .
  103. [dew |b gui.default window]
  104. default-window:|
  105. [dis |m constructs.display]
  106. display
  107.     |
  108. .
  109. [diwf |m constructs.display with frame]
  110. display
  111.     |
  112. with frame .
  113. [dmn |b gui.def menu]
  114. def menu | menubar
  115.     sub-menu label '?'
  116. rule
  117. .
  118. [dob |m constructs.do block]
  119. do:
  120.     |
  121. end.
  122. [doeul |m constructs.do on error]
  123. do on error undo, leave:
  124.     |
  125. end.
  126. [dofo |m constructs.do for]
  127. do for |:
  128.     
  129. end.    
  130. [doi |m constructs.do i = 1 to...]
  131. do i = 1 to |:
  132.     
  133. end.  /* 1..? */
  134. [dosb |m constructs.do-on-stop block]
  135. do on stop undo, leave:
  136.     |
  137. end.
  138. [dowf |m constructs.do with frame]
  139. do with frame {&FRAME-NAME}:
  140.     |
  141. end.
  142. [dowh |m constructs.do while]
  143. do while (|):
  144.     
  145. end.
  146. [dptp |m constructs.delete this proc]
  147. delete procedure this-procedure.|
  148. [drc |b gui.def rectangle]
  149. def rectangle | edge-pixels ? size by no-fill.    
  150. [dsm |b gui.def sub-menu]
  151. def sub-menu |
  152.     menu-item label '?'
  153. rule
  154. .    
  155. [dst |g Definitions.stream]
  156. def stream |.    
  157. [dvch |g Definitions.char variable]
  158. def var | as char no-undo.    
  159. [dvdc |g Definitions.dec variable]
  160. def var | as dec  no-undo.    
  161. [dvdt |g Definitions.date variable]
  162. def var da| as date no-undo.    
  163. [dvhn |g Definitions.handle variable]
  164. def var h| as handle no-undo.
  165. [dvin |g Definitions.int variable]
  166. def var i| as int no-undo.
  167. [dvlg |g Definitions.log variable]
  168. def var l| as log no-undo.    
  169. [dvlk |g Definitions.'like' variable]
  170. def var | like xxx no-undo.    
  171. [dvmp |g Definitions.memptr variable]
  172. def var m| as memptr no-undo.
  173. [dvri |g Definitions.rowid variable]
  174. def var r| as rowid no-undo.
  175. [dvwh |g Definitions.widget variable]
  176. def var | as widget no-undo.
  177. [dpb |g Definitions.buffer parameter]
  178. def param buffer | for .
  179. [dqu |g Definitions.query]
  180. def query q-| for .    
  181. [elb |m constructs.else do]
  182. else do:
  183.  | 
  184. end.  /* else */    
  185. [elib |m constructs.else if do]
  186. else if | do:
  187. end.
  188. [ena |n enable]
  189. enable | .
  190. [endb |n enblock]
  191. end.  /* | */
  192. [ers |n error-stat]
  193. error-status:|
  194. [exl |g io.exclusive lock]
  195. exclusive-lock|
  196. [feb |m constructs.for each]
  197. for each |:
  198.     
  199. end.  /* for each */
  200. [ffb |m constructs.for first]
  201. for first | fields ()
  202.     where 
  203.     no-lock:
  204.     
  205. end.  /* for first */
  206. [fgc |b gui.fgcolor]
  207. fgcolor |
  208. [fmt |n format]
  209. format '|'
  210. [frm |m constructs.form with frame]
  211. form
  212.     
  213. with frame |
  214.     
  215. .
  216. [func |n     constructs.function]
  217. function | returns character
  218.     (   ):
  219.     
  220. return ?.
  221.  
  222. end function. /* ? */
  223. [hec |b gui.height chars]
  224. height-chars |
  225. [hep |b gui.height pixels]
  226. height-pixels |
  227. [ifb |m constructs.if... block]
  228. if | then do:
  229.  
  230. end.  /* if */
  231. [ifeb |m constructs.if...else block]
  232. if | then do:
  233.  
  234. end.  /* if */
  235. else do:
  236.  
  237. end.  /* else */
  238. [ifa |m constructs.if available()]
  239. if available(|) then do:
  240. end.  /* if available */
  241. [iopch |g Definitions.char i-o parameter]
  242. def input-output param c| as char  no-undo.    
  243. [iopdc |g Definitions.dec i-o parameter]
  244. def input-output param d| as dec no-undo.    
  245. [iopdt |g Definitions.date i-o parameter]
  246. def input-output param da| as date no-undo.    
  247. [iophn |g Definitions.handle i-o parameter]
  248. def input-output param h| as handle  no-undo.
  249. [iopin |g Definitions.int i-o parameter]
  250. def input-output param i| as int no-undo.
  251. [ioplg |g Definitions.log i-o parameter]
  252. def input-output param l| as log no-undo.
  253. [iopmp |g Definitions.memptr i-o parameter]
  254. def input-output param m| as memptr no-undo.
  255. [iopri |g Definitions.rowid i-o parameter]
  256. def input-output param r| as rowid no-undo.
  257. [iopwh |g Definitions.widget i-o parameter]
  258. def input-output param | as widget  no-undo.
  259. [ioptb |g Definitions.table i-o parameter]
  260. def input-output param table for |.
  261. [ipch |g Definitions.char inp parameter]
  262. def input        param c| as char no-undo.
  263. [ipdc |g Definitions.dec inp parameter]
  264. def input        param d| as dec no-undo.
  265. [ipdt |g Definitions.date inp parameter]
  266. def input        param da| as date no-undo.
  267. [iphn |g Definitions.handle inp parameter]
  268. def input        param h| as handle no-undo.
  269. [ipin |g Definitions.int inp parameter]
  270. def input        param i| as int no-undo.
  271. [iplg |g Definitions.log inp parameter]
  272. def input        param l| as log no-undo.
  273. [ipmp |g Definitions.memptr inp parameter]
  274. def input        param m| as memptr no-undo.
  275. [ipri |g Definitions.rowid inp parameter]
  276. def input        param r| as rowid no-undo.
  277. [iptb |g Definitions.table inp parameter]
  278. def input        param table for |.    
  279. [ipwh |g Definitions.widget inp parameter]]
  280. def input        param | as widget  no-undo.
  281. [kfz |b gui.keep frame]
  282. keep-frame-z-order |
  283. [kme |b gui.keep messages]
  284. keep-messages |
  285. [kto |b gui.keep tab order]
  286. keep-tab-order |
  287. [lab |b gui.label]
  288. label '|'
  289. [mes |n Debug.Message]
  290. message |
  291.     view-as alert-box info button ok.    
  292. [mi  |b gui.menu item]
  293. mi    menu-item | label '?'
  294. [nap |n no-apply]
  295. no-apply |
  296. [nbx |n no-box]
  297. no-box |
  298. [ner |n no-error]
  299. no-error |
  300. [nlb |n no-label]
  301. no-label |
  302. [nls |n no-labels]
  303. no-labels |
  304. [nol |g io.no-lock]
  305. no-lock |
  306. [nwe |g io.no-wait no-error]
  307. no-wait no-error |
  308. [onb |m constructs.on do]
  309. on '|' of 
  310. do:
  311.     return.
  312. end.    
  313. [opch |g Definitions.char out parameter]
  314. def       output param c| as char    no-undo.
  315. [opdc |g Definitions.dec out parameter]
  316. def       output param d| as dec     no-undo.
  317. [opdt |g Definitions.date out parameter]
  318. def       output param da| as date    no-undo.    
  319. [ophn |g Definitions.handle out parameter]
  320. def       output param h| as handle  no-undo.
  321. [opin |g Definitions.int out parameter]
  322. def       output param i| as int     no-undo.
  323. [oplg |g Definitions.log out parameter]
  324. def       output param l| as log     no-undo.
  325. [opmp |g Definitions.memptr out parameter]
  326. def       output param m| as memptr  no-undo.    
  327. [opri |g Definitions.rowid out parameter]
  328. def       output param r| as rowid   no-undo.
  329. [optb |g Definitions.table out parameter]
  330. def       output param table for |.
  331. [opwh |g Definitions.widget out parameter]
  332. def       output param | as widget  no-undo.
  333. [outto |m constructs.Output stream to...]
  334. output stream | to .
  335. output stream  close.
  336. [proc |m constructs.procedure]
  337. procedure |:
  338.   return.
  339. end procedure. /* ? */
  340. [psu |g io.put stream]
  341. put stream | unformatted
  342. skip.
  343. [reb |m constructs.repeat end]    
  344. repeat:
  345.     |
  346. end.
  347. [repo |m constructs.Reposition Browse]
  348. reposition {&BROWSE-NAME} to rowid | no-error.
  349. if not error-status:error then
  350.     {&BROWSE-NAME}:select-focused-row() no-error.
  351. [ret |m constructs.return]
  352. return |.
  353. [rev |m constructs.return value]
  354. return-value |
  355. [rpl |m constructs.replace]
  356. replace (|, , )
  357. [rptb |m constructs.repeat block]
  358. repeat |:
  359.  
  360. end.  /* repeat */
  361. [rsp |b gui.radio-set]
  362. radio-set | vertical horizontal size by radio-buttons
  363.     label, value
  364. [ses |n session:]
  365. session:|
  366. [shl |g io.share lock]
  367. share-lock |
  368. [ski |n skip]
  369. skip (|)
  370. [spa |n space]
  371. space (|)
  372. [sst |n substring]
  373. substr (|, , )
  374. [str |n string]
  375. string (|, )
  376. [stt |n substitute]
  377. substitute (|, , )
  378. [tit |n title]
  379. title '|'
  380. [tpr |m constructs.this procedure]
  381. this-procedure:|    
  382. [tra |g io.transaction]
  383. transaction|
  384. [usi |g io.use index]
  385. use-index |    
  386. [whb |m constructs.when block]
  387. when | then
  388. do:
  389.     /*  */
  390. end.
  391. [whe |m constructs.where]
  392. where (|)
  393. [whi |m constructs.while]
  394. while (|)
  395. [wic |b gui.width chars]
  396. width-chars |
  397. [wif |m constructs.with frame]
  398. with frame |
  399. [wip |b gui.width pixels]
  400. width-pixels |
  401. [dispatch |n ADE.Run Dispatch]
  402. run dispatch in this-procedure ('|':u).    
  403. [setcurs |n ADE.Set Wait State]
  404. run set-cursor in adm-broker-hdl ('|':U).    
  405. [set-attrib |n ADE.Set-Attribute-List]
  406. run Set-Attribute-List in |<handle>
  407.     (input "<Attribute>=<Value>").
  408. [get-attrib |n ADE.Get-Attribute]
  409. run Get-Attribute in \f<handle>
  410.     (input "<Attribute>").
  411.