luke/magic
1
0
Fork 0
mirror of https://github.com/RTimothyEdwards/magic.git synced 2026-08-22 14:17:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

Modified the "tag" command to add an optional subcommand "add" or

Browse Source 
"replace" as the 2nd argument.  This allows a simpler 'tag add
<command> <value>' than the existing awkward 'tag <command>
"[tag <command>]; <value>'.  Using "add" also helps avoid
mistakes like one that was in the code for a long time which
overwrites one of the helper window callbacks.  With this done,
added some additional callbacks to the "library manager" to
update when a new file is created by "select save" or "writeall".
Also added "Refresh" buttons to these windows, just in case.
Implemented a zoom function on the mouse scroll wheel when the
Control key is pressed.  This is a stop-gap for a problem with
overriding button bindings that re-establish themselves when the
tool (box, wiring, etc.) changes.  That needs to have a more
comprehensive solution (such as tool-specific bindings).
This commit is contained in:
R. Timothy Edwards
2025-10-08 17:11:27 -04:00
parent d822353e85
commit 9ca81f8ea6
8 changed files with 109 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tcltk/wrapper.tcl
+17 -17
View File
@@ -542,23 +542,23 @@ proc magic::captions {{subcommand {}}} {
# Note that the "box" tag doesn't apply to mouse-button events, so this function
# is duplicated by Tk binding of mouse events in the layout window.
magic::tag load "[magic::tag load]; magic::captions"
magic::tag edit "magic::captions"
magic::tag save "magic::captions"
magic::tag down "magic::captions"
magic::tag box "magic::boxview %W %1"
magic::tag move "magic::boxview %W"
magic::tag scroll "magic::scrollupdate %W"
magic::tag view "magic::scrollupdate %W"
magic::tag zoom "magic::scrollupdate %W"
magic::tag findbox "magic::scrollupdate %W"
magic::tag see "magic::toolupdate %W %1 %2"
magic::tag tech "magic::techrebuild %W %1; magic::captions %1"
magic::tag drc "magic::drcupdate %1"
magic::tag path "[magic::tag path]; magic::techmanager update"
magic::tag cellname "magic::mgrupdate %W %1"
magic::tag cif "magic::mgrupdate %W %1"
magic::tag gds "magic::mgrupdate %W %1"
magic::tag add load "magic::captions"
magic::tag add edit "magic::captions"
magic::tag add save "magic::captions"
magic::tag add down "magic::captions"
magic::tag add box "magic::boxview %W %1"
magic::tag add move "magic::boxview %W"
magic::tag add scroll "magic::scrollupdate %W"
magic::tag add view "magic::scrollupdate %W"
magic::tag add zoom "magic::scrollupdate %W"
magic::tag add findbox "magic::scrollupdate %W"
magic::tag add see "magic::toolupdate %W %1 %2"
magic::tag add tech "magic::techrebuild %W %1; magic::captions %1"
magic::tag add drc "magic::drcupdate %1"
magic::tag add path "magic::techmanager update"
magic::tag add cellname "magic::mgrupdate %W %1"
magic::tag add cif "magic::mgrupdate %W %1"
magic::tag add gds "magic::mgrupdate %W %1"
# This should be a list. . . do be done later
set lwindow 0