Merge branch 'master' into magic-8.2
|
|
@ -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}"
|
||||
|
|
|
|||
|
After Width: | Height: | Size: 103 B |
|
Before Width: | Height: | Size: 290 B |
|
After Width: | Height: | Size: 103 B |
|
Before Width: | Height: | Size: 291 B |
|
After Width: | Height: | Size: 102 B |
|
Before Width: | Height: | Size: 289 B |
|
After Width: | Height: | Size: 102 B |
|
Before Width: | Height: | Size: 290 B |
|
After Width: | Height: | Size: 103 B |
|
Before Width: | Height: | Size: 276 B |
|
|
@ -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
|
||||
|
||||
|
|
|
|||