interfaces/xmaxima/Tkmaxima/Plotting.tcl

   1 # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
   2 #
   3 #       $Id: Plotting.tcl,v 1.3 2002-09-07 23:20:49 mikeclarkson Exp $
   4 #
   5 ###### plotting.tcl ######
   6 ############################################################
   7 # Netmath       Copyright (C) 1998 William F. Schelter     #
   8 # For distribution under GNU public License.  See COPYING. #
   9 ############################################################
  10
  11 global axisGray
  12 if { "[winfo screenvisual .]" == "staticgray" } {
  13     set axisGray black
  14 } else  {
  15     set axisGray gray60
  16 }
  17 if {[catch { set doExit }] } { set doExit ""}
  18
  19 ## endsource plotting.tcl