C-- basic Collections support (lib/collection.h)

git-svn-id: svn://kolibrios.org@5959 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/cmm/examples/example.c

@@ -0,0 +1,46 @@
+#define MEMSIZE 0x3E80
+
+#include "../lib/io.h"
+
+void main()
+{   
+	int id, key, i;
+	dword file;
+	io.dir.load(0,DIR_ONLYREAL);
+	loop()
+   {
+      switch(WaitEvent())
+      {
+         case evButton:
+            id=GetButtonID();               
+            if (id==1) ExitProcess();
+			break;
+      
+        case evKey:
+			key = GetKey();
+			if (key==013){ //Enter
+				draw_window();
+				
+			}
+			break;
+         
+         case evReDraw:
+			draw_window();
+			break;
+      }
+   }
+}
+void draw_window()
+{
+	proc_info Form;
+	int i;
+	i=0;
+	DefineAndDrawWindow(215,100,250,200,0x34,0xFFFFFF,"Window header");
+	GetProcessInfo(#Form, SelfInfo);
+	while(i<io.dir.count)
+	{
+		WriteText(5,i*8+3,0x80,0xFF00FF,io.dir.position(i));
+		i++;
+	}
+	WriteText(10,110,0x80,0,#param);
+}