#!/usr/bin/wish
+pkg_mkIndex .
+set auto_path [concat . $auto_path]
+
+package require panner
+
set us Aristarchus
proc manyset {list args} {
canvas $canvas
#$canvas configure -width 1000 -height 800
pack $canvas -expand 1 -fill both
-pack .f -expand 1 -fill both
+pack .f -expand 1 -fill both -side left
-set scale 15
+set scale 16
proc coord {c} {
global scale
puts "IGNORED NOTE $nk"
}
+frame .ctrl
+pack .ctrl -side right
+
+panner::canvas-scroll-bbox .f.c
+panner::create .ctrl.pan .f.c 120 120
+
+pack .ctrl.pan -side top -pady 10 -padx 5
+frame .ctrl.zoom
+pack .ctrl.zoom -side top
+
+button .ctrl.zoom.out -text - -font {Courier 16}
+button .ctrl.zoom.in -text + -font {Courier 16}
+pack .ctrl.zoom.out .ctrl.zoom.in -side left
+
+#. configure -width 640 -height 480
+wm geometry . 1024x480
+
#puts "[$canvas bbox all]"