Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:19
erlang
0863-werl-style-fixes.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0863-werl-style-fixes.patch of Package erlang
From 1510bb6dc60cbfbc2fa4f6074e0385bfe1c2a197 Mon Sep 17 00:00:00 2001 From: Dan Gudmundsson <dgud@erlang.org> Date: Wed, 19 Feb 2020 13:32:31 +0100 Subject: [PATCH 3/3] werl: style fixes Use a better default font there exists better looking AA fonts. Remove border so 90'ish. Don't default display toolbar, not adding much functionality and takes space. --- erts/emulator/drivers/win32/win_con.c | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/erts/emulator/drivers/win32/win_con.c b/erts/emulator/drivers/win32/win_con.c index eeb48aac57..de5701d2f3 100644 --- a/erts/emulator/drivers/win32/win_con.c +++ b/erts/emulator/drivers/win32/win_con.c @@ -568,7 +568,7 @@ FrameWndProc(HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM lParam) case WM_CREATE: /* client window creation */ window_title(&title); - hClientWnd = CreateWindowEx(WS_EX_CLIENTEDGE, szClientClass, title.name, + hClientWnd = CreateWindowEx(0, szClientClass, title.name, WS_CHILD|WS_VISIBLE|WS_VSCROLL|WS_HSCROLL, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, @@ -1332,13 +1332,21 @@ LoadUserPreferences(void) DWORD size; DWORD res; DWORD type; - + HFONT hfont; /* default prefs */ - GetObject(GetStockObject(SYSTEM_FIXED_FONT),sizeof(LOGFONT),(PSTR)&logfont); + hfont = CreateFont(0,0, 0,0, 0, FALSE,FALSE,FALSE, + ANSI_CHARSET, OUT_TT_ONLY_PRECIS, CLIP_DEFAULT_PRECIS, + CLEARTYPE_QUALITY, FIXED_PITCH, TEXT("Consolas")); + if(hfont) { + GetObject(hfont, sizeof(LOGFONT), (PSTR)&logfont); + DeleteObject(hfont); + } else { + GetObject(GetStockObject(SYSTEM_FIXED_FONT),sizeof(LOGFONT),(PSTR)&logfont); + } fgColor = GetSysColor(COLOR_WINDOWTEXT); bkgColor = GetSysColor(COLOR_WINDOW); winPos.left = -1; - toolbarVisible = TRUE; + toolbarVisible = FALSE; if (RegCreateKeyEx(HKEY_CURRENT_USER, USER_KEY, 0, 0, REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, NULL, -- 2.16.4
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor