[PD] memory with native objects

[patco]

  Anyone knows how could I replace [popup] or [widget menubutton]?
  

  The following patches shows memory with messages in action,
  it replaces popup menus
  
  litememory.pd
  
  #N canvas 274 215 434 479 10;
  #X obj 9 12 inlet;
  #X msg 214 211 addcomma;
  #X msg 116 170 set;
  #X obj 116 148 spigot 1;
  #X msg 123 125 0;
  #X obj 71 102 t b a b b b;
  #X msg 159 126 1;
  #X obj 159 103 r \$1-init;
  #X obj 226 385 ==;
  #X obj 132 429 spigot;
  #X obj 132 450 outlet;
  #X obj 292 216 inlet;
  #X obj 129 324 list split 1;
  #X obj 314 47 route clear;
  #X obj 321 135 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
  -1;
  #X obj 86 212 list prepend add2;
  #X obj 129 404 list append;
  #X obj 86 238 list trim;
  #X obj 284 252 t b b a;
  #X obj 129 346 t b a;
  #X obj 86 271 s \$1-msg-in;
  #X obj 129 300 r \$1-msg-out;
  #X connect 0 0 5 0;
  #X connect 0 0 13 0;
  #X connect 1 0 20 0;
  #X connect 2 0 20 0;
  #X connect 3 0 2 0;
  #X connect 4 0 3 1;
  #X connect 5 1 15 0;
  #X connect 5 2 4 0;
  #X connect 5 3 3 0;
  #X connect 5 4 1 0;
  #X connect 6 0 3 1;
  #X connect 7 0 6 0;
  #X connect 8 0 9 1;
  #X connect 9 0 10 0;
  #X connect 11 0 18 0;
  #X connect 12 0 19 0;
  #X connect 12 1 16 1;
  #X connect 13 0 14 0;
  #X connect 14 0 2 0;
  #X connect 15 0 17 0;
  #X connect 16 0 9 0;
  #X connect 17 0 20 0;
  #X connect 18 0 20 0;
  #X connect 18 2 8 1;
  #X connect 19 0 16 0;
  #X connect 19 1 8 0;
  #X connect 21 0 12 0;
  
  menu.pd
  
  #N canvas 167 197 542 392 10;
  #X obj 0 0 cnv 15 80 20 empty \$1-menu-cnv empty 30 12 1 8 -233017
  -1 0;
  #X floatatom 2 3 2 1 99 0 - - -;
  #X obj 286 30 inlet;
  #X obj 21 230 outlet;
  #X obj 215 28 r \$1-menu;
  #X obj 184 292 s \$1-menu-cnv;
  #X msg 184 227 label \$1;
  #X obj 286 56 list trim;
  #X msg 308 133 clear;
  #X obj 184 197 symbol;
  #X obj 286 89 route add index clear;
  #X obj 184 176 litememory \$1;
  #X msg 346 194 label;
  #X connect 1 0 3 0;
  #X connect 1 0 11 1;
  #X connect 2 0 7 0;
  #X connect 4 0 7 0;
  #X connect 6 0 5 0;
  #X connect 7 0 10 0;
  #X connect 8 0 11 0;
  #X connect 9 0 6 0;
  #X connect 10 0 11 0;
  #X connect 10 1 1 0;
  #X connect 10 2 8 0;
  #X connect 10 2 12 0;
  #X connect 11 0 9 0;
  #X connect 12 0 5 0;
  #X coords 0 -1 1 1 80 20 1 0 0;
  
  
  menu-test.pd
  
  #N canvas 469 231 466 402 10;
  #X msg 137 31 add 1 dog \, add 2 cat \, add 3 test;
  #X floatatom 92 46 2 0 0 0 - - -;
  #X msg 93 75 index \$1;
  #X msg 176 75 clear;
  #X text 149 14 fill the menu first;
  #X obj 166 194 menu test;
  #X text 171 57 clear the menu content;
  #X text 208 100 save the menu content;
  #N canvas 0 0 474 324 array 0;
  #X obj 105 32 r test-msg-in;
  #X obj 102 121 s test-msg-out;
  #X msg 107 74;
  #X connect 0 0 2 0;
  #X connect 2 0 1 0;
  #X restore 259 197 pd array;
  #X obj 212 145 s pd-menu-test.pd;
  #X text 259 181 menu content is here;
  #X obj 51 165 s test-menu;
  #X floatatom 45 99 2 0 0 0 - - -;
  #X msg 46 128 index \$1;
  #X msg 212 121 menusave;
  #X text 43 324 just don't forget to associate an array subpatch with
  the send-receive objects in the same patch \, like in this example.
  ;
  #X text 175 176 menu <test>;
  #X text 41 262 creation arguments: menu <name of the menu>;
  #X text 42 291 with this method you can put several different menus
  in the same patch;
  #X connect 0 0 5 0;
  #X connect 1 0 2 0;
  #X connect 2 0 5 0;
  #X connect 3 0 5 0;
  #X connect 12 0 13 0;
  #X connect 13 0 11 0;
  #X connect 14 0 9 0;
  
  
  
  

		
---------------------------------
 Faites de Yahoo! votre page d'accueil sur le web pour retrouver directement vos services préférés : vérifiez vos nouveaux mails, lancez vos recherches et suivez l'actualité en temps réel. Cliquez ici.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20060510/0f981824/attachment.htm>