Alquimista de código

En el post anterior se trato de JOptionPane , algunos ejemplos del uso de los métodos showInputDialog y showMessageDialog . En esta ocasión usaremos el método showConfirmDialog para hacer una pregunta. Código Clojure ;;Importamos la librería javax.swing ( import '(javax.swing JOptionPane));' ( try ;; variable "pregunta" ( def pregunta      (JOptionPane/showConfirmDialog nil,       ( str " Estas de acuerdo en que Clojure es mejor que Lisp?" )     ) )       ;;la variable pregunta devolverá un valor entre 0, si es OK; 1, si es No; 2, si es Cancelar    ( if (= pregunta 0)        (JOptionPane/ showMessageDialog nil,         ( str "Bien, estas de acuerdo" )        )        ( if (= pregunta 1)           (JOptionPane/ showMessageDialog nil,             ( s...

"Cuando el alumno está listo, aparece el maestro, o al menos eso dicen" En el post anterior vimos un ejemplo del uso de JOptionPane en código Clojure, ahora veremos como introducir datos usando el método showInputDialog. 1. Introduciendo un dato tipo 'String', el método no necesita  argumento. ;;importar librería ( import '(javax.swing JOptionPane));' ;;defino el método introduceDato ( defn introduceDato []     (JOptionPane/ showInputDialog          ( str "Introduce una cadena:" )      ) ) ;;lo usamos así ( def entrada (introduceDato)) ;;imprimimos (JOptionPane/ showMessageDialog nil,    ( str "Cadena: " entrada) ) Resultado: 2. Método que decide si un número es menor a 100 ( import '(javax.swing JOptionPane));' ( defn esMenor? [n]   ( if (< n 100) (JOptionPane/ showMessageDialog nil,       ( str n " es menor a 100" ) )  (JOptionPan...

Navegando por Internet hallé esto  http://niconsystem.wordpress.com/productos-y-servicios/niconnotifyosd/ Se trata de una librería que nos permite hacer uso de cuadros de diálogo muy al estilo de JOptionPane de Java Swing. Tiene 7 diferentes tipos de notificaciones, por ejemplo, el clásico cuadro de diálogo para introducir texto, entre otros más. Al parecer no está liberada la librería de manera estable, pero se puede usar en pruebas.