diff --git a/source/clog-base.lisp b/source/clog-base.lisp
index f5399ab..3055388 100644
--- a/source/clog-base.lisp
+++ b/source/clog-base.lisp
@@ -176,8 +176,8 @@ result or if time out DEFAULT-ANSWER (Private)"))
 ;;;;;;;;;;;;;;;;;;;;;;;
 
 (defparameter mouse-event-script
-  "+ e.clientX + ':' +
-     e.clientY + ':' +
+  "+ (e.clientX - e.target.getBoundingClientRect().left) + ':' + 
+     (e.clientY - e.target.getBoundingClientRect().top) + ':' + 
      e.screenX + ':' + e.screenY + ':' + e.which + ':' + e.altKey + ':' +
      e.ctrlKey + ':' + e.shiftKey + ':' + e.metaKey"
   "JavaScript to collect mouse event data from browser.")
@@ -205,8 +205,8 @@ result or if time out DEFAULT-ANSWER (Private)"))
 ;;;;;;;;;;;;;;;;;;;;;;;
 
 (defparameter touch-event-script
-  "+ e.touches[0].clientX + ':' + 
-     e.touches[0].clientY + ':' + 
+  "+ (e.touches[0].clientX - e.touches[0].target.getBoundingClientRect().left) + ':' + 
+     (e.touches[0].clientY - e.touches[0].target.getBoundingClientRect().top) + ':' + 
      e.touches[0].screenX + ':' + e.touches[0].screenY + ':' + e.touches.length + ':' +
      e.altKey + ':' +
      e.ctrlKey + ':' +
@@ -233,8 +233,8 @@ result or if time out DEFAULT-ANSWER (Private)"))
 ;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defparameter pointer-event-script
-  "+ e.clientX + ':' + 
-     e.clientY + ':' + 
+  "+ (e.clientX - e.target.getBoundingClientRect().left) + ':' + 
+     (e.clientY - e.target.getBoundingClientRect().top) + ':' + 
      e.screenX + ':' + e.screenY + ':' + e.which + ':' + e.altKey + ':' +
      e.ctrlKey + ':' + e.shiftKey + ':' + e.metaKey"
   "JavaScript to collect pointer event data from browser.")
@@ -282,8 +282,8 @@ result or if time out DEFAULT-ANSWER (Private)"))
 ;;;;;;;;;;;;;;;;;;;;;;
 
 (defparameter drop-event-script
-  "+ e.clientX + ':' + 
-     e.clientY + ':' +
+  "+ (e.clientX - e.target.getBoundingClientRect().left) + ':' + 
+     (e.clientY - e.target.getBoundingClientRect().top) + ':' +
      encodeURIComponent(e.originalEvent.dataTransfer.getData('~A'))"
   "JavaScript to collect drop event data from browser.")
 
diff --git a/source/clog-gui.lisp b/source/clog-gui.lisp
index bfc4efc..dada214 100644
--- a/source/clog-gui.lisp
+++ b/source/clog-gui.lisp
@@ -713,8 +713,7 @@ the window will be set to keep-on-top always."))
                   z-index:~A;visibility:hidden'
                   class='w3-card-4 w3-white w3-border'>
                   <div id='~A-title-bar' class='w3-container w3-black'
-                       style='position:absolute;top:0;right:0;left:0;height:25px;
-                              overflow:clip'>
+                       style='position:absolute;top:0;right:0;left:0;height:25px'>
                     <span data-drag-obj='~A' data-drag-type='m' id='~A-title'
                       style='position:absolute;top:0;right:20px;left:5px;
                              user-select:none;cursor:move;'>~A</span>~A