From ae1710479c471dee890d751cfcd584b70b6ca86d Mon Sep 17 00:00:00 2001 From: layer <layer> Date: Thu, 31 Jul 2008 23:05:20 +0000 Subject: [PATCH] 2008-07-31 <layer@HOBART> --- ChangeLog.n | 9 ++++++++- aclpc/acl-frames.lisp | 4 ++-- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ChangeLog.n b/ChangeLog.n index 0f2a5e2c..42bb2674 100644 --- a/ChangeLog.n +++ b/ChangeLog.n @@ -1,3 +1,10 @@ +2008-07-31 <layer@HOBART> + + * aclpc/acl-frames.lisp (initialize-tooltips): bug18026: use + string-to-native on string in CreateWindow call because it + will fail in an i18n image otherwise, causing a warning that + annoys users. + ******************************************************************************* join from trunk_afuchs3 to trunk changes from: @@ -6335,4 +6342,4 @@ IGNORE JDI SPECIFIC CHANGES TO Makefile Lots of other stuff ******************************************************************************* -$Revision: 2.43 $ +$Revision: 2.44 $ diff --git a/aclpc/acl-frames.lisp b/aclpc/acl-frames.lisp index be2f8b6c..2461ab90 100644 --- a/aclpc/acl-frames.lisp +++ b/aclpc/acl-frames.lisp @@ -17,7 +17,7 @@ ;; Commercial Software developed at private expense as specified in ;; DOD FAR Supplement 52.227-7013 (c) (1) (ii), as applicable. ;; -;; $Id: acl-frames.lisp,v 2.12 2007/04/25 20:29:26 layer Exp $ +;; $Id: acl-frames.lisp,v 2.13 2008/07/31 23:05:20 layer Exp $ #|**************************************************************************** * * @@ -571,7 +571,7 @@ (unless tooltip-control (win:InitCommonControls) (setq tooltip-control - (win:CreateWindow "tooltips_class32" + (win:CreateWindow (excl:string-to-native "tooltips_class32") 0 TTS_ALWAYSTIP win:CW_USEDEFAULT win:CW_USEDEFAULT -- GitLab