[PD-cvs] pd/src desire.tk,1.1.2.590,1.1.2.591
Mathieu Bouchard
matju at users.sourceforge.net
Sat Nov 25 09:05:35 CET 2006
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 {
More information about the Pd-cvs
mailing list