X-Git-Url: http://www.wagner.pp.ru/gitweb/?p=oss%2Ffvwm-tcl.git;a=blobdiff_plain;f=fvwm.tcl;h=0898d85b45355e2df9ec15ea7ad1c44b19343176;hp=7c262eefd6c8cbbfe4ecdd2fb8e0a717cb900da5;hb=23f38fd3c1df1bfe23ed7663259aa47c5dbaaf19;hpb=5f464388004a348c0f8788833b2cfd6634100688

diff --git a/fvwm.tcl b/fvwm.tcl
index 7c262ee..0898d85 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
@@ -476,4 +481,4 @@ proc Error {msgtype zero0 zero1 zero2 msg} {
 	after idle "error [list $msg] \{[list FVWM 2 $msg]\}"
 }
 }
-package provide Fvwm 1.3
+package provide Fvwm 1.4