File 0863-werl-style-fixes.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0863-werl-style-fixes.patch of Package erlang (Revision 3aaa84d7d540d57752db68644dc4a4df)

Currently displaying revision 3aaa84d7d540d57752db68644dc4a4df , Show latest

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

Places

File 0863-werl-style-fixes.patch of Package erlang (Revision 3aaa84d7d540d57752db68644dc4a4df)

Places