]> wagner.pp.ru Git - oss/fvwm-tcl.git/commitdiff
Suport for fvwm 2.5.26
authorVictor Wagner <vitus@wagner.pp.ru>
Mon, 29 Jun 2009 17:47:00 +0000 (17:47 +0000)
committerVictor Wagner <vitus@wagner.pp.ru>
Mon, 29 Jun 2009 17:47:00 +0000 (17:47 +0000)
fvwm.tcl

index 7c262eefd6c8cbbfe4ecdd2fb8e0a717cb900da5..9d3c4b8b0f739ed15599340b83b3b2800a544de4 100644 (file)
--- 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