From fa80458d800d2059844e4095a882cd4358e7fc5c Mon Sep 17 00:00:00 2001
From: Ahmed Nematallah <ahmed_nematallah@hotmail.com>
Date: Sat, 2 May 2026 22:50:25 +0200
Subject: [PATCH] Ensure layer name compatibility in wrapper.tcl

Added check for 'none' layer name to ensure backwards compatibility.
---
 tcltk/wrapper.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tcltk/wrapper.tcl b/tcltk/wrapper.tcl
index 1cae6d5b..7ee3ec98 100644
--- a/tcltk/wrapper.tcl
+++ b/tcltk/wrapper.tcl
@@ -728,7 +728,9 @@ proc magic::toolupdate {win {yesno "yes"} {layerlist ""}} {
    # Don't do anything if toolbar is not present
    if { $Winopts(${topname},toolbar) == 0 } { return }
 
-   if {$layerlist == ""} {
+   # To ensure backwards compatibility, we check if the 
+   # layer is called none, so avoid naming a layer none.
+   if {$layerlist == "" || $layerlist == "none"} {
 	set layerlist $yesno
 	set yesno "yes"
    }