QT - Conectar widgets

set w .c

catch {destroy $w}

toplevel $w -bg #AAA

wm geometry $w "900x900+0+0"

# Creo 5 canvas pequeños widgets donde se pueden dibujar las tuberias que deseas

set columnas 9

for {set i 0} {$i < 5} {incr i} {

    set x [expr {($i % $columnas) * 100}]

    set y [expr {($i / $columnas) * 100}]

    set c $w.c$i

    catch {destroy $c}

    canvas $c -bg #AAA

    place $c -x $x -y $y -width 100 -height 100

}

#procedimiento basico enseñado en mas de 30 lenguajes de programacion para dibujar a mano alzada:

#1. con el evento click que en tk es <1> o <B1> o <ButtonPress-1>, cuando se hace el click con el mouse, se captura la posicion en (x,y) donde va a iniciar el dibujo y en nuestro caso el movimiento del widget.

# Variables globales para el arrastre

set ::drag_widget ""

set ::drag_dx 0

set ::drag_dy 0

# Iniciar arrastre

bind $w <ButtonPress-1> {

    set ::drag_widget [winfo containing %X %Y]

    if {[string match "$w.c*" $::drag_widget]} {

        set wx [winfo x $::drag_widget]

        set wy [winfo y $::drag_widget]

        set ::drag_dx [expr {%X - [winfo rootx $::drag_widget]}]

        set ::drag_dy [expr {%Y - [winfo rooty $::drag_widget]}]

    } else {

        set ::drag_widget ""

    }

}

#Al mover el mouse se hace el arrastre o movimiento del mouse, que supone se inicia el dibujo o el movimiento del widget, entonces cada milisegundo se captura la nueva posicion en (x,y) y con respecto a la posicion inicial del click <1>, se mueve el lapiz o el widget en esa diferencia de pixeles tanto en x como en y.

# Arrastrar

bind $w <B1-Motion> {

    if {$::drag_widget ne ""} {

        set nx [expr {%X - [winfo rootx $w] - $::drag_dx}]

        set ny [expr {%Y - [winfo rooty $w] - $::drag_dy}]

        place config $::drag_widget -x $nx -y $ny

    }

}

#3. al soltar el boton del mouse, ButtonRelease, se para el movimiento del widgt y se hace la aproximacion a la coordenada (x,y) de la malla mas cercana haciendo el efecto de movimiento imantado.

# Soltar y alinear a la cuadrícula

bind $w <ButtonRelease-1> {

    if {$::drag_widget ne ""} {

        set nx [expr {round(([winfo x $::drag_widget])/100.0)*100}]

        set ny [expr {round(([winfo y $::drag_widget])/100.0)*100}]

        place config $::drag_widget -x $nx -y $ny

        set ::drag_widget ""

    }

}

import tkinter as tk

w=tk.Tk()

code='''

set w .c

catch {destroy $w}

toplevel $w -bg #AAA

wm geometry $w "900x900+0+0"

wm withdraw .

# Crear 5 canvas pequeños como widgets hijos

set columnas 9

for {set i 0} {$i < 5} {incr i} {

    set cols {#F00 #0F0 #00F #FF0 #F0F #0FF}

    set x [expr {($i % $columnas) * 100}]

    set y [expr {($i / $columnas) * 100}]

    set c $w.c$i

    catch {destroy $c}

    canvas $c -bg [lindex $cols [expr {int(rand()*6)}]]

    place $c -x [expr ($i*200)] -y [expr ($i*200)] -width 200 -height 200

}

# Variables globales para el arrastre

set ::drag_widget ""

set ::drag_dx 0

set ::drag_dy 0

# Iniciar arrastre

bind $w <ButtonPress-1> {

    set ::drag_widget [winfo containing %X %Y]

    if {[string match "$w.c*" $::drag_widget]} {

        set wx [winfo x $::drag_widget]

        set wy [winfo y $::drag_widget]

        set ::drag_dx [expr {%X - [winfo rootx $::drag_widget]}]

        set ::drag_dy [expr {%Y - [winfo rooty $::drag_widget]}]

    } else {

        set ::drag_widget ""

    }

}

# Arrastrar

bind $w <B1-Motion> {

    if {$::drag_widget ne ""} {

        set nx [expr {%X - [winfo rootx $w] - $::drag_dx}]

        set ny [expr {%Y - [winfo rooty $w] - $::drag_dy}]

        place config $::drag_widget -x $nx -y $ny

    }

}

# Soltar y alinear a la cuadrícula

bind $w <ButtonRelease-1> {

    if {$::drag_widget ne ""} {

        set nx [expr {round(([winfo x $::drag_widget])/100.0)*100}]

        set ny [expr {round(([winfo y $::drag_widget])/100.0)*100}]

        place config $::drag_widget -x $nx -y $ny

        set ::drag_widget ""

    }

}

#DEMO DIBUJO TRES TUBERIAS MUY SIMPLES EN LOS CANVAS PARA QUE SE UNAN COMO DESEEN

.c.c0 create polygon "50 0 100 100 200 100 100 100 50 200 100 100" -fill #000 -outline #000 -width 50

.c.c1 create polygon "0 100 50 100 100 150 100 200 100 150 50 100" -fill #000 -outline #000 -width 50

.c.c2 create polygon "0 100 200 100" -fill #000 -outline #000 -width 50

.c.c3 create polygon "100 0 100 200" -fill #000 -outline #000 -width 50

.c.c4 create polygon "100 0 100 200 100 100 200 100 0 100 100 100" -fill #000 -outline #000 -width 50

'''

w.eval(code)

w.mainloop()