# $Id: create_pixmaps.tcl,v 1.12 1996/11/22 16:29:08 aml Exp $
#
#

#
# Creates images from gif files
#

proc createPixmaps {} {
    
    image create photo new_im \
        -file [xxl_library]/bitmaps/new.gif -palette 5/5/5
    image create photo close_im \
        -file [xxl_library]/bitmaps/close.gif -palette 5/5/5
    image create photo open_im \
        -file [xxl_library]/bitmaps/folder.gif -palette 5/5/5
    image create photo save_im \
        -file [xxl_library]/bitmaps/floppy.gif -palette 5/5/5
    image create photo print_im \
        -file [xxl_library]/bitmaps/print.gif -palette 5/5/5
    image create photo preview_im \
        -file [xxl_library]/bitmaps/preview.gif -palette 5/5/5
    image create photo cut_im \
        -file [xxl_library]/bitmaps/cut.gif -palette 5/5/5
    image create photo copy_im \
        -file [xxl_library]/bitmaps/copy.gif -palette 5/5/5
    image create photo move_im \
        -file [xxl_library]/bitmaps/move.gif -palette 5/5/5
    image create photo paint_im \
        -file [xxl_library]/bitmaps/paint.gif -palette 5/5/5
    image create photo redo_im \
        -file [xxl_library]/bitmaps/redo.gif -palette 5/5/5
    image create photo undo_im \
        -file [xxl_library]/bitmaps/undo.gif -palette 5/5/5
    image create photo sum_im \
        -file [xxl_library]/bitmaps/sum.gif -palette 5/5/5
    image create photo funcs_im \
        -file [xxl_library]/bitmaps/funcs.gif -palette 5/5/5
    image create photo ascend_im \
        -file [xxl_library]/bitmaps/ascend.gif -palette 5/5/5
    image create photo descend_im \
        -file [xxl_library]/bitmaps/descend.gif -palette 5/5/5
    image create photo none_im \
        -file [xxl_library]/bitmaps/none.gif -palette 5/5/5
    image create photo stop_im \
        -file [xxl_library]/bitmaps/stop.gif -palette 5/5/5
    image create photo calc_im \
        -file [xxl_library]/bitmaps/calc.gif -palette 5/5/5
    image create photo xxl_im \
        -file [xxl_library]/bitmaps/xxl.gif 
    image create photo xxl2_im \
        -file [xxl_library]/bitmaps/xxl2.gif 

    image create bitmap redo_bm \
        -file [xxl_library]/bitmaps/redo.xbm -foreground blue
    image create bitmap undo_bm \
        -file [xxl_library]/bitmaps/undo.xbm -foreground blue
    image create bitmap sum_bm \
        -file [xxl_library]/bitmaps/sum.xbm -foreground blue
    image create bitmap funcs_bm \
        -file [xxl_library]/bitmaps/funcs.xbm -foreground blue
    image create bitmap ascend_bm \
        -file [xxl_library]/bitmaps/ascend.xbm -foreground blue
    image create bitmap descend_bm \
        -file [xxl_library]/bitmaps/descend.xbm -foreground blue
    image create bitmap stop_bm \
        -file [xxl_library]/bitmaps/stop.xbm  -foreground red
    image create bitmap cross_bm \
        -file [xxl_library]/bitmaps/cross.xbm  -foreground red
    image create bitmap check_bm \
        -file [xxl_library]/bitmaps/check.xbm  -foreground darkgreen

    image create bitmap  bold_bm -file [xxl_library]/bitmaps/bold.xbm \
            -foreground blue
    image create bitmap  italic_bm -file [xxl_library]/bitmaps/italic.xbm \
            -foreground blue
    image create bitmap  under_bm -file [xxl_library]/bitmaps/under.xbm \
            -foreground blue
    image create bitmap  left_bm -file [xxl_library]/bitmaps/ileft.xbm \
            -foreground blue
    image create bitmap  center_bm -file [xxl_library]/bitmaps/icenter.xbm \
            -foreground blue
    image create bitmap  right_bm -file [xxl_library]/bitmaps/iright.xbm \
            -foreground blue

    image create bitmap  pulldown_bm -file [xxl_library]/bitmaps/pulldown.xbm \
            -foreground red    
    image create bitmap  shade_bm -file [xxl_library]/bitmaps/fill.xbm 
    image create bitmap  borders_bm -file [xxl_library]/bitmaps/borders.xbm 
            
    image create bitmap  gray20 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray20
    image create bitmap  gray40 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray40
    image create bitmap  gray50 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray50
    image create bitmap  gray60 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray60
    image create bitmap  gray70 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray70
    image create bitmap  gray80 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray80
    image create bitmap  gray90 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray90
    image create bitmap  gray95 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray95
    image create bitmap  gray100 -file [xxl_library]/bitmaps/rect.xbm \
            -foreground gray100



}


#
# $Log: create_pixmaps.tcl,v $
# Revision 1.12  1996/11/22 16:29:08  aml
# First cut at transforming canvas into a true cell widget.
# Text, lines and rectangles are now relative to row and colunm numbers.
# It still has a bug with wrong estimation of column widths.
#
# Revision 1.11  1996/10/10 22:55:23  aml
# Print preview. Improvements on print command.
#
# Revision 1.10  1996/10/07 12:35:28  aml
# First cut at error handling.
# Date formats are in.
# Fixed problem with blank cell drawing.
#
# Revision 1.9  1996/09/17  15:16:15  aml
# Fixed problems with copying of cells with non-default formats.
# Created printing formats, alignment formats.
# Format toolbar now reflects format of active cell.
#
# Revision 1.8  1996/09/15 19:24:15  aml
# Rulling and shading.
# Optionally hide cell borders.
# Works well, but is very slow for large spreadsheets.
#
# Revision 1.7  1996/09/14  23:55:52  aml
# Created cell shading.
#
# Revision 1.6  1996/09/04  14:29:49  aml
# Fixed double redrawing of sheets that was taking place.
# Fixed a item reference problem when the sheet is redrawn.
# Fixed misplacement of row labels.
# Created first version of format toolbar.
#
# Revision 1.5  1996/04/27 11:12:31  aml
# Inserted check and delete button.
# Font selection widget created.
# Fixed bug canvas_information destructor.
#
# Revision 1.4  1996/02/13 21:55:16  aml
# Fixed problems with change to elf.
# RangeCopy created. Works !
# Pressed mouse leaving canvas will cause scroll. Works, but needs to
# keep moving.
#
# Revision 1.3  1996/02/13  12:03:42  aml
# Fixed bug with range definition via mouse.
# Fixed bug in range iterators.
#
# Revision 1.2  1996/01/27  23:10:23  aml
# CellCopy created.
# CellGet fixed.
# Tcl range operators created.
# User interface improved. Cell references and ranges
# can now be defined with the mouse.
#
# Revision 1.1  1995/11/08  22:08:11  aml
# Initial revision
#
#