Blame blt2.4z-zoomstack.patch
|
Michael Thomas |
828f700 |
--- library/Makefile.in.orig 2010-01-09 16:51:18.000000000 -0800
|
|
Michael Thomas |
828f700 |
+++ library/Makefile.in 2010-01-09 16:50:57.000000000 -0800
|
|
Michael Thomas |
828f700 |
@@ -29,6 +29,7 @@
|
|
Michael Thomas |
828f700 |
tabnotebook.tcl \
|
|
Michael Thomas |
828f700 |
tabset.tcl \
|
|
Michael Thomas |
828f700 |
treeview.tcl \
|
|
Michael Thomas |
828f700 |
+ ZoomStack.itcl \
|
|
Michael Thomas |
828f700 |
tclIndex \
|
|
Michael Thomas |
828f700 |
$(cursors)
|
|
Michael Thomas |
828f700 |
|
|
Michael Thomas |
828f700 |
--- library/ZoomStack.itcl.orig 2010-01-09 19:23:15.000000000 -0800
|
|
Michael Thomas |
828f700 |
+++ library/ZoomStack.itcl 2010-01-09 19:25:10.000000000 -0800
|
|
Michael Thomas |
828f700 |
@@ -1,4 +1,6 @@
|
|
Michael Thomas |
828f700 |
-import add itcl
|
|
Michael Thomas |
828f700 |
+#import add itcl
|
|
Michael Thomas |
828f700 |
+package require Itcl
|
|
Michael Thomas |
828f700 |
+namespace import itcl::*
|
|
Michael Thomas |
828f700 |
|
|
Michael Thomas |
828f700 |
class ZoomStackGraph {
|
|
Michael Thomas |
828f700 |
|
|
Michael Thomas |
828f700 |
@@ -48,6 +50,7 @@
|
|
Michael Thomas |
828f700 |
private method SaveCoords { x y }
|
|
Michael Thomas |
828f700 |
private method Zoom {}
|
|
Michael Thomas |
828f700 |
private method Unzoom {}
|
|
Michael Thomas |
828f700 |
+ private method Empty { }
|
|
Michael Thomas |
828f700 |
private method Push { cmd }
|
|
Michael Thomas |
828f700 |
private method Pop {}
|
|
Michael Thomas |
828f700 |
private method MarkPoint { x y }
|