FEAT: Native request-color function on Windows

Author: Oldes

make/rebol3.nest

@@ -883,6 +883,7 @@ include-png-filter-native: [
 include-view: [
 	; currently only on Windows!
 	host-files: :host-files-view
+	core-files: %core/n-request-color.c
 	#if Windows? [
 		define: REB_VIEW
 		:include-image-os-codec

src/core/n-request-color.c

@@ -0,0 +1,62 @@
+/***********************************************************************
+**
+**  REBOL [R3] Language Interpreter and Run-time Environment
+**
+**  Copyright 2012 REBOL Technologies
+**  Copyright 2026 Rebol Open Source Developers
+**  REBOL is a trademark of REBOL Technologies
+**
+**  Licensed under the Apache License, Version 2.0 (the "License");
+**  you may not use this file except in compliance with the License.
+**  You may obtain a copy of the License at
+**
+**  http://www.apache.org/licenses/LICENSE-2.0
+**
+**  Unless required by applicable law or agreed to in writing, software
+**  distributed under the License is distributed on an "AS IS" BASIS,
+**  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+**  See the License for the specific language governing permissions and
+**  limitations under the License.
+**
+************************************************************************
+**
+**  Module:  n-request-color.c
+**  Summary: native request-color function
+**  Section: natives
+**  Author:  Oldes
+**	Notes:
+**		So fat it is used only on Windows. On macOS it's implementented
+**		as Rebol mezzanine function in file mezz-osx-dialogs.reb
+***********************************************************************/
+
+#include "sys-core.h"
+
+/***********************************************************************
+**
+*/	REBNATIVE(request_color)
+/*
+//	request-color: native [
+//		{Asks user to select a color.}
+//		/default  "Default RGB color"
+//		 color    [tuple!]
+//	]
+//
+***********************************************************************/
+{
+#ifdef TO_WINDOWS
+	static REBYTE color[4];
+	if (D_REF(1)) {
+		COPY_MEM(color, VAL_TUPLE(D_ARG(2)), 4);
+	}
+	if (OS_Request_Color((REBCNT*)&color)) {
+		VAL_SET(DS_RETURN, REB_TUPLE);
+		VAL_TUPLE_LEN(DS_RETURN) = 3;
+		COPY_MEM(VAL_TUPLE(DS_RETURN), &color, 4);
+		return R_RET;
+	}
+	else return R_NONE;
+#else
+	Trap0(RE_FEATURE_NA);
+	return R_NONE;
+#endif
+}

src/os/win32/host-lib.c

@@ -1461,6 +1461,31 @@ static INT CALLBACK BrowseCallbackProc(HWND hwnd, UINT uMsg, LPARAM lParam, LPAR
 }
 
 
+/***********************************************************************
+**
+*/	OS_API REBOOL OS_Request_Color(REBCNT* color)
+/*
+***********************************************************************/
+{
+	// Static so custom colors persist across calls
+	static COLORREF customColors[16] = { 0 };
+
+	CHOOSECOLOR cc;
+	ZeroMemory(&cc, sizeof(cc));
+	cc.lStructSize = sizeof(cc);
+	//cc.hwndOwner = owner;
+	cc.rgbResult = (COLORREF)*color;
+	cc.lpCustColors = customColors;
+	cc.Flags = CC_FULLOPEN | CC_RGBINIT;  // start expanded, use rgbResult as initial
+
+	if (ChooseColor(&cc)) {
+		*color = cc.rgbResult; // in format: 00bbggrr
+		return TRUE;          
+	}
+	return FALSE;
+}
+
+
 /***********************************************************************
 **
 */	OS_API void OS_Request_Password(REBREQ *req)