home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / plplot / plplot_2 / drivers / tk / PLWin.tcl < prev    next >
Encoding:
Text File  |  1994-06-16  |  1.6 KB  |  65 lines
  1. # PLWin.tcl
  2. # Geoffrey Furnish
  3. # 9 May 1994
  4. #
  5. # @> [incr Tcl] interface to PLplot
  6. #
  7. # $Id: PLWin.tcl,v 1.5 1994/06/16 18:33:51 mjl Exp $
  8. #
  9. # $Log: PLWin.tcl,v $
  10. # Revision 1.5  1994/06/16  18:33:51  mjl
  11. # Modified argument lists for plline and plpoin methods to use matrix names.
  12. #
  13. # Revision 1.4  1994/06/10  20:46:58  furnish
  14. # Mirror plpoin.  More of the API still needs doing.
  15. #
  16. # Revision 1.3  1994/06/09  20:07:13  mjl
  17. # Cleaned up and switched to plplot direct commands embedded in plframe
  18. # widget (through "<widget> cmd <command> <args>" syntax).
  19. #
  20. # Revision 1.2  1994/05/11  08:07:30  furnish
  21. # Debugging.  Needs to do own toprow for some reason.
  22. #
  23. # Revision 1.1  1994/05/09  17:59:19  furnish
  24. # The new [incr Tcl] interface to the PLplot Tcl extensions.
  25. #
  26. ###############################################################################
  27.  
  28. itcl_class PLWin {
  29.  
  30.     constructor {config} {
  31.     set class [$this info class]
  32.     ::rename $this $this-tmp-
  33.     ::frame $this -class $class
  34.     ::rename $this $this-win-
  35.     ::rename $this-tmp- $this
  36.  
  37.     plframe $this.plwin -relief sunken
  38.     pack append $this $this.plwin {bottom expand fill}
  39.     }
  40.  
  41.     method configure {config} {}
  42.  
  43.     method plcol {color} {
  44.     $this.plwin cmd plcol0 $color
  45.     }
  46.  
  47.     method plenv {xmin xmax ymin ymax just axis} {
  48.     $this.plwin cmd plenv $xmin $xmax $ymin $ymax $just $axis
  49.     }
  50.  
  51.     method pllab {xlab ylab toplab} {
  52.     $this.plwin cmd pllab $xlab $ylab $toplab
  53.     }
  54.  
  55.     method plline {n x y} {
  56.     $this.plwin cmd plline $n $x $y
  57.     }
  58.  
  59.     method plpoin {n x y code} {
  60.     $this.plwin cmd plpoin $n $x $y $code
  61.     }
  62.  
  63.     public name
  64. }
  65.