Tenía rato de no escribir nada en el blog. En realidad no es que haya escrito mucho pero ni siquiera lo había ojeado... Las últimas semanas de noviembre fueron de carrito, también conocido como buhh, tengo sueño, quiero dormir, tengo hambre, ay me quemé, porqué no sirve y otros pseudónimos.
Pronto escribiré algo sobre el famoso proyecto del carrito, está interesante y es algo muy diferente a lo que uno hace usualmente.
Para pensar. Actualmente gasto en pasajes a Cartago entre ¢1500 y ¢2370, ida y vuelta. Claro, esto sin contar los gastos en comida, fotocopias y algún gusto que uno quiera darse, como un chocolate o repetir fresco.
Hace casi un año en rellené una solicitud de "beca-prestamo-financiamiento" en el Tec. La hoja pedía datos de gastos entre ellos transporte, alimentación, alojamiento, gastos personales, etc. Cuando llenamos la boleta por concepto de transporte se colocó la razonable cantidad de ¢30000 por mes, lo justo, cuando con los precios de ese día un viaje ida y vuelta hubiese salido entre ¢1310 y ¢1650. ¡Coloqué una buena cifra del gasto aproximado en pasajes por mes! Y aún no he mencionado los gastos en comida, unos 1500 diarios; y fotocopias y otros materiales unos 5000 al mes.
... veinte mil colones es más que suficiente para ir al Tec... (5 días a la semana por un mes)
Por supuesto, y allí había una trabajadora social, procurando el bienestar de los estudiantes, que nos ayudó a ajustar bien las cifras. Entre sus primeras frases estuvo "...veinte mil colones es más que suficiente para ir al Tec...". Para alguien que vive en Cartago centro... hm, si puede ser. ¡Por favor! una parte importante de la gente que estudia y trabaja en el Tec NO vive en Cartago y NO vive sobre la pista. Además Cartago no tiene el mejor servicio de buses del país y el Tec menos (nuevamente, no todos viven en Cartago centro). En este punto fue obvio que habíamos perdido el tiempo visitando esa oficina.
Eso se alargó, sí se alargó, su buen rato. Según nos decía allí casi no se usaban fotocopias, (actualmente puedo llegar a mil colones por semana) y que la comida de la soda era muy barata y que con menos de mil alcanzaba (en realidad la comida decente (si la hay) para gente no anoréxica llega a los 1200, pero no veo la necesidad de usar harto grasa en un picadillo de vainica con zanahoria... bueno eso se tratará en otro post).
Para ilustrar mejor la situación diré: los buses de Cartago subieron de 315 a 385 en un mes y ahora están en 435. Esto sin mencionar los otros buses que hay que tomar (en mi caso uso siete líneas distintas de buses) cada una con sus aumentos respectivos.
Es extraño ver esta ¿desconsideración?, ¿omisión?... llamenla como quieran. Pero al menos en mi opinión hay situaciones en las que hay que estar del lado de las personas y no del lado de la plata. Y así pasa en muchos lados, puentes peatonales que no se hacen por "falta de presupuesto", dragados en los ríos y diques que no se hacen por "costar millones" o casas que no se hacen porque la partida se despilfarró en asesorías. Es hora de poner prioridades y afortunadamente para quienes estén interesados hay mucho campo para comenzar.
Al menos puedo decir que el pinto es bueno, y que fuera del Tec hay una opción excelente para comer, y solo por 600 colones...
La entrada anterior sobre como hacer widgets en Scheme no traía ningún ejemplo. Aquí pondré un ejemplo de como hacer el widget (con código). ¡Se trata de un widget que permite pintar en un canvas% !
(define canva-pintable%
(class canvas%
(init-field parent) ; el padre de este control
(init-field color) ; el color con el que dibujaré
(super-new (parent parent)(min-width 400)(min-height 400)(horiz-margin 2)(vert-margin 2)
(paint-callback (lambda (cnv dc)(void)))
(style '(control-border vscroll hscroll)))
(send (send this get-dc) set-pen color 1 'solid)
;recibe un mouse-event%
(define/override (on-event evento)
(cond ((send evento dragging?) (send (send this get-dc) draw-point (send evento get-x) (send evento get-y)))
)
)
(define/override (on-char evento)
(send (send this get-dc) clear)
)
)
) ;fin de mi widget
(define miVentana (new frame% (label "Dibujame!")))
(define miCanva (new canva-pintable% (parent miVentana)(color "black")))
(send miVentana show #t)
El programa final se vería algo así:
Haciendo una progra en Dr Scheme (el administrador de álbumes para Ruidosa S.A.) quise usar una tabla para mostrar la información sobre los álbumes, etcétera. Investigando en la documentación descubrí la pavorosa noticia: ¡Mr. Ed NO tiene tablas!
Para solventar esto inicialmente usé varias list-box% pegadas, pero como el resultado es estéticamente feo (y quise agregar extras a la tabla) me decidí por implementar por completo mi propio widget.
Un "widget" en Scheme en realidad es una clase que extiende a otra clase que sí es un widget. Cuando hagamos nuestros widgets lo más probable es que extendamos alguna clase horizontal-panel%, vertical-panel%, o canvas%. También puede usar cualquier otro control si lo desea. La imagen es una captura de mi widget tabla. Esta permite añadir texto o imágenes a una columna, añadir filas, encabezado, cambiar el tamaño de las columnas y autoordenar por columna al hacer clic en el encabezado. Este una extensión de la clase canvas%.
Un widget tiene como ventaja que se puede programar una vez y usarse muchas veces, incluso en proyectos ajenos (obviamente si está bien diseñado). También se caracteriza porque cada instancia es independiente de las demás. Por ejemplo, podemos crear un widget formulario y los datos de cada formulario estarán aislados de los otros.
El código propio del widget no es muy diferente a cualquier otro programa de Scheme. "Simplemente" hay que programar todo el comportamiento de este, que sucede cuando recibe el foco, cuando lo pierde, cuando recibe clics, teclasos, etc. La parte diferente viene acá:
(module advTable
mzscheme
(provide (all-defined))
(require (lib "mred.ss" "mred")
(lib "class.ss")
(file "sortCadenas.ss"))
(define advanced-list%
(class canvas%
(init-field parent)
(init-field callback)
(super-new (parent parent)(min-width 500)(horiz-margin 2)(vert-margin 2)
(paint-callback (lambda (cnv dc)(Redibujar cnv dc)))
(style '(control-border vscroll hscroll)))
;...
;el resto del código va aquí
;...
;hay que cerrar los paréntesis :)
(provide (all-defined)) indica que el módulo expone al exterior todas las funciones definidas (esto tal vez no es algo deseado, pero esto lo programé en aquellos tiempos que...).
(lambda (cnv dc)(Redibujar cnv dc)). Esta es una función que redibuja la canvas% y está dentro del widget. Quizá hayan notado que hay un (init-field parent) y un (parent parent); las palabras en rojo se refieren a la misma variable. on-event, on-size, entre otras. Lo que debemos hacer para implementar nuestras funciones es suplantar estas funciones. Esto se hace definiendo la función con el mismo nombre, pero en lugar de usar un define se escribe define/override. Esto indicará a Scheme que se desea suplantar la función actual por esta. Es importante verificar que nuestra función tenga la misma sintaxis que la original. Finalmente para poder usar nuestro widget en nuestro programa debemos el siguiente código al principio del programa:
(require (file "advTable.ss") ; así se llama nuestro archivo con el widget
;... otras bibliotecas que se requieran...
)
Y ya podemos usar nuestro widget como cualquier otro. Por ejemplo para crear una instancia de la tabla se usaría el siguiente código:
(define tbxRecorridos (new advanced-list%
(parent panRecorridos) ; formulario padre que contiene el widget
(callback recorridosCallback) ; función a la que se llamará
; cuando ocurra un evento
)
)
Nótese que "parent" y "callback" son los nombres especificados en los init-field del widget.
Tal vez se hayan encontrado en la situación que necesitan crear un documento pero al comenzar a redactarlo notan que el programa que usan se queda corto para lo que necesitan. Esto es especialmente cierto si el documento es "muy técnico": tiene gran cantidad de expresiones matemáticas, código fuente de programas, si el documento es exageradamente largo o si quieren cambiar la numeración de las páginas para que primero sea en números romanos y luego en arábigos.
Afortunadamente para aquellos que de vez en cuando tenemos que hacer esta clase de documentos existe LATEX. Según Wikipedia:
(LaTeX) es un lenguaje de marcado para documentos, y un sistema de preparación de documentos, formado por un gran conjunto de macros de TeX, escritas inicialmente por Leslie Lamport (LamportTeX) en 1984, con la intención de facilitar el uso del lenguaje de composición tipográfica creado por Donald Knuth. Es muy utilizado para la composición de artículos académicos, tesis y libros técnicos, dado que la calidad tipográfica de los documentos realizados con LaTeX es comparable a la de una editorial científica de primera línea. LaTeX es software libre bajo licencia LPPL.
Para comenzar a usar LaTeX solo es necesario un editor de textos (Bloc de Notas, KWrite, etc), bajarse el paquete de LaTeX (para Windows está miktex, para Linux quizá ya esté instalado :)) y no asustarse por la impresión inicial. Es menos complicado de lo que parece.
Lo que yo hice en Windows fue instalar MikTex (http://miktex.org/) y luego instalar TeXnicCenter (http://www.toolscenter.org/). TeXnicCenter es un programa que facilita la escritura de documentos en LaTeX.
