From f206a9c2b1ae1d8727ca27a96d448b61fdb4c766 Mon Sep 17 00:00:00 2001
From: fpc <fpc@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Mon, 16 May 2005 18:37:41 +0000
Subject: initial import

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 tests/tbs/tb0311.pp | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 tests/tbs/tb0311.pp

(limited to 'tests/tbs/tb0311.pp')

diff --git a/tests/tbs/tb0311.pp b/tests/tbs/tb0311.pp
new file mode 100644
index 0000000000..7aec067fc1
--- /dev/null
+++ b/tests/tbs/tb0311.pp
@@ -0,0 +1,37 @@
+{ problem of conversion between
+  smallsets and long sets }
+type
+
+{ Command sets }
+
+  PCommandSet = ^TCommandSet;
+  TCommandSet = set of Byte;
+
+Const
+  cmValid   = 0;
+  cmQuit    = 1;
+  cmError   = 2;
+  cmMenu    = 3;
+  cmClose   = 4;
+  cmZoom    = 5;
+  cmResize  = 6;
+  cmNext    = 7;
+  cmPrev    = 8;
+  cmHelp    = 9;
+
+{ Application command codes }
+
+  cmCut     = 20;
+  cmCopy    = 21;
+  cmPaste   = 22;
+  cmUndo    = 23;
+  cmClear   = 24;
+  cmTile    = 25;
+  cmCascade = 26;
+
+  CurCommandSet: TCommandSet =
+    [0..255] - [cmZoom, cmClose, cmResize, cmNext, cmPrev];
+
+
+  begin
+  end.
-- 
cgit v1.2.1