--- a/ElectronWorkstation.st	Thu Sep 12 22:50:35 2019 +0200
+++ b/ElectronWorkstation.st	Fri Sep 13 09:26:49 2019 +0200
@@ -80,11 +80,13 @@
 
 ascentOf:aFontId
     "/ the font name is its ID
+    Logger info:'unimplemented: ascentOf'.
     ^ 17
 !
 
 descentOf:aFontId
     "/ the font name is its ID
+    Logger info:'unimplemented: descentOf'.
     ^ 17
 !
 
@@ -105,26 +107,31 @@
 
 maxAscentOf:aFontId
     "/ the font name is its ID
+    Logger info:'unimplemented: maxAscentOf'.
     ^ 17
 !
 
 maxDescentOf:aFontId
     "/ the font name is its ID
+    Logger info:'unimplemented: maxDescentOf'.
     ^ 17
 !
 
 maxWidthOfFont:aFontId
     "/ the font name is its ID
+    Logger info:'unimplemented: maxWidthOfFont'.
     ^ 20
 !
 
 minWidthOfFont:aFontId
     "/ the font name is its ID
+    Logger info:'unimplemented: minWidthOfFont'.
     ^ 20
 !
 
 widthOf:aString from:index1 to:index2 inFont:aFontId
     "/ the font name is its ID
+    Logger info:'unimplemented: widthOf'.
     ^ (index2-index1+1) * 20
 ! !
 
@@ -187,10 +194,21 @@
     ].
 ! !
 
+!ElectronWorkstation methodsFor:'keyboard stuff'!
+
+ungrabKeyboard
+    Logger info:'unimplemented: ungrabKeyboard'.
+! !
+
 !ElectronWorkstation methodsFor:'pointer stuff'!
 
 pointerPosition
+    Logger info:'unimplemented: pointerPosition'.
     ^ 0@0
+!
+
+ungrabPointer
+    Logger info:'unimplemented: ungrabPointer'.
 ! !
 
 !ElectronWorkstation methodsFor:'window stuff'!
@@ -201,36 +219,37 @@
         label:label owner:owner
         icon:icn iconMask:icnM iconView:icnV
 
-    ^ 1234
+    Logger info:'unimplemented: createWindowFor:'.
+    ^ 1234 "/ dummy handle (windowID)
 !
 
 destroyView:aView withId:aWindowId
 
-    self halt.
+    Logger info:'unimplemented: destroyView:'.
 !
 
 mapWindow:aWindowId
     "map a window"
 
-    self halt.
+    Logger info:'unimplemented: mapWindow:'.
 !
 
 setWindowBackground:aColorIndex in:aWindowId
     "set a windows background color"
 
-    self halt.
+    Logger info:'unimplemented: setWindowBackground:'.
 !
 
 setWindowName:aString in:aWindowId
     "define a windows name (i.e. windowTitle)"
 
-    self halt.
+    Logger info:'unimplemented: setWindowName:'.
 !
 
 unmapWindow:aWindowId
     "unmap a window"
 
-    self halt.
+    Logger info:'unimplemented: unmapWindow:'.
 ! !
 
 !ElectronWorkstation::ElectronGraphicsContext class methodsFor:'documentation'!