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