--- a/XWorkstation.st	Fri Feb 08 21:50:53 2013 +0100
+++ b/XWorkstation.st	Wed Feb 13 09:41:43 2013 +0100
@@ -5910,6 +5910,15 @@
     dispatchingExpose := aView id
 !
 
+registerHotKeyForWindow:aDrawableId withId:anId modifiers:aModifier virtualKeyCode:aVirtualKeyCode
+    "Defines a system-wide hot key."
+    <resource: #todo>
+
+    "no-op until implemented"
+
+    ^ false.
+!
+
 setEventMask:aMask in:aWindowId
     "tell X that we are only interested in events from aMask, which
      is the bitwise or of the eventMask bits (see 'eventMaskFor:')"
@@ -5947,6 +5956,15 @@
     dispatching ifTrue:[^ self].
     dispatchingExpose := nil.
     super startDispatch.
+!
+
+unregisterHotKeyForWindow:aDrawableId withId:anId
+    "Release a system-wide hot key."
+    <resource: #todo>
+
+    "no-op until implemented. Since we never registered anything, the unregister succeeds"
+
+    ^ true.
 ! !
 
 !XWorkstation methodsFor:'event handling-old dispatch'!
@@ -12767,11 +12785,11 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.559 2013-02-04 18:14:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.560 2013-02-13 08:41:43 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.559 2013-02-04 18:14:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.560 2013-02-13 08:41:43 stefan Exp $'
 !
 
 version_SVN