diff --git a/ChangeLog.n b/ChangeLog.n index 0f2a5e2c9ec631db202fcc3273e3a20ac1acff07..42bb26745894f26a8ccabd8716d226aa4eb06e7e 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 be2f8b6cc37b3034a3f1bdf99b6ac5278ead754f..2461ab9095681edc7c94fb580abf52b8e5a5dd27 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