Fix truncation with unparse-string

[factor.git] / basis / windows / messages / messages.factor

diff --git a/basis/windows/messages/messages.factor b/basis/windows/messages/messages.factor
index b9c8fe9fd8598f1f8ade567ab2ae21575e250740..1715c5ae88b8f6a42ca614034d2c0d7f774b4d80 100644 (file)
--- a/basis/windows/messages/messages.factor
+++ b/basis/windows/messages/messages.factor
@@ -1,13 +1,13 @@
 ! Copyright (C) 2005, 2006 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
+! See https://factorcode.org/license.txt for BSD license.
 USING: accessors assocs hashtables kernel math namespaces words
 windows.types vocabs sequences ;
 IN: windows.messages
 
 SYMBOL: windows-messages
 
-"windows.messages" words
-[ name>> "windows-message" head? not ] filter
+"windows.messages" vocab-words
+[ name>> "windows-message" head? ] reject
 [ dup execute swap ] { } map>assoc
 windows-messages set-global
 
@@ -69,6 +69,7 @@ CONSTANT: WM_COMMNOTIFY 0x0044
 CONSTANT: WM_WINDOWPOSCHANGING 0x0046
 CONSTANT: WM_WINDOWPOSCHANGED 0x0047
 CONSTANT: WM_POWER 0x0048
+CONSTANT: WM_COPYGLOBALDATA 0x0049
 CONSTANT: WM_COPYDATA 0x004A
 CONSTANT: WM_CANCELJOURNAL 0x004B
 CONSTANT: WM_NOTIFY 0x004E
@@ -168,6 +169,7 @@ CONSTANT: WM_XBUTTONUP 0x020C
 CONSTANT: WM_XBUTTONDBLCLK 0x020D
 CONSTANT: WM_MOUSELAST_5 0x020D
 CONSTANT: WM_MOUSELAST_4 0x020A
+CONSTANT: WM_MOUSEHWHEEL 0x020E
 CONSTANT: WM_MOUSELAST_PRE_4 0x0209
 CONSTANT: WM_PARENTNOTIFY 0x0210
 CONSTANT: WM_ENTERMENULOOP 0x0211
@@ -209,6 +211,10 @@ CONSTANT: WM_NCMOUSELEAVE 0x02A2
 CONSTANT: WM_WTSSESSION_CHANGE 0x02B1
 CONSTANT: WM_TABLET_FIRST 0x02c0
 CONSTANT: WM_TABLET_LAST 0x02df
+CONSTANT: WM_DPICHANGED 0x02e0
+CONSTANT: WM_DPICHANGED_BEFOREPARENT 0x02e2
+CONSTANT: WM_DPICHANGED_AFTERPARENT 0x02e3
+CONSTANT: WM_GETDPISCALEDSIZE 0x2e4
 CONSTANT: WM_CUT 0x0300
 CONSTANT: WM_COPY 0x0301
 CONSTANT: WM_PASTE 0x0302
@@ -432,7 +438,7 @@ CONSTANT: CCM_FIRST 0x2000 ! Common control shared messages
 : HDM_SETBITMAPMARGIN ( -- n ) HDM_FIRST  20  + ; inline
 : HDM_GETBITMAPMARGIN ( -- n ) HDM_FIRST  21  + ; inline
 CONSTANT: HDM_SETUNICODEFORMAT CCM_SETUNICODEFORMAT
-CONSTANT: HDM_GETUNICODEFORMAT CCM_GETUNICODEFORMAT   
+CONSTANT: HDM_GETUNICODEFORMAT CCM_GETUNICODEFORMAT
 : HDM_SETFILTERCHANGETIMEOUT ( -- n ) HDM_FIRST 22  + ; inline
 : HDM_EDITFILTER ( -- n ) HDM_FIRST 23  + ; inline
 : HDM_CLEARFILTER ( -- n ) HDM_FIRST 24  + ; inline