Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 6808 → Rev 6887

/programs/cmm/lib/date.h
1,7 → 1,6
//IO library
#ifndef INCLUDE_DATE_H
#define INCLUDE_DATE_H
#print "[include <date.h>]\n"
 
#ifndef INCLUDE_STRING_H
#include "../lib/strings.h"
/programs/cmm/lib/debug.h
1,6 → 1,5
#ifndef INCLUDE_DEBUG_H
#define INCLUDE_DEBUG_H
#print "[include <debug.h>]\n"
 
#ifndef INCLUDE_STRING_H
#include "../lib/strings.h"
/programs/cmm/lib/gui.h
1,6 → 1,5
#ifndef INCLUDE_GUI_H
#define INCLUDE_GUI_H
#print "[include <gui.h>]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/io.h
22,7 → 22,6
 
#ifndef INCLUDE_IO_H
#define INCLUDE_IO_H
#print "[include <io.h>]\n"
 
#ifndef INCLUDE_DATE_H
#include "../lib/date.h"
/programs/cmm/lib/keyboard.h
1,6 → 1,5
#ifndef INCLUDE_KEYBOARD_H
#define INCLUDE_KEYBOARD_H
#print "[include <keyboard.h>]\n"
 
//ASCII KEYS
#define ASCII_KEY_BS 008
/programs/cmm/lib/kolibri.h
2,7 → 2,6
 
#ifndef INCLUDE_KOLIBRI_H
#define INCLUDE_KOLIBRI_H
#print "[include <kolibri.h>]\n"
 
#pragma option OST
#pragma option ON
/programs/cmm/lib/lexer.h
1,6 → 1,5
#ifndef INCLUDE_LEXER_H
#define INCLUDE_LEXER_H
#print "[include <lexer.h>]\n"
 
#ifndef INCLUDE_STRING_H
#include "../lib/strings.h"
/programs/cmm/lib/list_box.h
1,7 → 1,6
//list_box
#ifndef INCLUDE_LIST_BOX_H
#define INCLUDE_LIST_BOX_H
#print "[include <list_box.h>]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/mem.h
1,6 → 1,5
#ifndef INCLUDE_MEM_H
#define INCLUDE_MEM_H
#print "[include <mem.h>]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/mouse.h
1,6 → 1,5
#ifndef INCLUDE_MOUSE_H
#define INCLUDE_MOUSE_H
#print "[include <mouse.h>]\n"
 
//Button MOUSE
#define MOUSE_LEFT 001b
/programs/cmm/lib/obj/box_lib.h
1,7 → 1,6
//BOX_LIB - Asper
#ifndef INCLUDE_BOX_LIB_H
#define INCLUDE_BOX_LIB_H
#print "[include <obj/box_lib.h>]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/obj/console.h
1,6 → 1,5
#ifndef INCLUDE_CONSOLE_H
#define INCLUDE_CONSOLE_H
#print "[include <obj/console.h]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/obj/http.h
1,6 → 1,5
#ifndef INCLUDE_LIBHTTP_H
#define INCLUDE_LIBHTTP_H
#print "[include <obj/http.h]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/obj/iconv.h
1,7 → 1,6
//convert text characters
#ifndef INCLUDE_LIBICONV_H
#define INCLUDE_LIBICONV_H
#print "[include <obj/iconv.h>]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/obj/libimg_lib.h
1,7 → 1,6
//Asper
#ifndef INCLUDE_LIBIMG_H
#define INCLUDE_LIBIMG_H
#print "[include <obj/libimg_lib.h>]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/obj/libini.h
1,6 → 1,5
#ifndef INCLUDE_LIBINI_H
#define INCLUDE_LIBINI_H
#print "[include <obj/libini.h>]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/obj/libio_lib.h
1,7 → 1,6
//Asper
#ifndef INCLUDE_LIBIO_H
#define INCLUDE_LIBIO_H
#print "[include <obj/libio_lib.h>]\n"
 
#ifndef INCLUDE_KOLIBRI_H
#include "../lib/kolibri.h"
/programs/cmm/lib/patterns/rgb.h
1,6 → 1,5
#ifndef INCLUDE_RGB_H
#define INCLUDE_RGB_H
#print "[include <rgb.h>]\n"
 
:struct _rgb
{
/programs/cmm/lib/strings.h
1,6 → 1,5
#ifndef INCLUDE_STRING_H
#define INCLUDE_STRING_H
#print "[include <strings.h>]\n"
 
#ifndef INCLUDE_MEM_H
#include "../lib/mem.h"
/programs/cmm/lib/system.h
1,6 → 1,5
#ifndef INCLUDE_SYSTEM_H
#define INCLUDE_SYSTEM_H
#print "[include <system.h>]\n"
 
:struct COLORS {
dword
/programs/cmm/lib/window.h
0,0 → 1,49
#ifndef INCLUDE_WINDOW_H
#define INCLUDE_WINDOW_H
#include "../lib/gui.h"
 
 
#define WINDOW_NORMAL 0x34
:struct window
{
void create();
dword left,top,width,height;
dword caption,type,background;
dword onbutton,onkey,ondraw;
proc_info Form;
};
 
void window::create()
{
word id=0;
IF(!caption)caption = "Window";
IF(!width)width=350;
IF(!height)height=300;
IF(!type)type = WINDOW_NORMAL;
IF(!background)background = 0xDED7CE;
loop() switch(WaitEvent())
{
case evButton:
id=GetButtonID();
IF(onbutton)onbutton(id);
IF (id==1) ExitProcess();
break;
case evKey:
GetKeys();
IF(onkey)onbutton(key_scancode);
//if (key_scancode == SCAN_CODE_ESC ) ExitProcess();
break;
case evReDraw:
GetProcessInfo(#Form, SelfInfo);
DefineAndDrawWindow(left,top,width,height,type,background,caption,0);
IF(ondraw)ondraw();
break;
}
}
 
#endif