Here's a start -- it requires [s2l] and [l2s] from zexy, though (there may be a way to do it vanilla, but possibly not).
Matt On Sat, Nov 14, 2009 at 11:35 AM, Mathieu Bouchard <ma...@artengine.ca> wrote: > On Fri, 13 Nov 2009, Hans-Christoph Steiner wrote: > >> Someone could write their own message box object and make it do whatever >> they want. Then you have both: a new interface and backwards compatibility. >> The message box could just be a GUI object like any other, there is nothing >> inherently unique about it. > > It wouldn't even need to be a "GUI" object. just make it an objectbox class > named [m]. Then "$1" (etc) becomes the same as in other objectboxes, and > then another syntax can be used to mean message arguments. Except that if > it's not a GUI object, then it's not clickable, and stuff. > > User-wise, there _is_ something inherently unique to the messagebox, but it > happens to be exactly the difference that we'd like to eliminate. > > _ _ __ ___ _____ ________ _____________ _____________________ ... > | Mathieu Bouchard, Montréal, Québec. téléphone: +1.514.383.3801
#N canvas 583 22 531 551 10; #N canvas 270 121 532 403 \$0-getargs 0; #X obj 37 40 inlet; #N canvas 31 427 359 254 \$0-construct_Iohannes_arg_test 0; #X obj 71 19 inlet; #X msg 218 155 vis 1; #X obj 71 172 outlet; #N canvas 497 46 421 150 \$0-connect 0; #X obj 25 25 inlet; #X obj 25 109 outlet; #X msg 25 47 connect 0 0 1 0 \, connect 1 0 8 0 \, connect 1 1 2 0 \, connect 2 0 3 0 \, connect 3 0 4 1 \, connect 8 0 4 0 \, connect 4 0 7 0 \, connect 4 1 5 0 \, connect 5 0 9 0 \, connect 9 0 6 0; #X connect 0 0 2 0; #X connect 2 0 1 0; #X restore 71 114 pd \$0-connect; #X obj 90 90 s \$0-construct_out; #X obj 89 139 r \$0-construct_out; #X obj 71 41 t b b f; #N canvas 557 172 523 728 \$0-step_1 0; #X obj 122 135 list trim; #X obj 79 380 list trim; #X obj 93 309 list trim; #X obj 108 206 f; #X obj 231 20 inlet; #X obj 205 405 outlet; #X msg 108 227 obj 10 40 t b b \, msg 200 57 \$1 \, obj 200 87 makefilename $%d- \, obj 10 104 select s \, obj 55 134 b; #X obj 50 20 inlet; #X obj 93 332 s \$0-step_1_out; #X obj 79 403 s \$0-step_1_out; #X obj 122 157 s \$0-step_1_out; #X obj 108 262 s \$0-step_1_out; #X obj 137 89 s \$0-step_1_out; #X obj 205 381 r \$0-step_1_out; #X obj 122 114 list append obj 10 10 r \$0-getcreationargs_in; #X obj 79 357 list append obj 10 224 s \$0-getcreationargs_noarg; #X obj 93 288 list append obj 55 194 s \$0-getcreationargs_thisarg ; #X obj 64 451 f; #X obj 64 473 makefilename $%d-; #X obj 64 515 list trim; #X obj 64 535 s \$0-step_1_out; #X obj 64 495 list prepend obj 10 70 symbol; #X obj 50 581 f; #X obj 50 606 makefilename $%d; #X obj 50 628 list prepend obj 55 164 list append; #X obj 51 648 list trim; #X obj 51 669 s \$0-step_1_out; #X obj 50 43 t b b b b b b b; #X msg 137 67 clear; #X obj 231 43 s \$0-arg-float; #X obj 65 560 r \$0-arg-float; #X obj 79 428 r \$0-arg-float; #X obj 123 183 r \$0-arg-float; #X connect 0 0 10 0; #X connect 1 0 9 0; #X connect 2 0 8 0; #X connect 3 0 6 0; #X connect 4 0 29 0; #X connect 6 0 11 0; #X connect 7 0 27 0; #X connect 13 0 5 0; #X connect 14 0 0 0; #X connect 15 0 1 0; #X connect 16 0 2 0; #X connect 17 0 18 0; #X connect 18 0 21 0; #X connect 19 0 20 0; #X connect 21 0 19 0; #X connect 22 0 23 0; #X connect 23 0 24 0; #X connect 24 0 25 0; #X connect 25 0 26 0; #X connect 27 0 22 0; #X connect 27 1 17 0; #X connect 27 2 15 0; #X connect 27 3 16 0; #X connect 27 4 3 0; #X connect 27 5 14 0; #X connect 27 6 28 0; #X connect 28 0 12 0; #X connect 30 0 22 1; #X connect 31 0 17 1; #X connect 32 0 3 1; #X restore 90 68 pd \$0-step_1; #X connect 0 0 6 0; #X connect 1 0 2 0; #X connect 3 0 2 0; #X connect 5 0 2 0; #X connect 6 0 3 0; #X connect 6 1 7 0; #X connect 6 2 7 1; #X connect 7 0 4 0; #X restore 76 164 pd \$0-construct_Iohannes_arg_test; #X obj 135 315 r \$0-getcreationargs_thisarg; #X obj 323 315 r \$0-getcreationargs_noarg; #X obj 56 211 s \$0-getcreationargs_in; #X obj 37 89 max 0; #X obj 37 64 route float; #X obj 37 110 int; #X obj 37 315 spigot 1; #X obj 82 262 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 37 338 s pd-\$1; #X obj 135 338 outlet; #X obj 323 338 outlet; #X text 116 261 <-- toggle on to see the result of the dynamic patching ; #X obj 82 290 == 0; #X text 147 55 Inlet: the argument number.; #X obj 37 134 t b b f; #X msg 37 237 clear \, editmode 0; #N canvas 0 22 450 300 \$0-helper 0; #X obj 10 10 r 1064-getcreationargs_in; #X obj 10 40 t b b; #X msg 200 57 17; #X obj 200 87 makefilename $%d-; #X obj 10 104 select s; #X obj 55 134 b; #X obj 55 194 s 1064-getcreationargs_thisarg; #X obj 10 224 s 1064-getcreationargs_noarg; #X obj 10 70 symbol \$17-; #X obj 55 164 list append \$17; #X connect 0 0 1 0; #X connect 1 0 8 0; #X connect 1 1 2 0; #X connect 2 0 3 0; #X connect 3 0 4 1; #X connect 4 0 7 0; #X connect 4 1 5 0; #X connect 5 0 9 0; #X connect 8 0 4 0; #X connect 9 0 6 0; #X restore 392 164 pd \$0-helper; #X obj 76 186 s pd-\$0-helper; #X text 147 27 This subpatch dynamically patches Iohannes's creation arg test into a helper subpatch.; #X connect 0 0 6 0; #X connect 1 0 19 0; #X connect 2 0 11 0; #X connect 3 0 12 0; #X connect 5 0 7 0; #X connect 6 0 5 0; #X connect 7 0 16 0; #X connect 8 0 10 0; #X connect 9 0 14 0; #X connect 14 0 8 1; #X connect 16 0 17 0; #X connect 16 1 4 0; #X connect 16 2 1 0; #X connect 17 0 8 0; #X restore 164 179 pd \$0-getargs; #X obj 164 256 sel \; \,; #X msg 127 425 tuna pickins 25 1038-ham \$1-soda \$2 \; 1038-test frogs 1 \$1 \$2-bogs \, 35 1038 2; #X obj 127 517 outlet; #X obj 305 31 loadbang; #X msg 351 108 set; #X obj 351 130 s \$0-set; #X obj 127 400 r \$0-set; #X obj 174 353 s \$0-set; #X msg 120 324 addsemi; #X msg 174 324 addcomma; #N canvas 354 303 540 530 \$0-#2dollar 0; #X obj 100 24 inlet; #X obj 271 24 inlet; #X msg 271 54 symbol; #X obj 99 126 s2l; #X obj 100 184 route #; #X obj 100 299 route float; #X obj 211 426 outlet; #X msg 217 337 add2 \$1; #X msg 43 336 adddollar \$1; #X msg 161 370 adddollsym \$1; #X obj 99 50 route float; #X obj 99 156 list trim; #X obj 100 212 l2s; #X obj 217 218 l2s; #X connect 0 0 10 0; #X connect 1 0 2 0; #X connect 2 0 3 1; #X connect 2 0 12 1; #X connect 2 0 13 1; #X connect 3 0 11 0; #X connect 4 0 12 0; #X connect 4 1 13 0; #X connect 5 0 8 0; #X connect 5 1 9 0; #X connect 7 0 6 0; #X connect 8 0 6 0; #X connect 9 0 6 0; #X connect 10 0 7 0; #X connect 10 1 3 0; #X connect 11 0 4 0; #X connect 12 0 5 0; #X connect 13 0 7 0; #X restore 238 325 pd \$0-#2dollar; #X obj 163 129 until; #X obj 164 153 f 1; #X obj 198 154 + 1; #X msg 282 121 1; #X obj 46 193 inlet; #X obj 305 72 t b b; #X obj 239 208 s \$0-stop; #X obj 190 75 r \$0-stop; #X connect 0 0 1 0; #X connect 0 1 18 0; #X connect 1 0 9 0; #X connect 1 1 10 0; #X connect 1 2 11 0; #X connect 2 0 3 0; #X connect 4 0 17 0; #X connect 5 0 6 0; #X connect 7 0 2 0; #X connect 9 0 8 0; #X connect 10 0 8 0; #X connect 11 0 8 0; #X connect 12 0 13 0; #X connect 13 0 14 0; #X connect 13 0 0 0; #X connect 14 0 13 1; #X connect 15 0 13 1; #X connect 16 0 2 0; #X connect 17 0 12 0; #X connect 17 1 5 0; #X connect 17 1 15 0; #X connect 17 1 11 1; #X connect 19 0 12 1;
#N canvas 72 474 450 300 10; #X obj 278 129 r \$0-test; #X msg 99 54 56 32; #X obj 115 188 print; #X obj 285 177 print test; #X obj 96 81 m tuna pickins 25 \$0-ham #1-soda #2 \; \$0-test frogs 1 #1 #2-bogs \, 35 \$0 2 heaven; #X connect 0 0 3 0; #X connect 1 0 4 0; #X connect 4 0 2 0;
_______________________________________________ Pd-list@iem.at mailing list UNSUBSCRIBE and account-management -> http://lists.puredata.info/listinfo/pd-list
