From 108c7c2f64b9254ea599073bd737f5e5a8b8d9c3 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Fri, 6 Feb 2009 11:16:06 +0000 Subject: adding jonathan wilkes lovely 'pal' editor, continued work and upgrades to ds-designer, and the start of ds-choice-list, a context-menu-ish gui element (with icons thanks to ds-designer) svn path=/trunk/abstractions/ds-gui/; revision=10748 --- ds-choice-list.pd | 78 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 78 insertions(+) create mode 100644 ds-choice-list.pd (limited to 'ds-choice-list.pd') diff --git a/ds-choice-list.pd b/ds-choice-list.pd new file mode 100644 index 0000000..4312fce --- /dev/null +++ b/ds-choice-list.pd @@ -0,0 +1,78 @@ +#N struct 1002.list-item.template float x float y symbol item-name +symbol action-name float item-color float action-color; +#N canvas 376 92 450 300 10; +#N canvas 0 22 450 300 \$0.display 1; +#X scalar 1002.list-item.template 0 80 sandwich symbol 0 0 \;; +#X scalar 1002.list-item.template 0 40 cheese symbol 0 0 \;; +#X scalar 1002.list-item.template 0 0 ham symbol 0 0 \;; +#X restore 219 103 pd \$0.display; +#N canvas 667 449 450 300 make-list 1; +#X obj 130 112 t b b; +#X obj 217 156 ds-begin pd-\$0.display; +#X obj 130 205 append \$0.list-item.template x y; +#X obj 130 229 t b a; +#X obj 130 275 set -symbol \$0.list-item.template item-name; +#X obj 130 63 list-drip; +#X obj 130 140 f; +#X obj 155 140 + 1; +#X msg 130 180 0 \$1; +#X msg 175 112 0; +#X obj 130 160 * 40; +#X obj 130 90 t b a; +#X obj 388 156 t a; +#X obj 130 252 symbol; +#X obj 130 41 t a b b; +#X msg 192 41 clear; +#X obj 235 41 s pd-\$0.display; +#X obj 130 15 inlet; +#X connect 0 0 6 0; +#X connect 0 1 1 0; +#X connect 1 0 2 2; +#X connect 2 0 3 0; +#X connect 3 0 13 0; +#X connect 3 1 4 1; +#X connect 5 0 11 0; +#X connect 6 0 10 0; +#X connect 6 0 7 0; +#X connect 7 0 6 1; +#X connect 8 0 2 0; +#X connect 9 0 6 1; +#X connect 10 0 8 0; +#X connect 11 0 0 0; +#X connect 11 1 12 0; +#X connect 12 0 13 1; +#X connect 13 0 4 0; +#X connect 14 0 5 0; +#X connect 14 1 9 0; +#X connect 14 2 15 0; +#X connect 15 0 16 0; +#X connect 17 0 14 0; +#X restore 34 105 pd make-list; +#N canvas 884 22 450 300 \$0.list-item.template 1; +#X obj 52 38 struct \$0.list-item.template float x float y symbol item-name +symbol action-name float item-color float action-color; +#X obj 44 169 filledpolygon 900 90 2 10 0 20 10 30 0 40 10 30 20 40 +30 30 40 20 30 10 40 0 30 10 20 0 10; +#X obj 44 200 drawsymbol item-name 43 13; +#X obj 52 86 route click; +#X obj 52 114 s \$0.activate-item; +#X connect 0 0 3 0; +#X connect 3 0 4 0; +#X restore 219 81 pd \$0.list-item.template; +#N canvas 121 475 450 300 activate-item 0; +#X obj 67 75 r \$0.activate-item; +#X obj 68 131 get \$0.list-item.template item-name action-name; +#X obj 68 160 outlet; +#X obj 394 162 outlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 1 1 3 0; +#X restore 34 128 pd activate-item; +#X obj 34 48 inlet; +#X obj 34 77 route list; +#X obj 34 166 outlet; +#X obj 143 166 outlet; +#X connect 3 0 6 0; +#X connect 3 1 7 0; +#X connect 4 0 5 0; +#X connect 5 0 1 0; -- cgit v1.2.1