Patco schrieb:

...

...

m.weiss a écrit :

...

opening a subpatch or window in pd makes this growin bigger each time it is opened

hello,

I believe that the problemcomes from those lines in pd.tk:

Line 863:

# slide offscreen windows into view if {$tcl_version >= 8.4} { set geometry [split $geometry +] set i 1 foreach geo {width height} { set screen($geo) [winfo screen$geo .] if {[expr [lindex $geometry $i] + [set $geo]] > $screen($geo)} { set pos($geo) [expr $screen($geo) - [set $geo]] if {$pos($geo) < 0} {set pos($geo) 0} lset geometry $i $pos($geo) } incr i } set geometry [join $geometry +] }

I tried to modify this code but I would have lucky if it worked, maybe someone could fix this? Patco

yes would be great thanks m.weiss

salut ive played a little bit and found this by trial and error patch is attached maybe it is possible to make this more elegant? gruss m.weiss

Patco schrieb:

m.weiss a écrit :

...

Patco schrieb:

...

...

...

m.weiss a écrit :

...

opening a subpatch or window in pd makes this growin bigger each time it is opened

hello,

I believe that the problemcomes from those lines in pd.tk:

Line 863:

# slide offscreen windows into view if {$tcl_version >= 8.4} { set geometry [split $geometry +] set i 1 foreach geo {width height} { set screen($geo) [winfo screen$geo .] if {[expr [lindex $geometry $i] + [set $geo]] > $screen($geo)} { set pos($geo) [expr $screen($geo) - [set $geo]] if {$pos($geo) < 0} {set pos($geo) 0} lset geometry $i $pos($geo) } incr i } set geometry [join $geometry +] }

I tried to modify this code but I would have lucky if it worked, maybe someone could fix this? Patco

yes would be great thanks m.weiss

Ah, maybe I should post it in the bug tracker, but actually I don't care anymore because I don't know yet how to fix this, damned lazyness, eh... best, patco.

---

Yahoo! Mail réinvente le mail ! Découvrez le nouveau Yahoo! Mail et son interface révolutionnaire. http://fr.mail.yahoo.com

#N canvas 299 240 327 174 10; #N canvas 0 0 498 348 sub 0; #X restore 35 25 pd sub; #X obj 37 137 tot sub; #X obj 160 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 ; #X msg 160 47 ; pd-sub vis $1; #X msg 37 107 query .^.c configure -width 400 -height 40; #X connect 1 3 4 0; #X connect 2 0 3 0; #X connect 4 0 1 0;