Libertonia
Portada · Todo · Software Libre · Desarrolladores · Comunidad · Internet · Tecnología · Meta · Diarios
Ver: Modo: Orden:
Linux no triunfará en el escritorio | 16 comentarios (16 temáticos, editoriales, 0 ocultos)
Otra implementación GPL ;-) (5.00 / 1) (#15)
por nibble (jyuyu en fraguel punto org) a las Thu Apr 10th, 2003 at 09:59:10 PM CET
(Información Usuario)

Muy triste que la única implementación con ventanitas que se ha posteado dependa de software propietario. Aquí va una 100% libre:


#!/usr/bin/perl
use Tk;

sub crash {
print STDOUT "Segmentation fault. Core dumped ;-)\n" x 100;
exit; }

$v1 = $v2 = $v3 = 0;
$w = MainWindow->new;
$s1 = $w->Entry(-textvariable=>\$v1)->pack();
$s2 = $w->Entry(-textvariable=>\$v2)->pack();
$res = $w->Entry(-state=>'disabled',-textvariable=>\$vr)->pack;
$b = $w->Button(-text=>'Sumar',-command=>sub{if ($v1>9 || $v2>9) {crash}; $vr = $v1 + $v2;} )->pack;

MainLoop;





Others have rated this comment as follows:
iarenaza 5

Linux no triunfará en el escritorio | 16 comentarios (16 temáticos, editoriales, 0 ocultos)
Ver: Modo: Orden:
Menu
· crear cuenta
· FAQ
· búsqueda
· Fuentes de Noticias

Login
Nueva cuenta
Usuario:
Contraseña:

ecol Logo Powered by Scoop
Todas las Marcas Registradas y copyrights de esta página son propiedad de sus respectivos dueños.
Los comentarios son propiedad del que los escribe.
Los iconos de las noticias y el logotipo son propiedad de Javier Malonda.
El Resto © 2002 Escomposlinux.org y aledaños.

Puedes sindicar los contenidos de libertonia en formato RSS 1.0 y RDF 0.9. También se puede sindicar la cola de envíos pendientes de moderación.

El proyecto escomposlinux.org está dedicado a la memoria de tas

crear cuenta | faq | búsqueda