Ejemplo de la operacion "element closest" en BLT

Fuente: https://www.tek-tips.com/viewthread.cfm?qid=503800
Adaptado para RBC.

package require rbc

rbc::vector create x(20)
rbc::vector create y(20)

x seq 1 20
y random

rbc::graph .g
pack .g -expand yes -fill both

.g element create data -xdata x -ydata y

toplevel .report -bg black
label .report.info -textvariable status -justify left -bg yellow
pack .report.info -padx 2 -pady 2

wm withdraw .report
wm overrideredirect .report 1

.g element bind data {
    if {[.g element closest %x %y click]} {
        set status "Clicked on \"$click(name)\" element\n"
        append status "Data point $click(index)\n"
        append status "x value: $click(x), y value $click(y)"
       
        wm geometry .report +%X+%Y
        wm deiconify .report
    }
}

.g element bind data {
    wm withdraw .report
}

Galeria de Fotos

Instale' apache.

El contenido lo prepare' con 2 programas:

1. https://wiki.tcl-lang.org/page/PhotoAlbum+-A+Web+Gallery+Creation+Tool
2. https://wiki.tcl-lang.org/page/MajaMaja

Tuve 3 problemas:

1) MajaMaja no queria correr ya que se quejaba de la version de Itcl.

>>> Solo tuve que quitar la restriccion de version en el script.

2) Las Imagenes aparecen bien si abro el archivo index.html sin que intervenga el web server, pero aparecen "rotas" si las trato de accesar desde el navegador a traves de apache.

>>> Tuve que borrar "file:" del script, en la parte del atributo "src" de las imagenes.

3) Las Imagenes aparecen rotadas, aunque segun yo, las corrija con el editor de imagenes de MS.

>>> Tuve que editarlas con ImageMagick, el cual si las corrige realmente.

y listo !

Sample Post

Title:

color code

😊

Martes 5 Abril 2018