Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29531
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixes for OSX
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.590 retrieving revision 1.1.2.591 diff -C2 -d -r1.1.2.590 -r1.1.2.591 *** desire.tk 24 Nov 2006 15:39:04 -0000 1.1.2.590 --- desire.tk 25 Nov 2006 08:05:31 -0000 1.1.2.591 *************** *** 344,348 **** # this is the beginning of the more application-dependent part.
! set OS $tcl_platform(platform)
option add *foreground #000000 --- 344,351 ---- # this is the beginning of the more application-dependent part.
! switch $tcl_platform(os) { ! Darwin {set OS osx} ! default {set OS $tcl_platform(platform)} ! }
option add *foreground #000000 *************** *** 403,407 ****
switch $::OS { ! Darwin {set pd_tearoff 0} default {set pd_tearoff 1} } --- 406,410 ----
switch $::OS { ! osx {set pd_tearoff 0} default {set pd_tearoff 1} } *************** *** 887,890 **** --- 890,898 ---- $self init_binds $self init_menus + # it's necessary to raise the window on OSX + raise . + wm iconify . + after 100 {wm deiconify .} + focus . }
*************** *** 1618,1622 **** osx { $self bind <Button-2> click_wrap %x %y %b 8 ! $self bind <Control-Button> click_wrap %x %y %b 8 } default { --- 1626,1630 ---- osx { $self bind <Button-2> click_wrap %x %y %b 8 ! $self bind <Control-Button> click_wrap %x %y 3 8 } default {