projects/dwt-win: dwt/internal/win32/OS.d comparison

comparison dwt/internal/win32/OS.d @ 91:b5c6e5033649

debug

author	Frank Benoit <benoit@tionex.de>
date	Wed, 06 Feb 2008 23:12:32 +0100
parents	be0b130bb29a
children	3b6217fd97e9

comparison

equal deleted inserted replaced

-:be0b130bb29a
+:b5c6e5033649
 import dwt.internal.Library;
 import tango.sys.SharedLib : SharedLib;
 import tango.util.log.Trace;
 static import tango.stdc.stdlib;
+void trace(int line ){
+Trace.formatln( "OS {}", line );
+}
 // declare of Callback functions
 extern (Windows)
 {
 alias int function() Function0;
 //IsWinCE = (info.dwPlatformId is VER_PLATFORM_WIN32_CE);
 //PORTING_CHANGE: made by version
 //IsSP  = IsSP();
 //PORTING_CHANGE: made by version
 //IsPPC = IsPPC();
+trace(__LINE__);
 version(WinCE) {
 IsHPC = IsWinCE && !IsPPC && !IsSP;
 }
 WIN32_MAJOR = info.dwMajorVersion;
 WIN32_MINOR = info.dwMinorVersion;
 WIN32_VERSION = VERSION (WIN32_MAJOR, WIN32_MINOR);
+trace(__LINE__);
 // when to load uxtheme
 if (!OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (5, 1)) {
 loadLib( Symbols_UxTheme, `UxTheme.dll` );
 }
 if (OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (5, 1)) {
 loadLib( Symbols_CoreImm, `Coreimm.dll` );
 }
-if (OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (6, 0)) {
+if (!OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (6, 0)) {
 loadLib( Symbols_User32, `User32.dll` );
 }
-if (OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (5, 1)) {
+if (!OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (5, 1)) {
 loadLib( Symbols_Imm32, `Imm32.dll` );
 }
-if (OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (5, 1)) {
+if (!OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (5, 1)) {
 loadLib( Symbols_Kernel32, `Kernel32.dll` );
 }
+trace(__LINE__);
 //PORTING_CHANGE: made by version
 //IsUnicode = !IsWin32s && !IsWin95;
 /* Load the manifest to force the XP Theme */
 //if (System.getProperty (NO_MANIFEST) is null) {
 if (!OS.IsWinCE && OS.WIN32_VERSION >= OS.VERSION (5, 1)) {
+trace(__LINE__);
 TCHAR[] buffer = new TCHAR[ MAX_PATH ];
 HANDLE hModule = OS.GetLibraryHandle ();
 while (OS.GetModuleFileName (hModule, buffer.ptr, buffer.length ) is buffer.length ) {
 buffer.length = buffer.length + MAX_PATH;
 }
 auto hHeap = OS.GetProcessHeap ();
 int byteCount = buffer.length * TCHAR.sizeof;
 TCHAR* pszText = cast(TCHAR*) OS.HeapAlloc (hHeap, HEAP_ZERO_MEMORY, byteCount);
 OS.MoveMemory (pszText, buffer.ptr, byteCount);
+trace(__LINE__);
 ACTCTX pActCtx;
 pActCtx.cbSize = ACTCTX.sizeof;
 pActCtx.dwFlags = ACTCTX_FLAG_RESOURCE_NAME_VALID | ACTCTX_FLAG_SET_PROCESS_DEFAULT;
 pActCtx.lpSource = pszText;
 pActCtx.lpResourceName = cast(TCHAR*)MANIFEST_RESOURCE_ID;
+trace(__LINE__);
+Trace.formatln( "is loaded {}", ( OS.CreateActCtx !is null ));
 HANDLE hActCtx = OS.CreateActCtx (&pActCtx);
+trace(__LINE__);
 if (pszText !is null) OS.HeapFree (hHeap, 0, pszText);
 uint lpCookie;
 OS.ActivateActCtx (hActCtx, &lpCookie);
+trace(__LINE__);
 /*
 * NOTE:  A single activation context is created and activated
 * for the entire lifetime of the program.  It is deactivated
 * and released by Windows when the program exits.
 */
 /* Get the DBCS flag */
 BOOL dbcsEnabled = OS.GetSystemMetrics (SM_DBCSENABLED) !is 0;
 BOOL immEnabled = OS.GetSystemMetrics (SM_IMMENABLED) !is 0;
 IsDBLocale = dbcsEnabled || immEnabled;
+trace(__LINE__);
 /*
 * Bug in Windows.  On Korean Windows XP when the Text
 * Services Framework support for legacy applications
 * is enabled, certain legacy calls segment fault.
 * Note: The bug is fixed in Service Pack 2.
 */
 if (!OS.IsWinCE && OS.WIN32_VERSION is OS.VERSION (5, 1)) {
 short langID = OS.GetSystemDefaultUILanguage ();
 short primaryLang = OS.PRIMARYLANGID (langID);
+trace(__LINE__);
 if (primaryLang is LANG_KOREAN) {
 OSVERSIONINFOEX infoex;
 infoex.dwOSVersionInfoSize = OSVERSIONINFOEX.sizeof;
 GetVersionEx (cast(OSVERSIONINFO*) &infoex );
 if (infoex.wServicePackMajor < 2) {
+trace(__LINE__);
 OS.ImmDisableTextFrameService (0);
 }
 }
 }
+trace(__LINE__);
 /* Get the COMCTL32.DLL version */
 DLLVERSIONINFO dvi;
 dvi.cbSize = DLLVERSIONINFO.sizeof;
 dvi.dwMajorVersion = 4;
 //TCHAR lpLibFileName = new TCHAR (0, "comctl32.dll", true); //$NON-NLS-1$
 //int /*long*/ hModule = OS.LoadLibrary (lpLibFileName);
 if (auto lib = SharedLib.load( `comctl32.dll`) ) {
 char[] name = "DllGetVersion\0"; //$NON-NLS-1$
 void* DllGetVersion = lib.getSymbol(name.ptr);
+trace(__LINE__);
 if (DllGetVersion !is null){
 alias extern(Windows) void function(DLLVERSIONINFO*) TDllVersion;
 TDllVersion f = cast( TDllVersion )DllGetVersion;
+trace(__LINE__);
 f(&dvi);
 }
+trace(__LINE__);
 lib.unload();
 }
+trace(__LINE__);
 COMCTL32_MAJOR = dvi.dwMajorVersion;
 COMCTL32_MINOR = dvi.dwMinorVersion;
 COMCTL32_VERSION = VERSION (COMCTL32_MAJOR, COMCTL32_MINOR);
 /* Get the Shell32.DLL version */
 dvi = DLLVERSIONINFO.init;
 dvi.cbSize = DLLVERSIONINFO.sizeof;
 dvi.dwMajorVersion = 4;
 //TCHAR lpLibFileName = new TCHAR (0, "Shell32.dll", true); //$NON-NLS-1$
 //int /*long*/ hModule = OS.LoadLibrary (lpLibFileName);
+trace(__LINE__);
 if ( auto lib = SharedLib.load( `Shell32.dll`)) {
 char[] name = "DllGetVersion\0"; //$NON-NLS-1$
 void* DllGetVersion = lib.getSymbol(name.ptr);
+trace(__LINE__);
 if (DllGetVersion !is null){
 alias extern(Windows) void function(DLLVERSIONINFO*) TDllVersion;
 TDllVersion f = cast( TDllVersion )DllGetVersion;
+trace(__LINE__);
 f(&dvi);
 }
+trace(__LINE__);
 lib.unload();
 }
 SHELL32_MAJOR = dvi.dwMajorVersion;
 SHELL32_MINOR = dvi.dwMinorVersion;
 SHELL32_VERSION = VERSION (SHELL32_MAJOR, SHELL32_MINOR);
+trace(__LINE__);
 }
 /* Flag used on WinCE */
 static const int SYS_COLOR_INDEX_FLAG = OS.IsWinCE ? 0x40000000 : 0x0;

Mercurial > projects > dwt-win

comparison dwt/internal/win32/OS.d @ 91:b5c6e5033649