From: Victor Wagner <vitus@wagner.pp.ru>
Date: Mon, 29 Jun 2009 17:47:00 +0000 (+0000)
Subject: Suport for fvwm 2.5.26
X-Git-Url: http://wagner.pp.ru/gitweb/?a=commitdiff_plain;h=cfb08ccbbf58b78468136164f7729462ace2b3f5;p=oss%2Ffvwm-tcl.git

Suport for fvwm 2.5.26
---

diff --git a/fvwm.tcl b/fvwm.tcl
index 7c262ee..9d3c4b8 100644
--- a/fvwm.tcl
+++ b/fvwm.tcl
@@ -36,6 +36,12 @@ array set msgType {
 268435456 Restack
 536870912 NewAddWindow
 1073741824 NewConfigureWindow
+2147483648 UnknownMessage
+-2147483647 UnknownMessage1
+-2147483646 UnknownMessage2
+-2147483645 UnknownMessage3
+-2147483644 UnknownMessage4
+-2147483640 UnknownMessage8
 }
 
 variable gravityText
@@ -206,11 +212,10 @@ proc ReadMessage {} {
      }
      set stringLen 0
      if {![info exist msgType($type)]} {
-         after idle {error "Unknown message type [format %x $type]"\
-	       [list FVWM 1 $type "Unknown message"]
-         }
-     }	 
-     set event $msgType($type)
+         after idle [list error "Unknown message type [format %x $type]" {} [list FVWM 1 $type "Unknown message"]]
+		 set msgType($type) $type
+     } 	 
+		set event $msgType($type)
      if {($type & $MessagesWithString) !=0} {
          set stringLen [expr ($len-7)*$intSize]
          set len 7