Re: [PD] Re: [PD-announce] devel_0_38

Hmm... depends where you got the OSX package. Anyway, I put your changes in my home copy; they should show up in "main" later today...

thanks Miller

On Sun, Nov 07, 2004 at 10:10:04PM +0100, 0001 wrote:

...

Lets hope so.

ok that didn't sound very convincing. I wanted to make a patch but I found out that u_main.tk doesn't seem to be the same in MAIN than in the OSX release .. is that possible or am I missing something ?

it's something very simple but it never gets into official tree ... the ALT key on OSX!!! I think many people would like to use it. It happens to be called "Option" instead of "Alt"

the fix is easy and harmless here's a quick diff of u_main.tk in Pd-0.38-0test7.app

953,956d952 < bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4} < bind $name.c <Alt-Shift-Button> {pdtk_canvas_click %W %x %y %b 5} < bind $name.c <Alt-Control-Button> {pdtk_canvas_click %W %x %y %b 6} < bind $name.c <Alt-Control-Shift-Button> {pdtk_canvas_click %W %x %y %b 7} 957a954,965

...

# Alt key is called Option on the Mac if {$pd_nt == 2} { bind $name.c <Option-Button> {pdtk_canvas_click %W %x %y %b

4}

...

    bind $name.c <Option-Shift-Button> {pdtk_canvas_click %W %x 

%y %b 5}

...

    bind $name.c <Option-Control-Button> {pdtk_canvas_click %W %x 

%y %b 6}

...

    bind $name.c <Option-Control-Shift-Button> {pdtk_canvas_click 

%W %x %y %b 7}

...

} else {  
    bind $name.c <Alt-Button> {pdtk_canvas_click %W %x %y %b 4} 
    bind $name.c <Alt-Shift-Button> {pdtk_canvas_click %W %x %y 

%b 5}

...

    bind $name.c <Alt-Control-Button> {pdtk_canvas_click %W %x %y 

%b 6}

...

    bind $name.c <Alt-Control-Shift-Button> {pdtk_canvas_click %W 

%x %y %b 7}

...

} 

977c985,989

< bind $name.c <Alt-Key> {pdtk_canvas_altkey %W %K %A}

...

if {$pd_nt == 2} { 
    bind $name.c <Option-Key> {pdtk_canvas_altkey %W %K %A} 
} else { 
    bind $name.c <Alt-Key> {pdtk_canvas_altkey %W %K %A} 
}         

987c999,1004

< bind $name.c <Alt-Motion> {pdtk_canvas_motion %W %x %y 4}

...

if {$pd_nt == 2} { 
    bind $name.c <Option-Motion> {pdtk_canvas_motion %W %x %y 4} 
} else { 
    bind $name.c <Alt-Motion> {pdtk_canvas_motion %W %x %y 4} 
} 

. g