Tk Source Code

Alexandru reported on clt: When WIndows is in dark mode, the wish title bar does not show-up in dark.

Here is an information page about the issue: https://learn.microsoft.com/en-us/windows/apps/desktop/modernize/ui/apply-windows-themes

Here is a solution by Eric:

proc apply_dark_titlebar {win} {
    update idletasks
    set hwnd [expr {[wm frame $win]}]

    set ps_file  "$::env(TEMP)/dark_titlebar.ps1"
    set vbs_file "$::env(TEMP)/dark_titlebar.vbs"

    set ps_script "\$v = 1
\$hwnd = \[IntPtr\]${hwnd}L
Add-Type @'
using System;
using System.Runtime.InteropServices;
public class DWM {
    \[DllImport(\"dwmapi.dll\")\]
    public static extern int DwmSetWindowAttribute(IntPtr h, int a, ref int v, int s);
}
'@
\[DWM\]::DwmSetWindowAttribute(\$hwnd, 19, \[ref\]\$v, 4)
"
    set fh [open $ps_file w]
    puts $fh $ps_script
    close $fh

    set ps_native [file nativename $ps_file]
    set vbs_script "CreateObject(\"WScript.Shell\").Run \"powershell.exe -ExecutionPolicy Bypass -NonInteractive -WindowStyle Hidden -File \"\"$ps_native\"\"\", 0, True"

    set fh [open $vbs_file w]
    puts $fh $vbs_script
    close $fh

    catch { exec wscript.exe $vbs_file }

    # Force DWM to recompose by withdrawing and re-showing
    wm withdraw $win
    wm deiconify $win
    raise $win
    focus $win
    file delete $ps_file
    file delete $vbs_file
}
if [catch {
    package require awdark
    ::ttk::style theme use awdark
} err_code] {
    puts $err_code
}
wm geom . 405x200+32+32

ttk::frame .f
ttk::button .f.b -text "Apply Dark Title" -command { apply_dark_titlebar . ;after 200 {console show}}
pack .f .f.b -fill x -expand true

It would be great to include this into Tk.

THanks for all, Harald

TIP 750 implements this. Fixed by merge of TIP_750 branch with [92224a0d].

Thanks for all, Harald

Hi Harald.  I think we can close this ticket now.  TIP 750 makes the
title bar dark in dark mode.

Windows top menu color bug info forwarded to ticket [11bd4a03].

So, this is only about the title bar which is an rfe and not a bug

Re menubar background issue: besides the link Harald mentioned, here is a stack overflow question about this subject

https://stackoverflow.com/questions/77985210/how-to-set-menu-bar-color-in-win32

I agree that this is a different bug

Dear Emiliano,

thanks for the extension. It works great!

Here is the nmake makefile:

PROJECT = darkmode
PROJECT_REQUIRES_TK = 1
PRJ_LIBS = dwmapi.lib
!include "rules-ext.vc"
PRJ_OBJS = $(TMP_DIR)\darkmode.obj
!include "targets.vc"
pkgindex: default-pkgindex

The standard cmd.exe console window uses this dark title even in light mode. This makes sense. Dark mode is an appication decission and may vary from Window to Window even in the same application.

The color of the top menu bar is not changed:

tk::unsupported::darkmode [wm frame .] 1
menu .m
menu .m -bg black -fg white
menu .m2 -bg black -fg white
.m add cascade -menu .m2 -label Sub
.m2 add command -label Cmd
. configure -menu .m

But the issue is more, that the configured color is not honored for the top bar, but for all other sub-menus. Here is a post in another project solving this: https://github.com/tauri-apps/muda/issues/97. This may be seen as a different bug.

Thanks for all, Harald

Hi,
the great deal would be that embedded menu of toplevels that are sets to darkmode to be also in darkMode

$topLevel configure -menu $myMenu 


++
nicolas

% ::tk::unsupported::darkmode [wm frame $toplevel] $boolean

wm attributes $toplevel -darkmode $boolean