make pager functional (but it still has bugs when dragging)

unpunch.pd

@@ -1019,34 +1019,52 @@ id float gid float vel float dur float c float vis;
 #X connect 8 0 3 0;
 #X connect 9 0 5 0;
 #X restore 411 192 pd create.mode.button;
-#N canvas 83 122 579 400 create.pager 0;
-#X obj 34 267 list prepend \$0;
-#X obj 34 318 outlet;
+#N canvas 83 122 487 422 create.pager 0;
+#X obj 34 317 list prepend \$0;
+#X obj 34 368 outlet;
 #X obj 34 17 inlet;
-#X msg 34 295 scalar \$1.pager \$2 \$3 \$4 \$5 \$6 \$7;
-#X text 47 238 x y c dir num nvis;
+#X msg 34 345 scalar \$1.pager \$2 \$3 \$4 \$5 \$6 \$7;
+#X text 47 288 x y c dir num nvis;
 #X obj 34 140 t a a;
 #X msg 110 116 \$1;
 #X obj 110 139 + 40;
 #X obj 34 175 list append;
-#X msg 34 205 \$1 \$2 666 0 1 1 \, \$3 \$2 444 24 0 0;
 #X obj 34 47 f;
 #X obj 68 49 r \$0.canvasleftmargin;
 #X obj 34 70 + 10;
 #X msg 34 117 \$1 20;
+#X obj 328 98 != 1;
+#X msg 358 159 444;
+#X msg 328 160 666;
+#X obj 328 131 sel 0 1;
+#X obj 260 33 r \$0.page;
+#X msg 34 255 \$1 \$2 \$5 0 \$4 1 \, \$3 \$2 444 24 0 0;
+#X obj 34 221 list append 666;
+#X obj 34 198 list append 1;
+#X obj 260 56 + 1;
 #X connect 0 0 3 0;
-#X connect 2 0 10 0;
+#X connect 2 0 9 0;
 #X connect 3 0 1 0;
 #X connect 5 0 8 0;
 #X connect 5 1 6 0;
 #X connect 6 0 7 0;
 #X connect 7 0 8 1;
-#X connect 8 0 9 0;
-#X connect 9 0 0 0;
-#X connect 10 0 12 0;
-#X connect 11 0 10 1;
-#X connect 12 0 13 0;
-#X connect 13 0 5 0;
+#X connect 8 0 20 0;
+#X connect 9 0 11 0;
+#X connect 10 0 9 1;
+#X connect 11 0 12 0;
+#X connect 12 0 5 0;
+#X connect 13 0 16 0;
+#X connect 14 0 19 1;
+#X connect 15 0 19 1;
+#X connect 16 0 15 0;
+#X connect 16 1 14 0;
+#X connect 17 0 21 0;
+#X connect 18 0 0 0;
+#X connect 19 0 18 0;
+#X connect 20 0 19 0;
+#X connect 21 0 13 0;
+#X connect 21 0 20 1;
 #X restore 369 270 pd create.pager;
 #X obj 355 61 t b b b b b b b b b;
 #N canvas 301 211 450 300 create.guibar 0;
@@ -1233,13 +1251,26 @@ symbol param;
 #X connect 16 0 18 0;
 #X connect 18 0 17 0;
 #X restore 212 143 pd mode.button.logic;
-#N canvas 399 371 450 300 pager-template 0;
+#N canvas 399 371 405 373 pager-template 0;
 #X obj 15 41 filledpolygon c c 1 dir 7 12 14 12 0;
-#X obj 21 179 s \$0.pager.send;
+#X obj 21 285 s \$0.pager.send;
 #X obj 21 117 struct \$0.pager float x float y float c float dir float
 num float nvis;
 #X obj 19 66 drawnumber -v nvis num 30 2 0;
-#X connect 2 0 1 0;
+#X obj 165 164 route change;
+#X obj 165 187 t p p;
+#X obj 21 185 t a a;
+#X obj 165 209 get \$0.pager num;
+#X obj 165 233 max 1;
+#X obj 165 281 set \$0.pager num;
+#X connect 2 0 6 0;
+#X connect 4 0 5 0;
+#X connect 5 0 7 0;
+#X connect 5 1 9 1;
+#X connect 6 0 1 0;
+#X connect 6 1 4 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
 #X restore 8 198 pd pager-template;
 #N canvas 305 215 450 300 guibar-template 0;
 #X obj 21 180 s \$0.guibar.send;
@@ -1247,6 +1278,45 @@ num float nvis;
 #X obj 17 39 filledpolygon 777 777 1 0 0 w 0 w 24 0 24;
 #X connect 1 0 0 0;
 #X restore 8 228 pd guibar-template;
+#N canvas 100 265 421 422 pager.logic 0;
+#X obj 24 24 r \$0.pager.send;
+#X msg 24 186 -1;
+#X msg 53 187 1;
+#X obj 24 234 f 1;
+#X obj 24 263 +;
+#X obj 24 286 t a a;
+#X obj 24 209 t b a;
+#X obj 24 110 get \$0.pager dir;
+#X obj 24 47 route click change;
+#X obj 156 91 get \$0.pager num;
+#X obj 139 209 != 1;
+#X obj 24 133 sel 0 24;
+#X obj 24 156 spigot 1;
+#X obj 51 359 s \$0.page;
+#X obj 24 332 t b a;
+#X obj 24 381 s \$0.redraw;
+#X obj 24 309 - 1;
+#X connect 0 0 8 0;
+#X connect 1 0 6 0;
+#X connect 2 0 6 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 16 0;
+#X connect 5 1 3 1;
+#X connect 5 1 10 0;
+#X connect 6 0 3 0;
+#X connect 6 1 4 1;
+#X connect 7 0 11 0;
+#X connect 8 0 7 0;
+#X connect 8 1 9 0;
+#X connect 10 0 12 1;
+#X connect 11 0 12 0;
+#X connect 11 1 2 0;
+#X connect 12 0 1 0;
+#X connect 14 0 15 0;
+#X connect 14 1 13 0;
+#X connect 16 0 14 0;
+#X restore 212 198 pd pager.logic;
 #X connect 4 0 15 0;
 #X connect 6 0 9 0;
 #X connect 7 0 8 0;
@@ -2019,10 +2089,10 @@ certain period.;
 #X restore 19 184 pd note.edit.modes;
 #X obj 564 17 r \$0.redraw;
 #X floatatom 292 319 5 0 0 0 - - -, f 5;
-#X obj 319 369 s \$0.page;
-#X obj 292 342 t b a;
+#X obj 319 370 s \$0.page;
+#X obj 292 343 t b a;
 #X obj 564 40 t b b;
-#X obj 292 391 s \$0.redraw;
+#X obj 292 392 s \$0.redraw;
 #N canvas 294 116 748 530 redraw.notes 0;
 #X obj 11 15 inlet;
 #X obj 38 254 r \$0.page;