Add OpenEdge ABL lexer

rouge-ruby · Nov 15, 2018 · 2ef6de8 · 2ef6de8 · viitaset · Jun 17, 2019
1 parent e957c74
commit 2ef6de8
Show file tree

Hide file tree

Showing 4 changed files with 480 additions and 0 deletions.
diff --git a/lib/rouge/demos/openedge b/lib/rouge/demos/openedge
@@ -0,0 +1,26 @@
+/*          This .W file was created with the Progress UIB.             */
+
+&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
+
+DEFINE VARIABLE w AS HANDLE NO-UNDO.
+
+CREATE WINDOW w ASSIGN 
+    WIDTH = 50
+    HEIGHT = 5
+    MESSAGE-AREA = FALSE
+    STATUS-AREA = FALSE.   
+
+CURRENT-WINDOW = w.
+
+DEFINE BUTTON btnOK LABEL "OK" SIZE 12 BY 1.2.
+FORM 
+    "Hello World!" VIEW-AS TEXT AT COL 20 ROW 2
+    btnOK AT COL 20 ROW 4
+    WITH FRAME f SIZE 50 BY 5 NO-BOX THREE-D.
+
+VIEW FRAME f.
+ENABLE btnOK WITH FRAME f.
+WAIT-FOR "CHOOSE" OF btnOK.
+DELETE OBJECT w.
+
+&ANALYZE-RESUME