Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/lib/protocol/xreply.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/lib/protocol/xreply.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1910, Thu Mar 2 23:45:19 2006 UTC revision 1911, Fri Mar 3 03:33:16 2006 UTC
# Line 523  Line 523 
523                new = getBool(buf, 12),                new = getBool(buf, 12),
524                installed = getBool(buf, 13)                installed = getBool(buf, 13)
525              }              }
526        fun decodeClientMessage buf = XEvt.ClientMessageXEvt {        fun decodeClientMessage buf =
527          (XEvt.ClientMessageXEvt {
528                window = getXId(buf, 4),                window = getXId(buf, 4),
529                typ = getXAtom(buf, 8),                typ = getXAtom(buf, 8),
530                value = XTy.RAW_DATA {                value = XTy.RAW_DATA {
531                    format = getRawFormat(buf, 1),                    format = getRawFormat(buf, 1),
532                    data = w8vextract(buf, 12, SOME 20)                    data = w8vextract(buf, 12, SOME 20)
533                  }                  }
534              }          })
535        fun decodeMappingNotify buf = (case W8V.sub(buf, 4)        fun decodeMappingNotify buf = (case W8V.sub(buf, 4)
536             of 0w0 => XEvt.ModifierMappingNotifyXEvt             of 0w0 => XEvt.ModifierMappingNotifyXEvt
537              | 0w1 => XEvt.KeyboardMappingNotifyXEvt {              | 0w1 => XEvt.KeyboardMappingNotifyXEvt {

Legend:
Removed from v.1910  
changed lines
  Added in v.1911

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0