<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:courier,monaco,monospace,sans-serif;font-size:12pt"><div style="font-family: courier,monaco,monospace,sans-serif; font-size: 12pt;"><br><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;">----- Mensaje original ----<br>De: hans <holzem@cantv.net><br>Para: Perl Mongers Caracas - Venezuela <caracas-pm@pm.org><br>Enviado: miércoles, 18 de abril, 2007 6:41:29<br>Asunto: Re: [caracas-pm] Case statement en perl<br><br>Querido hermano realmente creo que deberías comentar un poco más el dominio o propósito de la aplicación para que se te pueda ofrecerte ayuda, de igual forma imagino que trabajas con tk o Gtk , tienes un area canvas con 25 o n elementos y cada uno posee propiedades propias, entre esas propiedades imagino que quieres contemplar el estado (on/off). para ello te consejo que trabajes orientado a objeto pues
creando una clase puedes generar los canvas para así tener el atributo estado encapsulado y asociado a cada elemento, una vez presiones con el ratón debes tener programado el método de la clase para que su estado interno cambie si necesidad de hacer switch o muchos if anidados.<br><br>Espero que si realmente lo que interprete se ajusta a tu dominio te sirva esta recomendación .<br><br><br><br><br><div>Hola David,<br><br>me explico:<br> En un canvas tengo 25 icons que representan 25 switches<br> y $ x $y son los coordinados.<br>Al hacer click con el raton cambia el switch (on/off).<br>Al mismo momento dibujo otro icono en el lugar, para representar el<br>nuevo estado del switch.<br><br>Hans<br> <br><br>On Tue, 2007-04-17 at 23:08 -0400, David De Sousa wrote:<br>> que contenido tienen $x y $y? explicate mejor, no creo que la mejor<br>> manera sea ni switch ni 50 casos de if-else<br>> <br>> El 17/04/07, hans <holzem@cantv.net>
escribió:<br>> > Hola lista,<br>> ><br>> > tengo que hacer decisiones (50 casos) dependiendo de tres valores<br>> > $x, $y , $cw<br>> ><br>> > Para cada par de $x,$y hay dos posibilidades de $cw.<br>> > O sea : $cw es un valor binario.<br>> ><br>> ><br>> ><br>> > Cual es la mejor manera para hacerlo?<br>> ><br>> > if ... elsif .. elsif<br>> ><br>> > o quizas usando el modulo 'switch' de perl ?<br>> ><br>> ><br>> > o otra estructura?<br>> ><br>> ><br>> > Gracias por la opinion de los Mongers experimentados.<br>> ><br>> > Hans<br>> ><br>> > _______________________________________________<br>> > caracas-pm mailing list<br>> > caracas-pm@pm.org<br>> > <a target="_blank" href="http://mail.pm.org/mailman/listinfo/caracas-pm">http://mail.pm.org/mailman/listinfo/caracas-pm</a><br>> ><br>> <br>>
<br><br>_______________________________________________<br>caracas-pm mailing list<br>caracas-pm@pm.org<br><a target="_blank" href="http://mail.pm.org/mailman/listinfo/caracas-pm">http://mail.pm.org/mailman/listinfo/caracas-pm</a></div></div><br></div></div><br>__________________________________________________<br>Correo Yahoo!<br>Espacio para todos tus mensajes, antivirus y antispam ¡gratis! <br>Regístrate ya - http://correo.espanol.yahoo.com/ </body></html>