Fix 2 (minor) compiler warnings on Windows

tcltk · Jan 2, 2024 · ef36690 · ef36690
1 parent fb90e61
commit ef36690
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/win/ttkWinTheme.c b/win/ttkWinTheme.c
@@ -798,7 +798,7 @@ static void TabElementDraw(
     }
 }
 
-static const Ttk_ElementSpec TabElementSpec = {
+static Ttk_ElementSpec TabElementSpec = {
     TK_STYLE_VERSION_2,
     sizeof(TabElement),
     TabElementOptions,

diff --git a/win/ttkWinXPTheme.c b/win/ttkWinXPTheme.c
@@ -770,6 +770,7 @@ static void TabElementDraw(
     int partId = elementData->info->partId;
     int isSelected = (state & TTK_STATE_SELECTED);
     int stateId = Ttk_StateTableLookup(elementData->info->statemap, state);
+    RECT rc = BoxToRect(b);
 
     if (mainInfoPtr != NULL) {
 	nbTabsStickBit = (Ttk_PositionSpec) mainInfoPtr->ttkNbTabsStickBit;
@@ -793,7 +794,7 @@ static void TabElementDraw(
 	    break;
     }
 
-    RECT rc = BoxToRect(b);
+    rc = BoxToRect(b);
 
     if (!InitElementData(elementData, tkwin, d))
 	return;