Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

* generic/tkTreeTheme.c: use Get|SetWindowLongPtr to work with

	Win64. Requires latest Windows headers.
  • Loading branch information...
commit 77528a726241e0a6a9a1baf7b5cff6c1ffd3f0b0 1 parent 6aa2695
hobbs2 authored

Showing 2 changed files with 8 additions and 3 deletions. Show diff stats Hide diff stats

  1. +5 0 ChangeLog
  2. +3 3 generic/tkTreeTheme.c
5 ChangeLog
... ... @@ -1,3 +1,8 @@
  1 +2008-02-27 Jeff Hobbs <jeffh@ActiveState.com>
  2 +
  3 + * generic/tkTreeTheme.c: use Get|SetWindowLongPtr to work with
  4 + Win64. Requires latest Windows headers.
  5 +
1 6 2008-02-23 Jeff Hobbs <jeffh@ActiveState.com>
2 7
3 8 * generic/tkTreeTheme.c (DllMain): get module at dll load time to
6 generic/tkTreeTheme.c
@@ -5,7 +5,7 @@
5 5 *
6 6 * Copyright (c) 2006-2008 Tim Baker
7 7 *
8   - * RCS: @(#) $Id: tkTreeTheme.c,v 1.24 2008/02/23 22:16:53 hobbs2 Exp $
  8 + * RCS: @(#) $Id: tkTreeTheme.c,v 1.25 2008/02/28 00:25:07 hobbs2 Exp $
9 9 */
10 10
11 11 #if defined(WIN32) || defined(_WIN32)
@@ -755,7 +755,7 @@ TreeTheme_Relayout(
755 755 static LRESULT WINAPI
756 756 WndProc(HWND hwnd, UINT msg, WPARAM wp, LPARAM lp)
757 757 {
758   - Tcl_Interp *interp = (Tcl_Interp *)GetWindowLong(hwnd, GWL_USERDATA);
  758 + Tcl_Interp *interp = (Tcl_Interp *)GetWindowLongPtr(hwnd, GWLP_USERDATA);
759 759
760 760 switch (msg) {
761 761 case WM_THEMECHANGED:
@@ -805,7 +805,7 @@ CreateThemeMonitorWindow(HINSTANCE hinst, Tcl_Interp *interp)
805 805 if (!hwnd)
806 806 return NULL;
807 807
808   - SetWindowLong(hwnd, GWL_USERDATA, (LONG)interp);
  808 + SetWindowLongPtr(hwnd, GWLP_USERDATA, (LONG)interp);
809 809 ShowWindow(hwnd, SW_HIDE);
810 810 UpdateWindow(hwnd);
811 811

0 comments on commit 77528a7

Please sign in to comment.
Something went wrong with that request. Please try again.