← Back to branch summary

~brian-sidebotham/wxwidgets-cmake/wxpython-2.9.4

« back to all changes in this revision

Viewing changes to wxPython/wx/tools/Editra/tests/syntax/flagship.prg

  • Committer: Brian Sidebotham
  • Date: 2013-08-03 14:30:08 UTC
  • Revision ID: brian.sidebotham@gmail.com-20130803143008-c7806tkych1tp6fc
Initial import into Bazaar

Show diffs side-by-side

added added

removed removed

Lines of Context:
wxPython/wx/tools/Editra/tests/syntax/flagship.prg
 
1
// Syntax Highlighting test file for Flagship/XBase programming languages
 
2
// Some comments about this file
 
3
/* A multline comment about some stuff in this
 
4
 * file.
 
5
 */
 
6
 
 
7
// Hello World in Clipper
 
8
? "Hello World!"
 
9
 
 
10
 
 
11
USE address ALIAS adr SHARED NEW
 
12
SET COLOR TO "W+/B,GR+/R,W/B,W/B,GR+/BG"
 
13
cls
 
14
@  1, 0 SAY "Id No. " GET adr->IdNum   PICT "999999" VALID IdNum > 0
 
15
@  3, 0 SAY "Company" GET adr->Company
 
16
@  3,35 SAY "Branch"  GET adr->Branch  WHEN  !empty(adr->Company)
 
17
@  4, 0 SAY "Name   " GET adr->Name    VALID !empty(adr->Name)
 
18
@  4,35 SAY "First "  GET adr->First
 
19
@  6, 0 SAY "Country" GET adr->Country PICTURE "@!"
 
20
@  8, 0 SAY "Zip    " GET adr->Zip     PICT "@!" VALID !empty(adr->Zip)
 
21
@  9, 0 SAY "City   " GET adr->City
 
22
@ 10, 0 SAY "Street " GET adr->Street
 
23
READ