Merge branch 'master' into magic-8.2

This commit is contained in:
Tim Edwards 2020-02-27 03:00:20 -05:00
commit b53126c5ac
13 changed files with 7 additions and 7 deletions

View File

@ -1 +1 @@
8.2.188
8.2.189

View File

@ -19,7 +19,7 @@ EXTRA_LIBS = ${MAGICDIR}/cmwind/libcmwind.o ${MAGICDIR}/commands/libcommands.o \
${MAGICDIR}/plow/libplow.o ${MAGICDIR}/utils/libutils.o \
${MAIN_EXTRA_LIBS}
BITMAPS = up.png down.png left.png right.png zoom.png lock.xbm
BITMAPS = up.gif down.gif left.gif right.gif zoom.gif lock.xbm
DEST_XBM = $(BITMAPS:%=$(DESTDIR)${INSTALL_TCLDIR}/bitmaps/%)
DFLAGS += -DMAGIC_DATE="\"`date`\"" -DCAD_DIR="${LIBDIR}"

BIN
magic/bitmaps/down.gif Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 103 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 290 B

BIN
magic/bitmaps/left.gif Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 103 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 291 B

BIN
magic/bitmaps/right.gif Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 102 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 289 B

BIN
magic/bitmaps/up.gif Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 102 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 290 B

BIN
magic/bitmaps/zoom.gif Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 103 B

Binary file not shown.

Before

Width:  |  Height:  |  Size: 276 B

View File

@ -35,23 +35,23 @@ proc magic::makeglyphimages {} {
set gsize [expr {int($Opts(scale) * 13)}]
set gscale [expr {int($Opts(scale))}]
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/up.png
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/up.gif
image create photo Glyph(up) -width $gsize -height $gsize
Glyph(up) copy stdglyph -zoom $gscale
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/down.png
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/down.gif
image create photo Glyph(down) -width $gsize -height $gsize
Glyph(down) copy stdglyph -zoom $gscale
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/left.png
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/left.gif
image create photo Glyph(left) -width $gsize -height $gsize
Glyph(left) copy stdglyph -zoom $gscale
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/right.png
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/right.gif
image create photo Glyph(right) -width $gsize -height $gsize
Glyph(right) copy stdglyph -zoom $gscale
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/zoom.png
image create photo stdglyph -file ${CAD_ROOT}/magic/tcl/bitmaps/zoom.gif
image create photo Glyph(zoom) -width $gsize -height $gsize
Glyph(zoom) copy stdglyph -zoom $gscale