00001 /*-----------------------------------------------------------------------------------*/ 00002 /* INRIA 2005 */ 00003 /* Allan CORNET */ 00004 /*-----------------------------------------------------------------------------------*/ 00005 #include "TextWindows.h" 00006 #include "win_mem_alloc.h" /* MALLOC */ 00007 /*-----------------------------------------------------------------------------------*/ 00008 TW textwin; 00009 /*-----------------------------------------------------------------------------------*/ 00010 LPTW GetTextWinScilab(void) 00011 { 00012 return &textwin; 00013 } 00014 /*-----------------------------------------------------------------------------------*/ 00015 TW InitTWStruct(void) 00016 { 00017 TW TWStruct; 00018 00019 TWStruct.lpr=NULL; 00020 TWStruct.hInstance=NULL; 00021 TWStruct.hPrevInstance=NULL; 00022 TWStruct.Title=NULL; 00023 TWStruct.lpmw=NULL; 00024 00025 TWStruct.ScreenSize.x=0; 00026 TWStruct.ScreenSize.y=0; 00027 00028 TWStruct.KeyBufSize=0; 00029 TWStruct.nCmdShow=0; 00030 TWStruct.hIcon=NULL; 00031 TWStruct.hPopMenu=NULL; 00032 TWStruct.hWndText=NULL; 00033 TWStruct.hWndParent=NULL; 00034 00035 TWStruct.Origin.x=0; 00036 TWStruct.Origin.y=0; 00037 00038 TWStruct.Size.x=0; 00039 TWStruct.Size.y=0; 00040 00041 TWStruct.ScreenBuffer=NULL; 00042 TWStruct.AttrBuffer=NULL; 00043 TWStruct.KeyBuf=NULL; 00044 TWStruct.KeyBufIn=NULL; 00045 TWStruct.KeyBufOut=NULL; 00046 TWStruct.Attr=0; 00047 TWStruct.bFocus=FALSE; 00048 TWStruct.bGetCh=FALSE; 00049 TWStruct.bSysColors=FALSE; 00050 TWStruct.hbrBackground=NULL; 00051 wsprintf(TWStruct.fontname,"Lucida Console"); 00052 TWStruct.fontsize=11; 00053 TWStruct.hfont=NULL; 00054 TWStruct.CharAscent=0; 00055 TWStruct.ButtonHeight=0; 00056 TWStruct.CaretHeight=0; 00057 TWStruct.CursorFlag=0; 00058 00059 TWStruct.CursorPos.x=0; 00060 TWStruct.CursorPos.y=0; 00061 00062 TWStruct.ClientSize.x=0; 00063 TWStruct.ClientSize.y=0; 00064 00065 TWStruct.CharSize.x=0; 00066 TWStruct.CharSize.y=0; 00067 00068 TWStruct.ScrollPos.x=0; 00069 TWStruct.ScrollPos.y=0; 00070 00071 TWStruct.ScrollMax.x=0; 00072 TWStruct.ScrollMax.y=0; 00073 00074 TWStruct.MarkBegin.x=0; 00075 TWStruct.MarkBegin.y=0; 00076 00077 TWStruct.MarkEnd.x=0; 00078 TWStruct.MarkEnd.y=0; 00079 00080 TWStruct.Marking=FALSE; 00081 00082 return TWStruct; 00083 } 00084 /*-----------------------------------------------------------------------------------*/ 00085
1.5.1