[Xcircuit-dev] Bug report

[R. Timothy Edwards]

Dear Orestes Mas,

> I've just compiled the latest development version (.133) from source, 
> using "--with-tcl=/usr/lib/tcl8.4/"
> 
> Just after starting xcircuit, if I try to modify the snap or grid spacing, 
> xcircuit show an error dialog box with the following message:
> 
> Error: Can't read "XCOps(focus)": no ...
> 
> I've searched through the release notes and code history, and I've found 
> similar errors but unfortunately they don't seem related to this one, and I 
> don't know how to fix it.
> 
> This problem don't occurs in the 3.6.20 version

Thank you for the bug report.  I had not noticed that the grid spacing
was broken from the menu (typing the command into the console, e.g.,
"config grid space 16", still works).  My solution was to change two
lines concerning commands "grid" and "snap" around line 690 in
lib/tcl/wrapper.tcl from:

	grid {set XCWinOps($XCOps(focus),showgrid) [config grid]}
	snap {set XCWinOps($XCOps(focus),showsnap) [config snap]}
to:
	grid {catch {set XCWinOps($XCOps(focus),showgrid) [config grid]}}
	snap {catch {set XCWinOps($XCOps(focus),showsnap) [config snap]}}

That code was meant to handle commands such as "set grid true/false"
and doesn't work for the "set grid space" and "set snap space" commands.
Thank you for bringing the error to my attention.

I have committed the fix to the CVS database, and it will appear in the
new distribution tarball tomorrow.
						Regards,
						Tim

+--------------------------------+-------------------------------------+
| Dr. R. Timothy Edwards (Tim)   | email: tim at opencircuitdesign.com    |
| Open Circuit Design, Inc.	 | web:   http://opencircuitdesign.com |
| 22815 Timber Creek Lane        | phone: (408) 260-8303               |
| Clarksburg, MD 20871-4001      | cell:  (240) 401-0616               |
+--------------------------------+-------------------------------------+