From 099d51301196b338ac18e442d22c549f19a0b500 Mon Sep 17 00:00:00 2001
From: "R. Timothy Edwards" <tim@opencircuitdesign.com>
Date: Sun, 24 May 2026 16:23:18 -0400
Subject: [PATCH] Corrected the "Pick" button action in the "Library Manager"
 window; this had two issues:  (1) "getcell" was not being called with "child
 0 0", leading to child cells that are not placed where expected in relation
 to a grid snap setting;  and (2) "cursor" was assuming internal units and
 needed that to be explicitly stated using "cursor internal".

---
 VERSION          | 2 +-
 tcltk/libmgr.tcl | 4 ++--
 tcltk/tools.tcl  | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/VERSION b/VERSION
index ebaa130a..c255c1f2 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.648
+8.3.649
diff --git a/tcltk/libmgr.tcl b/tcltk/libmgr.tcl
index 71888059..44f164f8 100644
--- a/tcltk/libmgr.tcl
+++ b/tcltk/libmgr.tcl
@@ -35,10 +35,10 @@ proc magic::libcallback {command} {
 
    switch $command {
       load {$winname load $celldef}
-      place {$winname getcell $celldef}
+      place {$winname getcell $celldef child 0 0}
       pick {
 	magic::tool pick
-	$winname getcell $celldef
+	$winname getcell $celldef child 0 0
 	magic::startselect $winname pick
       }
    }
diff --git a/tcltk/tools.tcl b/tcltk/tools.tcl
index b3ac5d7e..27921bad 100644
--- a/tcltk/tools.tcl
+++ b/tcltk/tools.tcl
@@ -651,9 +651,9 @@ proc magic::startselect {window {option {}}} {
 	    select nocycle
 	 }
       }
-      set Opts(origin) [cursor]
+      set Opts(origin) [cursor internal]
       set Opts(motion) [bind ${window} <Motion>]
-      bind ${window} <Motion> [subst {$Opts(motion); set p \[cursor\]; \
+      bind ${window} <Motion> [subst {$Opts(motion); set p \[cursor internal\]; \
 	set x \[expr {\[lindex \$p 0\] - [lindex $Opts(origin) 0]}\]i; \
 	set y \[expr {\[lindex \$p 1\] - [lindex $Opts(origin) 1]}\]i; \
 	*bypass select move \${x} \${y}}]